<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.Edition.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2009 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Const NeedCheckComeUrl = True   '是否需要检查外部访问

Const PurviewLevel = 0      '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0   '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = ""   '其他权限

Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<meta http-equiv=""X-UA-Compatible"" content=""IE=EmulateIE7"" /> " & vbCrLf
Response.Write "<title>管理导航菜单</title>" & vbCrLf
Response.Write "<base target=""main"">" & vbCrLf
Response.Write "<script src=""js/menu.js""></script>"
Response.Write "<link href=""Admin_left.CSS"" rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body style=""background-color:transparent; height:100%; overflow-y: scroll; overflow-x: hidden;  scrollbar-face-color:#2F8DBB;scrollbar-shadow-color:#2F8DBB;scrollbar-highlight-color:#ccc;scrollbar-3dlight-color:#2F8DBB;scrollbar-arrow-color:#999999;scrollbar-track-color:#2F8DBB;"">" & vbCrLf
Response.Write "<ul id=""menuList"">"& vbCrLf
Dim ShowCreateHTML, strActionLink, ShowAdmin_Guest, ShowAdmin_Shop
ShowAdmin_Shop = False
ShowCreateHTML = False

Dim sqlChannel, rsChannel,irsChannel
sqlChannel = "select * from SQ_Channel where ChannelType<=1"
Select Case SystemEdition
Case "CMS", "GPS", "EPS"
    sqlChannel = sqlChannel & " and ModuleType<5 or ModuleType = 7"
Case "eShop", "ECS"
    sqlChannel = sqlChannel & " and ModuleType<6 "
Case "IPS", "All"
    sqlChannel = sqlChannel & " and ModuleType<8"
End Select
sqlChannel = sqlChannel & " order by OrderID"
irsChannel = 1
Set rsChannel = Conn.Execute(sqlChannel)
Do While Not rsChannel.EOF
    If rsChannel("ModuleType") = 4 Then
        If rsChannel("Disabled") = True Then
            ShowAdmin_Guest = False
        Else
            ShowAdmin_Guest = True
        End If
    Else
        If rsChannel("Disabled") = False Then
            ChannelID = rsChannel("ChannelID")
            ChannelName = Trim(rsChannel("ChannelName"))
            ChannelShortName = Trim(rsChannel("ChannelShortName"))
            ChannelDir = Trim(rsChannel("ChannelDir"))
            Select Case rsChannel("ModuleType")
            Case 1
                ModuleName = "Article"
            Case 2
                ModuleName = "Soft"
            Case 3
                ModuleName = "Photo"
            Case 5
                ModuleName = "Product"
            Case 6
                ModuleName = "Supply"
			Case 7
                ModuleName = "Ask"
            End Select
            AdminPurview_Channel = rsGetAdmin("AdminPurview_" & ChannelDir)
            If IsNull(AdminPurview_Channel) Then
                AdminPurview_Channel = 5
            Else
                AdminPurview_Channel = CLng(AdminPurview_Channel)
            End If

            
            If AdminPurview = 1 Or AdminPurview_Channel <= 3 Then
			Response.Write "  <li>"& vbCrLf
                If rsChannel("ModuleType") = 6 Then
                    Response.Write "    <a href=""Admin_Help_Supply.asp?ChannelID=" & ChannelID & """ id=""menu"&irsChannel&"""class=""actuator""><span class=""glow"">" & ChannelName & "管理</span></a>" & vbCrLf
                Else
                    Response.Write "    <a href=""Admin_Help_Channel.asp?ChannelID=" & ChannelID & """ id=""menu"&irsChannel&""" class=""actuator""><span class=glow>" & ChannelName & "管理</span></a>" & vbCrLf
                End If
                Response.Write "    <ul id=""submenu"&irsChannel&""" class=""submenu""> " & vbCrLf
                If rsChannel("ModuleType") = 5 Then
                    Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&ProductKind=1"">添加" & ChannelShortName & "（实物）</a></li>" & vbCrLf
                    Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&ProductKind=2"">添加" & ChannelShortName & "（软件）</a></li>" & vbCrLf
                    Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&ProductKind=3"">添加" & ChannelShortName & "（点卡）</a></li>" & vbCrLf
                    Response.Write "      <li><a href=""Admin_Card.asp"">充值卡管理</a></li>" & vbCrLf
                Else
                    	Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&AddType=1"">添加" & ChannelShortName & "</a></li>" & vbCrLf
                    If rsChannel("ModuleType") = 1 or rsChannel("ModuleType") = 7 Then
                        Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Receive&Status=9"">签收" & ChannelShortName & "管理</a></li>"
                    End If
                    If rsChannel("ModuleType") = 2 Then
                        Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&AddType=3"">添加" & ChannelShortName & "（镜像模式）</a></li>" & vbCrLf
                    End If
                    If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
                        If rsChannel("ModuleType") = 3 Then
                            Response.Write "      <li><a href=""Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=Add&AddType=3"">添加" & ChannelShortName & "（批量模式）</a></li>" & vbCrLf
                        End If
                    End If
                End If
                Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=My&Status=9"">我添加的" & ChannelShortName & "</a></li>" & vbCrLf
                Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage"">" & ChannelShortName & "管理</a>"
                If rsChannel("ModuleType") = 5 Then
                    Response.Write " | <a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Price&Status=0"">价格设置</a>"
                Else
                    Response.Write " | <a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Check&Status=0"">审核</a>"
                End If
                If rsChannel("UseCreateHTML") > 0 And ObjInstalled_FSO = True Then
                    ShowCreateHTML = True
                    Response.Write " | <a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&Status=3&ManageType=HTML"">生成</a>" & vbCrLf
                    If AdminPurview = 1 Or AdminPurview_Channel = 1 Then
                        strActionLink = strActionLink & "     <li><a href=""Admin_CreateHTML.asp?ChannelID=" & ChannelID & """>" & ChannelName & "生成管理</a></li>"
                    End If
                End If
                If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
                    Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Special&Status=9"">专题" & ChannelShortName & "管理</a></li>" & vbCrLf
                End If
                If AdminPurview = 1 Or AdminPurview_Channel = 1 Then
                    If rsChannel("ModuleType") = 2 Then
                        Response.Write "      <li><a href=""Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=ShowReplace"">下载地址批量修改</a></li>" & vbCrLf
                    End If
                    Response.Write "      <li><a href=""Admin_Comment.asp?ChannelID=" & ChannelID & """>" & ChannelShortName & "评论管理</a></li>" & vbCrLf
                    Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Recyclebin"">" & ChannelShortName & "回收站管理</a></li>" & vbCrLf
                    Response.Write "      <li>=====================</li>" & vbCrLf
                    Response.Write "      <li><a href=""Admin_Channel.asp?Action=Modify&iChannelID=" & ChannelID & """>" & ChannelName & "设置</a></li>" & vbCrLf
                    Response.Write "      <li><a href=""Admin_Class.asp?ChannelID=" & ChannelID & """>栏目管理</a> | <a href=""Admin_Special.asp?ChannelID=" & ChannelID & """>专题管理</a></li>" & vbCrLf
                    Select Case rsChannel("ModuleType")
                    Case 1, 5
                        Response.Write "      <li><a href=""Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadFiles"">上传文件管理</a> | <a href=""Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadFiles"">清理</a></li>" & vbCrLf
                    Case 2
                        Response.Write "      <li><a href=""Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadSoftPic"">上传图片管理</a> | <a href=""Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadSoftPic"">清理</a></li>" & vbCrLf
                        Response.Write "      <li><a href=""Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadSoft"">上传文件管理</a> | <a href=""Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadSoft"">清理</a></li>" & vbCrLf
                    Case 3, 6
                        Response.Write "      <li><a href=""Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadPhotos"">上传图片管理</a> | <a href=""Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadPhotos"">清理</a></li>" & vbCrLf
                    End Select

                    If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Menu_" & ChannelDir) = True Then
                        Response.Write "      <li><a href=""Admin_RootClass_Menu.asp?ChannelID=" & ChannelID & """>顶部菜单设置</a> | <a href=""Admin_RootClass_Menu.asp?Action=ShowCreate&ChannelID=" & ChannelID & """>生成</a></li>" & vbCrLf
                    End If
                    If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Template_" & ChannelDir) = True Or CheckPurview_Other(AdminPurview_Others, "JsFile_" & ChannelDir) = True Then
                        If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Template_" & ChannelDir) = True Then
                            Response.Write "      <li><a href=""Admin_Template.asp?ChannelID=" & ChannelID & """>" & ChannelShortName & "模板页管理</a></li>" & vbCrLf
                        End If
                        If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "JsFile_" & ChannelDir) = True And ObjInstalled_FSO = True) And (rsChannel("ModuleType") <> 6) Then
                            Response.Write "      <li><a href=""Admin_" & ModuleName & "JS.asp?ChannelID=" & ChannelID & """>" & ChannelShortName & "JS文件管理</a></li>" & vbCrLf
                        End If
                    End If
                    If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Keyword_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
                        Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Keyword"">" & ChannelShortName & "关键字管理</a></li>"
                    End If
                    If rsChannel("ModuleType") = 5 Then
                        If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Producer_" & ChannelDir) = True Then
                            Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Producer"">厂商管理</a></li>"
                        End If
                        If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Trademark_" & ChannelDir) = True Then
                            Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Trademark"">品牌管理</a></li>"
                        End If
                    Else
                        If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Author_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
							If  rsChannel("ModuleType") = 7 Then
								Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Author"">专家管理</a>"
							Else
                            	Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Author"">作者管理</a>"
							End If
                        End If
                        If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Copyfrom_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
                            Response.Write " | <a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=CopyFrom"">来源管理</a></li>"
                        End If
                    End If
                    If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "XML_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
                        Response.Write "      <li><a href=""Admin_CreateXml.asp?Action=GreatNav&ChannelID=" & ChannelID & """>更新栏目XML数据</a></li>" & vbCrLf
                    End If
                    If rsChannel("ModuleType") = 2 Then
                        Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Other"">其他管理</a></li>" & vbCrLf
                        Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=DownError"">错误信息管理</a></li>" & vbCrLf
                        Response.Write "      <li><a href=""Admin_DownServer.asp?ChannelID=" & ChannelID & """>镜像服务器管理</a></li>" & vbCrLf
                    End If
                    If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Field_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
                        Response.Write "      <li><a href=""Admin_Field.asp?ChannelID=" & ChannelID & """>自定义字段管理</a></li>" & vbCrLf
                    End If
                    If rsChannel("ModuleType") = 1 Then
                        If FoundInArr(rsChannel("arrEnabledTabs"), "Copyfee", ",") = True Then
                            Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ManageType=PayMoney&PayStatus=False"">稿费管理</a></li>" & vbCrLf
                        End If
                    End If
                End If
                Response.Write "    </ul>" & vbCrLf
				Response.Write "  </li>" & vbCrLf
            End If
        End If
    End If
    rsChannel.MoveNext
	irsChannel = irsChannel + 1
Loop
rsChannel.Close
Set rsChannel = Nothing

'If FoundInArr(AllModules, "Ask", ",") Then
'    If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Ask") = True Then
'        Response.Write "  <li>" & vbCrLf
'        Response.Write "    <a href=""Admin_Ask.asp"" id=""menu"&irsChannel&""" class=""actuator""><span class=""glow"">问答中心管理</span></a>" & vbCrLf
'        Response.Write "    <ul id=""submenu"&irsChannel&""" class=""submenu"">" & vbCrLf
'        Response.Write "      <li><a href=""Admin_Ask.asp?Action=Add"">添加问题</a></li>" & vbCrLf
'        Response.Write "      <li><a href=""Admin_Ask.Manage.asp?Action=ItemManage"">采纳管理</a></li>" & vbCrLf
'        Response.Write "      <li><a href=""Admin_Filter.asp?Action=main"">过滤管理</a></li>" & vbCrLf
'        Response.Write "      <li><a href=""Admin_Ask.History.asp?Action=main"">我添加的问题</a></li>" & vbCrLf
'		Response.Write "      <li><a href=""Admin_Ask.asp?ChannelID=" & ChannelID & "&Action=Manage"">问题管理</a>"
'		'If rsChannel("ModuleType") = 5 Then
'			'Response.Write " | <a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Price&Status=0"">价格设置</a>"
'		'Else
'			Response.Write " | <a href=""Admin_Ask.asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Check&Status=0"">审核</a>"
'		'End If
'		'If rsChannel("UseCreateHTML") > 0 And ObjInstalled_FSO = True Then
'			ShowCreateHTML = True
'			Response.Write " | <a href=""Admin_Ask.asp?ChannelID=" & ChannelID & "&Action=Manage&Status=3&ManageType=HTM"">生成</a>" & vbCrLf
'			If AdminPurview = 1 Or AdminPurview_Channel = 1 Then
'				strActionLink = strActionLink & "     <li><a href=""Admin_CreateHTML.asp?ChannelID=" & ChannelID & """>问答生成管理</a></li>"
'			End If
'		'End If
'		If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
'			Response.Write "      <li><a href=""Admin_Ask.asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Special&Status=9"">专题问答管理</a></li>" & vbCrLf
'		End If
'		If AdminPurview = 1 Or AdminPurview_Channel = 1 Then
'			'If rsChannel("ModuleType") = 2 Then
'				'Response.Write "      <li><a href=""Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=ShowReplace"">下载地址批量修改</a></li>" & vbCrLf
'			'End If
'			'Response.Write "      <li><a href=""Admin_Comment.asp?ChannelID=" & ChannelID & """>" & ChannelShortName & "评论管理</a></li>" & vbCrLf
'			Response.Write "      <li><a href=""Admin_Ask.asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Recyclebin"">" & ChannelShortName & "回收站管理</a></li>" & vbCrLf
'			Response.Write "      <li>=====================</li>" & vbCrLf
'			Response.Write "      <li><a href=""Admin_Channel.asp?Action=Modify&iChannelID=" & ChannelID & """>问答中心设置</a></li>" & vbCrLf
'			Response.Write "      <li><a href=""Admin_Class.asp?ChannelID=" & ChannelID & """>栏目管理</a> | <a href=""Admin_Special.asp?ChannelID=" & ChannelID & """>专题管理</a></li>" & vbCrLf
'			'Select Case rsChannel("ModuleType")
'			'Case 1, 5
'				Response.Write "      <li><a href=""Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadFiles"">上传文件管理</a> | <a href=""Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadFiles"">清理</a></li>" & vbCrLf
'			'Case 2
'				'Response.Write "      <li><a href=""Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadSoftPic"">上传图片管理</a> | <a href=""Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadSoftPic"">清理</a></li>" & vbCrLf
'				'Response.Write "      <li><a href=""Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadSoft"">上传文件管理</a> | <a href=""Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadSoft"">清理</a></li>" & vbCrLf
'			'Case 3, 6
'				'Response.Write "      <li><a href=""Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadPhotos"">上传图片管理</a> | <a href=""Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadPhotos"">清理</a></li>" & vbCrLf
'			'End Select
'
'			If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Menu_" & ChannelDir) = True Then
'				Response.Write "      <li><a href=""Admin_RootClass_Menu.asp?ChannelID=" & ChannelID & """>顶部菜单设置</a> | <a href=""Admin_RootClass_Menu.asp?Action=ShowCreate&ChannelID=" & ChannelID & """>生成</a></li>" & vbCrLf
'			End If
'			If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Template_" & ChannelDir) = True Or CheckPurview_Other(AdminPurview_Others, "JsFile_" & ChannelDir) = True Then
'				If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Template_" & ChannelDir) = True Then
'					Response.Write "      <li><a href=""Admin_Template.asp?ChannelID=" & ChannelID & """> 问答模板页管理</a></li>" & vbCrLf
'				End If
'				'If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "JsFile_" & ChannelDir) = True And ObjInstalled_FSO = True) And (rsChannel("ModuleType") <> 6) Then
'					Response.Write "      <li><a href=""Admin_AskJS.asp?ChannelID=" & ChannelID & """>问答JS文件管理</a></li>" & vbCrLf
'				'End If
'			End If
'			'If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Keyword_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
'				Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Keyword"">问答关键字管理</a></li>"
'			'End If
'			'If rsChannel("ModuleType") = 5 Then
'				'If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Producer_" & ChannelDir) = True Then
'					'Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Producer"">厂商管理</a></li>"
'				'End If
'				'If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Trademark_" & ChannelDir) = True Then
'					'Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Trademark"">品牌管理</a></li>"
'				'End If
'			'Else
'				'If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Author_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
'					Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Author"">作者管理</a>"
'				'End If
'				'If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Copyfrom_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
'					Response.Write " | <a href=""Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=CopyFrom"">来源管理</a></li>"
'				'End If
'			'End If
'			'If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "XML_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
'				Response.Write "      <li><a href=""Admin_CreateXml.asp?Action=GreatNav&ChannelID=" & ChannelID & """>更新栏目XML数据</a></li>" & vbCrLf
'			'End If
'			'If rsChannel("ModuleType") = 2 Then
'				'Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Other"">其他管理</a></li>" & vbCrLf
'				'Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=DownError"">错误信息管理</a></li>" & vbCrLf
'				'Response.Write "      <li><a href=""Admin_DownServer.asp?ChannelID=" & ChannelID & """>镜像服务器管理</a></li>" & vbCrLf
'			'End If
'			'If (AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Field_" & ChannelDir) = True) And (rsChannel("ModuleType") <> 6) Then
'				Response.Write "      <li><a href=""Admin_Field.asp?ChannelID=" & ChannelID & """>自定义字段管理</a></li>" & vbCrLf
'			'End If
'			'If rsChannel("ModuleType") = 1 Then
'				'If FoundInArr(rsChannel("arrEnabledTabs"), "Copyfee", ",") = True Then
'					'Response.Write "      <li><a href=""Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ManageType=PayMoney&PayStatus=False"">稿费管理</a></li>" & vbCrLf
'				'End If
'			'End If
'		End If
'        Response.Write "    </ul>" & vbCrLf
'        Response.Write "  </li>" & vbCrLf
'    End If
'End If

If FoundInArr(AllModules, "Collection", ",") Then
    If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Collection") = True Then
        Response.Write "  <li>" & vbCrLf
        Response.Write "    <a href=""Admin_Help_Collection.asp"" id=""menu"&irsChannel&""" class=""actuator""><span class=""glow"">采集管理</span></a>" & vbCrLf
        Response.Write "    <ul id=""submenu"&irsChannel&""" class=""submenu"">" & vbCrLf
        Response.Write "      <li><a href=""Admin_Collection.asp?Action=Main"">文章采集</a></li>" & vbCrLf
        Response.Write "      <li><a href=""Admin_CollectionManage.asp?Action=ItemManage"">项目管理</a></li>" & vbCrLf
        Response.Write "      <li><a href=""Admin_Filter.asp?Action=main"">过滤管理</a></li>" & vbCrLf
        Response.Write "      <li><a href=""Admin_CollectionHistory.asp?Action=main"">采集历史记录</a></li>" & vbCrLf
        Response.Write "      <li><a href=""Admin_CollectionManage.asp?Action=Import"">项目导入</a> | <a href=""Admin_CollectionManage.asp?Action=Export"">项目导出</a></li>" & vbCrLf
        Response.Write "      <li><a href=""Admin_Timing.asp?Action=main"">定时设置</a> | <a href=""Admin_Timing.asp?Action=DoMainTiming"" target=""_blank"">启动定时</a></li>" & vbCrLf
        Response.Write "      <li><a href=""Admin_AreaCollection.asp?Action=Main"">区域采集管理</a></li>" & vbCrLf
        Response.Write "    </ul>" & vbCrLf
        Response.Write "  </li>" & vbCrLf
    End If
End If

Response.Write "  <li>" & vbCrLf
Response.Write "    <a href=""Admin_Help_Create.asp"" id=""menu"&irsChannel + 1 &""" class=""actuator""><span class=""glow"">网站生成管理</span></a>" & vbCrLf
Response.Write "    <ul id=""submenu"&irsChannel + 1 &""" class=""submenu"">" & vbCrLf
If AdminPurview = 1 And FileExt_SiteIndex < 4 Then
    Response.Write "      <li><a href=""Admin_CreateSiteIndex.asp"">生成网站首页</a></li>" & vbCrLf
End If
If AdminPurview = 1 Then
    Response.Write "      <li><a href=""Admin_CreateOther.asp"">生成网站综合数据</a></li>" & vbCrLf
End If
If AdminPurview = 1 And FileExt_SiteSpecial < 4 Then
    Response.Write "      <li><a href=""Admin_CreateHTML.asp?Action=SiteSpecial"">全站专题生成管理</a></li>" & vbCrLf
End If
Response.Write strActionLink & vbCrLf
Response.Write "      </li>"
If FileExt_SiteIndex < 4 Or FileExt_SiteSpecial < 4 Or strActionLink <> "" Then
    Response.Write "      <li><a href=""Admin_Timing.asp?Action=main"">定时设置</a> | <a href=""Admin_Timing.asp?Action=DoMainTiming"">启动定时</a></li>" & vbCrLf
End If
Response.Write "    </ul>" & vbCrLf
Response.Write "  </li>" & vbCrLf

Dim PurviewPassed_User
PurviewPassed = False
PurviewPassed_User = False

arrPurview(0) = CheckPurview_Other(AdminPurview_Others, "User_View")
arrPurview(1) = CheckPurview_Other(AdminPurview_Others, "User_ModifyInfo")
arrPurview(2) = CheckPurview_Other(AdminPurview_Others, "User_MofidyPurview")
arrPurview(3) = CheckPurview_Other(AdminPurview_Others, "User_Lock")
arrPurview(4) = CheckPurview_Other(AdminPurview_Others, "User_Del")
arrPurview(5) = CheckPurview_Other(AdminPurview_Others, "User_Update")
arrPurview(6) = CheckPurview_Other(AdminPurview_Others, "User_Money")
arrPurview(7) = CheckPurview_Other(AdminPurview_Others, "User_Point")
arrPurview(8) = CheckPurview_Other(AdminPurview_Others, "User_Valid")
arrPurview(9) = CheckPurview_Other(AdminPurview_Others, "UserGroup")
arrPurview(10) = CheckPurview_Other(AdminPurview_Others, "Card")
arrPurview(11) = CheckPurview_Other(AdminPurview_Others, "ConsumeLog")
arrPurview(12) = CheckPurview_Other(AdminPurview_Others, "RechargeLog")
arrPurview(13) = CheckPurview_Other(AdminPurview_Others, "Message")
arrPurview(14) = CheckPurview_Other(AdminPurview_Others, "MailList")
arrPurview(15) = CheckPurview_Other(AdminPurview_Others, "Payment")
arrPurview(16) = CheckPurview_Other(AdminPurview_Others, "Bankroll")
arrPurview(17) = CheckPurview_Other(AdminPurview_Others, "Bank")
For PurviewIndex = 0 To 8
  If arrPurview(PurviewIndex) = True Then
	PurviewPassed = True
	PurviewPassed_User = True
	Exit For
  End If
Next
For PurviewIndex = 9 To 16
  If arrPurview(PurviewIndex) = True Then
	PurviewPassed = True
	Exit For
  End If
Next
If AdminPurview = 1 Or PurviewPassed = True Then
  Response.Write "  <li>" & vbCrLf
  Response.Write "    <a href=""Admin_Help_User.asp"" id=""menu"&irsChannel + 2 &""" class=""actuator""><span class=""glow"">用户管理</span></a>" & vbCrLf
  Response.Write "    <ul id=""submenu"&irsChannel + 2&""" class=""submenu"">" & vbCrLf
  If AdminPurview = 1 Or PurviewPassed_User = True  Then
	  Response.Write "    <li><a href=Admin_Orders.asp >在线预约</a></li>" & vbCrLf
	  Response.Write "      <li><a href=""Admin_User.asp"">会员管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(9) = True Then
	  Response.Write "      <li><a href=""Admin_UserGroup.asp"">会员组管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(10) = True Then
	  Response.Write "      <li><a href=""Admin_Card.asp"">充值卡管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(11) = True Then
	  Response.Write "      <li><a href=""Admin_ConsumeLog.asp"">会员" & PointName & "明细</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(12) = True Then
	  Response.Write "      <li><a href=""Admin_RechargeLog.asp"">会员有效期明细</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(13) = True Then
	  Response.Write "      <li><a href=""Admin_Message.asp"">短消息管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(14) = True Then
	  Response.Write "      <li><a href=""Admin_Maillist.asp"">邮件列表管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(14) = True Then
	  Response.Write "      <li><a href=""Admin_Mail.asp"">邮件订阅管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(15) = True Then
	  Response.Write "      <li><a href=""Admin_Payment.asp"">在线支付记录管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(16) = True Then
	  Response.Write "      <li><a href=""Admin_Bankroll.asp"">资金明细查询</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or PurviewPassed_User = True Then
	  Response.Write "      <li><a href=""Admin_SpaceManage.asp"">聚合空间管理</a> | <a href=""Admin_SpaceManage.asp?Action=Check"">审核</a></li>" & vbCrLf
	  Response.Write "      <li><a href=""Admin_SpaceManage.asp?Action=Kind"">空间分类管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Then
	  Response.Write "      <li><a href=""Admin_Admin.asp"">管理员管理</a></li>" & vbCrLf
	  Response.Write "      <li><a href=""Admin_Template.asp?TemplateType=8&TempType=1"">会员模板页管理</a></li>" & vbCrLf
  End If
  Response.Write "    </ul>" & vbCrLf
  Response.Write "  </li>" & vbCrLf
End If
If FoundInArr(AllModules, "SMS", ",") Then
PurviewPassed = False
    arrPurview(0) = CheckPurview_Other(AdminPurview_Others, "SendSMSToMember")
    arrPurview(1) = CheckPurview_Other(AdminPurview_Others, "SendSMSToContacter")
    arrPurview(2) = CheckPurview_Other(AdminPurview_Others, "SendSMSToConsignee")
    arrPurview(3) = CheckPurview_Other(AdminPurview_Others, "SendSMSToOther")
    arrPurview(4) = CheckPurview_Other(AdminPurview_Others, "ViewMessageLog")
    arrPurview(5) = CheckPurview_Other(AdminPurview_Others, "SMS_MessageReceive")
    For PurviewIndex = 0 To 5
        If arrPurview(PurviewIndex) = True Then
            PurviewPassed = True
            Exit For
        End If
    Next
  If AdminPurview = 1 Or PurviewPassed = True Then
	Response.Write "  <li>" & vbCrLf
	Response.Write "    <a href=""Admin_Help_SMS.asp"" id=""menu"&irsChannel + 3&""" class=""actuator""><span class=glow>手机短信管理</span></a>" & vbCrLf
	Response.Write "    <ul id=""submenu"&irsChannel + 3 &""" class=""submenu"">" & vbCrLf
	If AdminPurview = 1 Or arrPurview(0) = True Then
	  Response.Write "      <li><a href=""Admin_SMS.asp?SendTo=Member"">发送给会员</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or arrPurview(1) = True Then
	   Response.Write "      <li><a href=""Admin_SMS.asp?SendTo=Contacter"">发送给联系人</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or arrPurview(2) = True Then
	   Response.Write "      <li><a href=""Admin_SMS.asp?SendTo=Consignee"">发送给订单中的收货人</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or arrPurview(3) = True Then
	  Response.Write "      <li><a href=""Admin_SMS.asp?SendTo=Other"">发送给其他人</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or arrPurview(4) = True Then
	  Response.Write "      <li><a href=""Admin_SMSLog.asp"">查看短信发送结果</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or arrPurview(5) = True Then
	  Response.Write "      <li><a href=""Admin_SMSReceive.asp"">查看接收到的短信</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Then
	  Response.Write "      <li><a href='http://sms.powereasy.net/Member/Recharge.aspx'>短信通充值</a></li>" & vbCrLf
	End If
	Response.Write "    </ul>" & vbCrLf
	Response.Write "  </li>" & vbCrLf
  End If
End If

If ShowAdmin_Guest = True Then
  If AdminPurview = 1 Or AdminPurview_GuestBook <= 3 Then
	Response.Write "  <li>" & vbCrLf
	Response.Write "    <a href=""Admin_Help_Guest.asp"" id=""menu"&irsChannel + 4&""" class=""actuator""><span class=""glow"">留言板管理</span></a>" & vbCrLf
	Response.Write "    <ul id=""submenu"&irsChannel + 4&""" class=""submenu"">" & vbCrLf
	Response.Write "      <li><a href=""Admin_GuestBook.asp?Passed=False"">网站留言审核</a></li>" & vbCrLf
	Response.Write "      <li><a href=""Admin_GuestBook.asp?Passed=All"">网站留言管理</a></li>" & vbCrLf
	If AdminPurview = 1 Or AdminPurview_GuestBook < 3 Then
	  Response.Write "      <li><a href=""Admin_GuestBook.asp?Action=GKind"">留言类别管理</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Channel") = True Then
	  Response.Write "      <li><a href=""Admin_Channel.asp?Action=Modify&iChannelID=4"">留言板设置</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or CheckPurview_Other(AdminPurview_Others, "Template") = True Then
	  Response.Write "      <li><a href=""Admin_Template.asp?ChannelID=4"">留言模板页管理</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or AdminPurview_GuestBook < 2 Then
	  Response.Write "      <li><a href=""Admin_GuestBook.asp?Action=CreateCode"">首页嵌入代码生成</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Then
	  Response.Write "      <li><a href=""Admin_CreateXml.asp?Action=GreatNav&ChannelID=4"">更新栏目XML数据</a></li>" & vbCrLf
	End If
	Response.Write "    </ul>" & vbCrLf
	Response.Write "  </li>" & vbCrLf
  End If
End If

If SystemEdition <> "CMS" And SystemEdition <> "eShop" And FoundInArr(AllModules, "Survey", ",") Then
  PurviewPassed = False
  arrPurview(0) = CheckPurview_Other(AdminPurview_Others, "ViewSurvey")
  arrPurview(1) = CheckPurview_Other(AdminPurview_Others, "AddSurvey")
  arrPurview(2) = CheckPurview_Other(AdminPurview_Others, "ManageSurvey")
  arrPurview(3) = CheckPurview_Other(AdminPurview_Others, "ShowSurveyCountData")
  arrPurview(4) = CheckPurview_Other(AdminPurview_Others, "ManageSurveyTemplate")
  arrPurview(5) = CheckPurview_Other(AdminPurview_Others, "ImportSurveyQuestion")
  arrPurview(6) = CheckPurview_Other(AdminPurview_Others, "ExportSurveyQuestion")
  arrPurview(7) = CheckPurview_Other(AdminPurview_Others, "ViewListQuestion")
  For PurviewIndex = 0 To 7
	If arrPurview(PurviewIndex) = True Then
		PurviewPassed = True
		Exit For
	End If
  Next
  If AdminPurview = 1 Or PurviewPassed = True Then
	Response.Write "    <li>" & vbCrLf
	Response.Write "      <a href=""#"" id=""menu"&irsChannel + 5&""" class=""actuator""><span>问卷调查管理</span></a>" & vbCrLf
	Response.Write "      <ul id=""submenu"&irsChannel + 5&""" class=""submenu"">" & vbCrLf
	If AdminPurview = 1 Or arrPurview(1) = True Then
	  Response.Write "      <li><a href=""Admin_Survey.asp?Action=AddSurvey"">创建问卷</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or arrPurview(0) = True Or arrPurview(2) = True Then
	  Response.Write "      <li><a href=""Admin_Survey.asp"">问卷管理</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or arrPurview(2) = True Then
	  Response.Write "      <li><a href=""Admin_Survey.asp?Action=SurveyCode"">调用代码</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or arrPurview(7) = True Then
	  Response.Write "      <li><a href=""Admin_Survey.asp?Action=ListQuestion"">题目列表</a></li>" & vbCrLf
	End If
	If AdminPurview = 1 Or arrPurview(2) = True Then
	  Response.Write "      <li><a href=""Admin_Survey.asp?Action=ManageTemplate"">问卷模板管理</a></li>" & vbCrLf
	End If
    If AdminPurview = 1 Or arrPurview(5) = True Or arrPurview(6) = True Then
      Response.Write "      <li><a href=""Admin_Survey.asp?Action=ExportQuestion"">问卷题目导出</a> | <a href=""Admin_Survey.asp?Action=ImportQuestion'>导入</a></li>" & vbCrLff
    End If
    Response.Write "    </ul>" & vbCrLf
    Response.Write "  </li>" & vbCrLf
  End If
End If

PurviewPassed = False
arrPurview(0) = CheckPurview_Other(AdminPurview_Others, "Channel")
arrPurview(1) = CheckPurview_Other(AdminPurview_Others, "AD")
arrPurview(2) = CheckPurview_Other(AdminPurview_Others, "FriendSite")
arrPurview(3) = CheckPurview_Other(AdminPurview_Others, "Announce")
arrPurview(4) = CheckPurview_Other(AdminPurview_Others, "Vote")
arrPurview(5) = CheckPurview_Other(AdminPurview_Others, "Counter")
arrPurview(6) = CheckPurview_Other(AdminPurview_Others, "Skin")
arrPurview(7) = CheckPurview_Other(AdminPurview_Others, "Label")
arrPurview(8) = CheckPurview_Other(AdminPurview_Others, "KeyLink")
arrPurview(9) = CheckPurview_Other(AdminPurview_Others, "Rtext")
arrPurview(10) = CheckPurview_Other(AdminPurview_Others, "Template")
arrPurview(11) = CheckPurview_Other(AdminPurview_Others, "Bank")
arrPurview(12) = CheckPurview_Other(AdminPurview_Others, "ShowPage")
For PurviewIndex = 0 To 12
    If arrPurview(PurviewIndex) = True Then
        PurviewPassed = True
        Exit For
    End If
Next
If AdminPurview = 1 Or PurviewPassed = True Then
    Response.Write "  <li>" & vbCrLf
    Response.Write "    <a href=""Admin_Help_SiteConfig.asp"" id=""menu"&irsChannel + 6&""" class=""actuator""><span class=""glow"">系统设置</span></a>" & vbCrLf
    Response.Write "    <ul id=""submenu"&irsChannel + 6&""" class=""submenu"">" & vbCrLf
  If AdminPurview = 1 Then
	Response.Write "      <li><a href=""Admin_SiteConfig.asp"">网站信息配置</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(0) = True Then
	Response.Write "      <li><a href=""Admin_Channel.asp"">网站频道管理</a></li>" & vbCrLf
    Response.Write "      <li><a href=""Admin_Special.asp"">全站专题管理</a></li>" & vbCrLf
  End If
  If (AdminPurview = 1 Or arrPurview(1) = True) And FoundInArr(AllModules, "Advertisement", ",") Then
	Response.Write "      <li><a href=""Admin_Advertisement.asp"">网站广告管理</a></li>" & vbCrLf
  End If
  If (AdminPurview = 1 Or arrPurview(2) = True) And FoundInArr(AllModules, "FriendSite", ",") Then
	Response.Write "      <li><a href=""Admin_FriendSite.asp"">友情链接管理</a></li>" & vbCrLf
  End If
  If (AdminPurview = 1 Or arrPurview(3) = True) And FoundInArr(AllModules, "Announce", ",") Then
	Response.Write "      <li><a href=""Admin_Announce.asp"">网站公告管理</a></li>" & vbCrLf
  End If
  If (AdminPurview = 1 Or arrPurview(4) = True) And FoundInArr(AllModules, "Vote", ",") Then
	Response.Write "      <li><a href=""Admin_Vote.asp"">网站调查管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(5) = True Then
    Response.Write "      <li><a href=""Admin_Counter.asp"">网站统计分析</a> | <a href=""Admin_Counter.asp?Action=ShowConfig"">配置</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(6) = True Then
	Response.Write "      <li><a href=""Admin_Skin.asp"">网站风格管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(10) = True Then
	Response.Write "      <li><a href=""Admin_Template.asp?ChannelID=0"">网站通用模板页管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Then
	Response.Write "      <li><a href=""Admin_TemplateProject.asp?ChannelID=0"">网站模板方案管理</a></li>" & vbCrLf
	Response.Write "      <li><a href=""Admin_SourceManage.asp?ChannelID=0&TypeSelect=Keyword"">网站通用关键字管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(7) = True Then
	Response.Write "      <li><a href=""Admin_Label.asp"">自定义标签管理</a></li>" & vbCrLf
  End If	
  If AdminPurview = 1 Or arrPurview(12) = True Then		
	Response.Write "      <li><a href=""Admin_Page.asp"">自定义页面管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Then
	Response.Write "      <li><a href=""Admin_Log.asp"">网站日志管理</a></li>" & vbCrLf
	Response.Write "      <li><a href=""Admin_SiteCount.asp"">管理员工作量统计</a></li>" & vbCrLf
  End If
  If (AdminPurview = 1 Or arrPurview(8) = True) And FoundInArr(AllModules, "KeyLink", ",") Then
	Response.Write "      <li><a href=""Admin_SourceManage.asp?TypeSelect=KeyLink"">站内链接管理</a></li>" & vbCrLf
  End If
  If (AdminPurview = 1 Or arrPurview(9) = True) And FoundInArr(AllModules, "Rtext", ",") Then
	Response.Write "      <li><a href=""Admin_SourceManage.asp?TypeSelect=Rtext"">字符过滤管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Or arrPurview(11) = True Then
	Response.Write "      <li><a href=""Admin_Bank.asp"">银行帐户管理</a></li>" & vbCrLf
  End If
  If AdminPurview = 1 Then
	Response.Write "      <li><a href=""Admin_PayPlatform.asp"">在线支付平台管理</a></li>" & vbCrLf
	Response.Write "      <li><a href=""Admin_City.asp"">邮政编码管理</a></li>" & vbCrLf
	Response.Write "      <li><a href=""Admin_CompareFilesOnline.asp"">在线比较网站文件</a></li>" & vbCrLf
	Response.Write "    </ul>" & vbCrLf
	Response.Write "  </li>" & vbCrLf
  End If
End If


If AdminPurview = 1 Then
    Response.Write "  <li>" & vbCrLf
    Response.Write "    <a href=""Admin_Help_Database.asp"" id=""menu"&irsChannel + 7&""" class=""actuator""><span class=""glow"">数据库管理</span></a>" & vbCrLf
    Response.Write "    <ul id=""submenu"&irsChannel + 7&""" class=""submenu""> " & vbCrLf
    Response.Write "      <li><a href=""Admin_Database.asp?Action=Backup"">备份数据库</a></li>" & vbCrLf
    Response.Write "      <li><a href=""Admin_Database.asp?Action=Restore"">恢复数据库</a></li>" & vbCrLf
    Response.Write "      <li><a href=""Admin_Database.asp?Action=Compact"">压缩数据库</a></li>" & vbCrLf
    Response.Write "      <li><a href=""Admin_Database.asp?Action=Init"">系统初始化</a></li>" & vbCrLf
    Response.Write "      <li><a href=""Admin_Database.asp?Action=SpaceSize"">系统空间占用</a></li>" & vbCrLf
    Response.Write "    </ul>" & vbCrLf
    Response.Write "  </li>" & vbCrLf
    Response.Write "</ul>" & vbCrLf
End If
Response.Write "</body>" & vbCrLf
Response.Write "</html>" & vbCrLf

rsGetAdmin.Close
Set rsGetAdmin = Nothing
Call CloseConn
%>