<%@ Language=VBScript %>
<%
Option Explicit
Const iMenu = 3
Const iMaxPop = 6
reDim aMenus(iMenu,iMaxPop)
Dim sSwitch, sWhich
Dim sTemp, i, j
Dim aIcons(3)
Dim sScriptName
sScriptName = Request.QueryString("ScriptName")

aMenus(0,0) = "使用说明"
	aMenus(0,1) = "<a href=""../readme.htm#ProDes"">聊天程序简介</a>"
	aMenus(0,2) = "<a href=""../readme.htm#InsDes"">安装聊天室</a>"
	aMenus(0,3) = "<a href=""../readme.htm#ManDes"">后台管理须知</a>"

aMenus(1,0) = "聊天室管理"
	aMenus(1,1) = "<a href=""m_vrooms.asp"">检阅聊天室</a>"
	aMenus(1,2) = "<a href=""m_inptroom.asp"">添加新房间</a>"

aMenus(2,0) = "权限管理"
	aMenus(2,1) = "<a href=""m_vgroups.asp"">检阅组及权限</a>"
	aMenus(2,2) = "<a href=""m_inptgroup.asp"">添加新组</a>"
	aMenus(2,3) = "<a href=""m_qusers.asp"">用户查询改组</a>"

aMenus(3,0) = "关于我们"
	aMenus(3,1) = "<a href=""http://www.IceSoft.com.cn"">www.IceSoft.com.cn</a>"
	aMenus(3,2) = "<a href=""http://www.5wind.com"">www.5wind.com</a>"
	aMenus(3,3) = "<a href=""http://www.xurui.com"">www.xurui.com<br>（我的个人主页）</a>"

aIcons(0) = "<span class=""Wingdings"">0</span>"
aIcons(1) = "<span class=""Wingdings"">1</span>"
aIcons(2) = "<span class=""Wingdings"">2</span>"
aIcons(3) = "<span class=""Wingdings"">&</span>"

sSwitch = CInt(Request.QueryString("Switch"))
sWhich = CInt(Request.QueryString("Which"))
sTemp = aIcons(3) & "<a href=""../default.asp"">聊天室入口</a><br>" & _
		aIcons(3) & "<a href=""m_login.asp"">管理员登陆</a><br>"
For i = 0 To iMenu
	If sSwitch = 1 And sWhich = i Then
		sTemp = sTemp & aIcons(1) & "<a href=""" & sScriptName & "?Which=" & i & "&Switch=0"" target=""_self"">" & aMenus(i,0) & "</a><br>"
		For j = 1 To iMaxPop
			If IsEmpty(aMenus(i,j)) Then Exit For
			sTemp = sTemp & "&nbsp;&nbsp;" & aIcons(2) & aMenus(i,j) & "<br>"
		Next
	Else
		sTemp = sTemp & aIcons(0) & "<a href=""" & sScriptName & "?Which=" & i & "&Switch=1"" target=""_self"">" & aMenus(i,0) & "</a><br>"
	End If
Next
sTemp = sTemp & aIcons(3) & "<a href=""m_adminlogout.asp"">管理员退出</a><br>"
%>
<html>
<head>
<title>TreeMenu---2002C Powered By Lion Shooray</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="tree.css" type="text/css">
<base target="Main">
</head>
<body>
<%=sTemp%>
</body>
</html>