<!--#include file="inc/AspCms_SettingClass.asp" -->
<%
if isnul(session("adminName")) or Session("sitepath")<>SitePath then response.Redirect("login.asp"):response.End()

dim id, rsObj
id=getForm("id","get")
if not isnul(id) then
	set rsObj=conn.exec("select * from {prefix}Language where LanguageID="&id,"exe")
	if not rsObj.eof then 
		session("languageID")=id
		session("languagePath")=rsObj("LanguagePath")
		session("LanguageAlias")=rsObj("Alias")
	else
		alertMsgAndGo "没有这个语言","-1"
	end if
	rsObj.close : set rsObj=nothing
	response.Redirect("index.asp")
end if

dim SceneID
SceneID=getForm("SceneID","get")
if not isnul(SceneID) then
	set rsObj=conn.exec("select * from {prefix}Scene where SceneID="&SceneID,"exe")
	if not rsObj.eof then 
		'wCookie"SceneID",id
		session("SceneMenu")=rsObj("SceneMenu")
	else		
		alertMsgAndGo "没有这个场景","-1"
	end if
	rsObj.close : set rsObj=nothing
	response.Redirect("index.asp")
end if
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>全能CMS后台管理系统</title>
</head>
	<frameset rows="63,*" cols="*" frameborder="no" border="0" framespacing="0">
		<frame src="top.asp" name="topFrame" id="topFrame" scrolling="no" noresize />
		<frameset cols="176,*" name="bodyFrame" id="bodyFrame" frameborder="no" border="0" framespacing="0"  >
			<frame src="menu.asp?id=1&src=right.asp" name="menu" id="menu" scrolling="auto" noresize />
			<frame src="right.asp" name="main" id="main" scrolling="auto" noresize />
			<frame src="inc/reset.asp"  marginHeight=0  frameBorder=0 width="0" scrolling=none height="0"></frame>
			
		</frameset>
	</frameset>
	<noframes>
		<body>你的浏览器不支持框架！</body>
	</noframes>
</html>




      
<%
dim rs,i,sql,menuid,SceneStr,firstID
'die isnul(rCookie("SceneMenu")) 
if not isnul(session("SceneMenu")) then 
	SceneStr=" and MenuID in("&session("SceneMenu")&")"
end if

if session("GroupMenu")="all" then
	sql="select MenuID, MenuName, (select Count(*) from {prefix}Menu as b where MenuStatus=1 and b.ParentID=a.MenuID ) from {prefix}Menu as a where MenuStatus=1 and ParentID=0  "&SceneStr&" order by MenuOrder"
else
	sql="select MenuID, MenuName, (select Count(*) from {prefix}Menu as b where MenuStatus=1 and b.ParentID=a.MenuID ) from {prefix}Menu as a where MenuStatus=1 and ParentID=0 and MenuID in("&session("GroupMenu")&") "&SceneStr&" order by MenuOrder"
end if
set rs=conn.exec(sql, "r1")
i=1
do while not rs.eof 
	if i=1 then firstID=rs(0)
	'echo "<DIV class=menu id=menu"&i&"><a target=""mainframe"" href=""mainframe.asp?menuid="& rs(0)&""">"& rs(1)&"</a></DIV>"
	menuid=rs(0)
	echo "<DIV class=menu id=menu"&i&" onclick=""document.getElementById('mainframe').src='mainframe.asp?menuid="&rs(0)&"'"">"& rs(1)&"</DIV>"
	rs.moveNext
	i=i+1
loop
rs.close : set rs=nothing
%>

<DIV class=menu style="FLOAT: right" onClick="document.location.href ='login.asp?action=logout'">退出</DIV>
<DIV id="changepass" class=menu style="FLOAT: right" onClick="document.getElementById('mainframe').src='mainframe.asp?menuid=<%=menuid%>&src=editpass.asp'">修改密码</DIV>
<DIV id="index"class=menu style="FLOAT: right" onClick="document.getElementById('mainframe').src='mainframe.asp?menuid=<%=menuid%>&src=right.asp'">后台首页</DIV>
<DIV class=menu style="FLOAT: right" onClick="window.open('../')">网站首页</DIV>
      <div class="lnglist">
      	切换语言：
      <%
	  	dim languageName
		set rs=conn.exec("select LanguageID, LanguageName, Alias from {prefix}Language where LanguageStatus=1 order by LanguageOrder ,LanguageID", "exe")
		do while not rs.eof 
			if cint(session("languageID"))=cint(rs(0)) then 
				echo "<a href=""index.asp?id="&rs(0)&"""><strong>"&rs(1)&"</strong></a> "	
				languageName=rs(1)
			else
				echo "<a href=""index.asp?id="&rs(0)&""">"&rs(1)&"</a> "
			end if
			rs.moveNext
		loop
	  %>
      <a href="#" id="closelng">[关闭]</a></div>
      
<div class="menu changelng" style="float:right">切换语言(<span style="color:red;"><%=languageName%></span>)</div>
      </DIV>
      </DIV></TD></TR>
  <TR vAlign=top>
    <TD>
    <iframe src="mainframe.asp?menuid=<%=firstID%>&src=right.asp"  id=mainframe name=mainframe marginHeight=0  frameBorder=0 width="100%" scrolling=none height="100%"></iframe>
   </TD></TR></TBODY></TABLE>   
