📄 admin_index_left.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.Edition.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
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 "<title>管理导航菜单</title>" & vbCrLf
Response.Write "<script src=""../JS/prototype.js""></script>"
Response.Write "<link href='Admin_left.CSS' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<BODY leftmargin='0' topmargin='0' marginheight='0' marginwidth='0'>" & vbCrLf
Response.Write "<table width=180 border='0' align=center cellpadding=0 cellspacing=0>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=44 valign=top><img src='Images/title.gif'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table cellpadding=0 cellspacing=0 width=180 align=center>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=26 class=menu_title onmouseover=""this.className='menu_title2';"" onmouseout=""this.className='menu_title';"" background='Images/title_bg_quit.gif' id='menuTitle0'> <a href='Admin_Index_Main.asp' target='main'><b><span class='glow'>管理首页</span></b></a><span class='glow'> | </span><a href='Admin_Login.asp?Action=Logout' target='_top'><b><span class='glow'>退出</span></b></a> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=97 background='Images/title_bg_admin.gif' style='display:' id='submenu0'><div style='width:180'>" & vbCrLf
Response.Write " <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=25>您的用户名：" & AdminName & "</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=25>您的身份："
Select Case AdminPurview
Case 1
Response.Write "超级管理员"
Case 2
Response.Write "<a href='Admin_ShowPurview.asp' target='main'>普通管理员</a>"
End Select
Dim Message
Set Message = Conn.Execute("select Count(0) from PE_Message where Incept = '" & UserName & "' and delR=0 and Flag=0 and IsSend=1")
If Message.EOF And Message.Bof Then
UnreadMsg = 0
Else
UnreadMsg = Message(0)
End If
Set Message = Nothing
Response.Write "</td></tr><tr><td height=20>待阅短信：" & vbCrLf
If UnreadMsg > 0 Then
Response.Write " <b><font color=red>" & UnreadMsg & "</font></b> 条"
Else
Response.Write " <b><font color=gray>0</font></b> 条"
End If
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </div>" & vbCrLf
Response.Write " <div style='width:167'>" & vbCrLf
Response.Write " <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=20></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </div></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Dim ShowCreateHTML, strActionLink, ShowAdmin_Guest, ShowAdmin_Shop
ShowAdmin_Shop = False
ShowCreateHTML = False
Dim sqlChannel, rsChannel
sqlChannel = "select * from PE_Channel where ChannelType<=1"
Select Case SystemEdition
Case "CMS", "GPS", "EPS"
sqlChannel = sqlChannel & " and ModuleType<5"
Case "eShop", "ECS"
sqlChannel = sqlChannel & " and ModuleType<6"
Case "IPS", "All"
sqlChannel = sqlChannel & " and ModuleType<7"
End Select
sqlChannel = sqlChannel & " order by OrderID"
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"
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 "<table cellpadding=0 cellspacing=0 width=167 align=center><tr>" & vbCrLf
Response.Write "<td height=28 class=menu_title onmouseover=""this.className='menu_title2'""; onmouseout=""this.className='menu_title'""; background='Images/Admin_left_" & rsChannel("ModuleType") & ".gif' id=menuTitle" & ChannelID & " onclick=""new Element.toggle('submenu" & ChannelID & "')"" style='cursor:hand;'>" & vbCrLf
If rsChannel("ModuleType") = 6 Then
Response.Write "<a href='Admin_Help_Supply.asp?ChannelID=" & ChannelID & "' target=main><span class=glow>" & ChannelName & "管理</span></a>"
Else
Response.Write "<a href='Admin_Help_Channel.asp?ChannelID=" & ChannelID & "' target=main><span class=glow>" & ChannelName & "管理</span></a>"
End If
Response.Write "</td></tr><tr><td style='display:none' align='right' id='submenu" & ChannelID & "'><div class=sec_menu style='width:165'><table cellpadding=0 cellspacing=0 align=center width=132>" & vbCrLf
If rsChannel("ModuleType") = 5 Then
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&ProductKind=1' target=main>添加" & ChannelShortName & "（实物）</a></td></tr>" & vbCrLf
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&ProductKind=2' target=main>添加" & ChannelShortName & "（软件）</a></td></tr>" & vbCrLf
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&ProductKind=3' target=main>添加" & ChannelShortName & "（点卡）</a></td></tr>" & vbCrLf
Response.Write "<tr><td height=20><a href='Admin_Card.asp' target=main>充值卡管理</a></td></tr>" & vbCrLf
Else
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&AddType=1' target=main>添加" & ChannelShortName & "</a></td></tr>" & vbCrLf
If rsChannel("ModuleType") = 1 Then
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Receive&Status=9' target=main>签收" & ChannelShortName & "管理</a></td></tr>"
End If
If rsChannel("ModuleType") = 2 Then
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Add&AddType=3' target=main>添加" & ChannelShortName & "（镜像模式）</a></td></tr>" & vbCrLf
End If
If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
If rsChannel("ModuleType") = 3 Then
Response.Write "<tr><td height=20><a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=Add&AddType=3' target=main>添加" & ChannelShortName & "（批量模式）</a></td></tr>" & vbCrLf
End If
End If
End If
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=My&Status=9' target=main>我添加的" & ChannelShortName & "</a></td></tr>" & vbCrLf
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage' target=main>" & ChannelShortName & "管理</a>"
If rsChannel("ModuleType") = 5 Then
Response.Write " | <a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Price&Status=0' target=main>价格设置</a>"
Else
Response.Write " | <a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Check&Status=0' target=main>审核</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' target=main>生成</a>" & vbCrLf
If AdminPurview = 1 Or AdminPurview_Channel = 1 Then
strActionLink = strActionLink & "<tr height='20'><td><a href='Admin_CreateHTML.asp?ChannelID=" & ChannelID & "' target=main>" & ChannelName & "生成管理</a></td></tr>"
End If
End If
Response.Write "</td></tr>"
If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Special&Status=9' target=main>专题" & ChannelShortName & "管理</a></td></tr>" & vbCrLf
End If
If AdminPurview = 1 Or AdminPurview_Channel = 1 Then
If rsChannel("ModuleType") = 2 Then
Response.Write "<tr><td height=20><a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=ShowReplace' target=main>下载地址批量修改</a></td></tr>" & vbCrLf
End If
Response.Write "<tr><td height=20><a href='Admin_Comment.asp?ChannelID=" & ChannelID & "' target=main>" & ChannelShortName & "评论管理</a></td></tr>" & vbCrLf
Response.Write "<tr><td height=20><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=Manage&ManageType=Recyclebin' target=main>" & ChannelShortName & "回收站管理</a></td></tr>" & vbCrLf
Response.Write "<tr><td height=10>=====================</td></tr>" & vbCrLf
Response.Write "<tr><td height=20><a href='Admin_Channel.asp?Action=Modify&iChannelID=" & ChannelID & "' target=main>" & ChannelName & "设置</a></td></tr>" & vbCrLf
Response.Write "<tr><td height=20><a href='Admin_Class.asp?ChannelID=" & ChannelID & "' target=main>栏目管理</a> | <a href='Admin_Special.asp?ChannelID=" & ChannelID & "' target=main>专题管理</a></td></tr>" & vbCrLf
Select Case rsChannel("ModuleType")
Case 1, 5
Response.Write "<tr><td height=20><a href='Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadFiles' target=main>上传文件管理</a> | <a href='Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadFiles' target=main>清理</a></td></tr>" & vbCrLf
Case 2
Response.Write "<tr><td height=20><a href='Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadSoftPic' target=main>上传图片管理</a> | <a href='Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadSoftPic' target=main>清理</a></td></tr>" & vbCrLf
Response.Write "<tr><td height=20><a href='Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadSoft' target=main>上传文件管理</a> | <a href='Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadSoft' target=main>清理</a></td></tr>" & vbCrLf
Case 3, 6
Response.Write "<tr><td height=20><a href='Admin_UploadFile.asp?ChannelID=" & ChannelID & "&UploadDir=UploadPhotos' target=main>上传图片管理</a> | <a href='Admin_UploadFile_Clear.asp?ChannelID=" & ChannelID & "&Action=Clear&UploadDir=UploadPhotos' target=main>清理</a></td></tr>" & vbCrLf
End Select
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -