📄 admin_showpurview.asp
字号:
<!--#include file="Admin_Common.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 = "" '其他权限
strFileName = "Admin_ShowPurview.asp"
Response.Write "<html><head><title>查看管理权限</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <tr class='topbg'>" & vbCrLf
Response.Write " <td height='22' colspan='2' align='center'><strong>查 看 管 理 权 限</strong></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
Response.Write " <td> <a href='Admin_ShowPurview.asp'>管理权限首页</a>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22'>" & GetChannelList() & "</td>"
Response.Write " </tr>"
Response.Write "</table><br>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td height='22'>" & GetManagePath() & "</td>"
Response.Write " </tr>"
Response.Write "</table>"
If ChannelID = 0 Then
Call ShowAllPurview
ElseIf ChannelID = 4 Then
Call ShowGuestBookPurview
Else
Call ShowChannelPurview
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub ShowAllPurview()
Dim rsChannel, sqlChannel, rsAdmin, Channel_Purview
sqlChannel = "select * from PE_Channel where ChannelType<=1 and ChannelID<>4 and Disabled=" & PE_False & " order by OrderID"
Set rsChannel = Server.CreateObject("adodb.recordset")
rsChannel.Open sqlChannel, Conn, 1, 1
Do While Not rsChannel.EOF
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Set rsAdmin = Conn.Execute("select AdminPurview_" & rsChannel("ChannelDir") & " from PE_Admin where AdminName='" & AdminName & "'")
If Not (rsAdmin.BOF And rsAdmin.EOF) Then
Channel_Purview = rsAdmin(0)
End If
rsAdmin.Close
Set rsAdmin = Nothing
Response.Write " <tr class='title' height='22'>"
Response.Write " <td colspan='4'><strong>" & rsChannel("ChannelName") & "</strong> "
If Channel_Purview = 1 Then Response.Write "（频道管理员）"
If Channel_Purview = 2 Then Response.Write "（栏目总编）"
If Channel_Purview = 3 Then Response.Write "（栏目管理员）"
If Channel_Purview = 4 Then Response.Write "（无权限）"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='30%'>各栏目" & rsChannel("ChannelShortName") & "录入、审核、管理权限</td>"
Response.Write " <td align='center' width='20%'>"
If Channel_Purview <= 2 Then
Response.Write "<font color=blue>全部权限</font>"
ElseIf Channel_Purview = 3 Then
Response.Write "<a href='Admin_ShowPurview.asp?iChannelID=" & rsChannel("ChannelID") & "'><font color=blue>部分权限</font></a>"
Else
Response.Write "<font color=red>无权限</font>"
End If
Response.Write " </td>"
Response.Write " <td width='30%'>专题" & rsChannel("ChannelShortName") & "管理权限</td>"
Response.Write " <td align='center' width='20%'>"
If AdminPurview = 1 Or Channel_Purview <= 2 Then
Response.Write "<font color=blue>√</font>"
Else
Response.Write "<font color=red>×</font>"
End If
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='30%'>栏目管理、专题管理、生成管理权限</td>"
Response.Write " <td align='center' width='20%'>"
If AdminPurview = 1 Or Channel_Purview = 1 Then
Response.Write "<font color=blue>√</font>"
Else
Response.Write "<font color=red>×</font>"
End If
Response.Write " </td>"
Response.Write " <td width='30%'>" & rsChannel("ChannelShortName") & "评论、回收站及其它管理权限</td>"
Response.Write " <td align='center' width='20%'>"
If AdminPurview = 1 Or Channel_Purview = 1 Then
Response.Write "<font color=blue>√</font>"
Else
Response.Write "<font color=red>×</font>"
End If
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='tdbg' colspan='4'>"
Response.Write "<b>更多权限：</b><br>"
Response.Write "模板管理 " & ShowChannelOtherPurview(Channel_Purview, "Template_" & rsChannel("ChannelDir")) & " "
Response.Write "JS文件管理 " & ShowChannelOtherPurview(Channel_Purview, "JsFile_" & rsChannel("ChannelDir")) & " "
Response.Write "顶部菜单 " & ShowChannelOtherPurview(Channel_Purview, "Keyword_" & rsChannel("ChannelDir")) & " "
Response.Write "关键字管理 " & ShowChannelOtherPurview(Channel_Purview, "Template_" & rsChannel("ChannelDir")) & " "
If rsChannel("ModuleType") = 5 Then
Response.Write "厂商管理 " & ShowChannelOtherPurview(Channel_Purview, "Producer_" & rsChannel("ChannelDir")) & " "
Response.Write "品牌管理 " & ShowChannelOtherPurview(Channel_Purview, "Trademark_" & rsChannel("ChannelDir")) & " "
Else
Response.Write "作者管理 " & ShowChannelOtherPurview(Channel_Purview, "Author_" & rsChannel("ChannelDir")) & " "
Response.Write "来源管理 " & ShowChannelOtherPurview(Channel_Purview, "Copyfrom_" & rsChannel("ChannelDir")) & " "
End If
Response.Write "更新XML " & ShowChannelOtherPurview(Channel_Purview, "XML_" & rsChannel("ChannelDir")) & " "
Response.Write "自定义字段 " & ShowChannelOtherPurview(Channel_Purview, "Field_" & rsChannel("ChannelDir")) & " "
Response.Write "广告管理 " & ShowChannelOtherPurview(Channel_Purview, "AD_" & rsChannel("ChannelDir")) & " "
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
rsChannel.MoveNext
Loop
rsChannel.Close
Set rsChannel = Nothing
Dim rsGuestBook, sqlGuestBook, rsAdminGuest, GuestBook_Purview
sqlGuestBook = "select * from PE_Channel where ChannelType<=1 and ChannelID=4 and Disabled=" & PE_False & ""
Set rsGuestBook = Server.CreateObject("adodb.recordset")
rsGuestBook.Open sqlGuestBook, Conn, 1, 1
If Not (rsGuestBook.EOF And rsGuestBook.BOF) Then
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Set rsAdminGuest = Conn.Execute("select AdminPurview_GuestBook from PE_Admin where AdminName='" & AdminName & "'")
If Not (rsAdminGuest.BOF And rsAdminGuest.EOF) Then
GuestBook_Purview = rsAdminGuest(0)
End If
rsAdminGuest.Close
Set rsAdminGuest = Nothing
Response.Write " <tr class='title' height='22'>"
Response.Write " <td colspan='4'><strong>" & rsGuestBook("ChannelName") & "</strong> "
If GuestBook_Purview = 1 Then Response.Write "（频道管理员）"
If GuestBook_Purview = 2 Then Response.Write "（栏目总编）"
If GuestBook_Purview = 3 Then Response.Write "（栏目管理员）"
If GuestBook_Purview = 4 Then Response.Write "（无权限）"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='30%'>各栏目" & rsGuestBook("ChannelShortName") & "修改、删除、移动、审核、精华、固顶、回复权限</td>"
Response.Write " <td align='center' width='20%'>"
If GuestBook_Purview <= 2 Then
Response.Write "<font color=blue>全部权限</font>"
ElseIf GuestBook_Purview = 3 Then
Response.Write "<a href='Admin_ShowPurview.asp?iChannelID=" & rsGuestBook("ChannelID") & "'><font color=blue>部分权限</font></a>"
Else
Response.Write "<font color=red>无权限</font>"
End If
Response.Write " </td>"
Response.Write " <td width='30%'>可以管理" & rsGuestBook("ChannelShortName") & "类别</td>"
Response.Write " <td align='center' width='20%'>"
If AdminPurview = 1 Or GuestBook_Purview <= 2 Then
Response.Write "<font color=blue>√</font>"
Else
Response.Write "<font color=red>×</font>"
End If
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='30%'>栏目管理，可以执行首页嵌入代码生成</td>"
Response.Write " <td align='center' width='20%'>"
If AdminPurview = 1 Or GuestBook_Purview = 1 Then
Response.Write "<font color=blue>√</font>"
Else
Response.Write "<font color=red>×</font>"
End If
Response.Write " </td>"
Response.Write " <td width='30%'>" & rsGuestBook("ChannelShortName") & "其它管理权限</td>"
Response.Write " <td align='center' width='20%'>"
If AdminPurview = 1 Or GuestBook_Purview = 1 Then
Response.Write "<font color=blue>√</font>"
Else
Response.Write "<font color=red>×</font>"
End If
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='tdbg' colspan='4'>"
Response.Write "<b>更多权限：</b><br>"
Response.Write "广告管理 " & ShowChannelOtherPurview(GuestBook_Purview, "AD_" & rsGuestBook("ChannelDir")) & " "
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
End If
rsGuestBook.Close
Set rsGuestBook = Nothing
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td colspan='6' height='22'><strong>其他网站管理权限</strong><strong> </strong></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='16%'>修改自己密码 " & ShowPurview("ModifyPwd") & "</td>"
Response.Write " <td width='16%'>网站频道管理 " & ShowPurview("Channel") & "</td>"
Response.Write " <td width='16%'>采集管理 " & ShowPurview("Collection") & "</td>"
Response.Write " <td width='16%'>短消息管理 " & ShowPurview("Message") & "</td>"
Response.Write " <td width='16%'>邮件列表管理 " & ShowPurview("MailList") & "</td>"
Response.Write " <td width='16%'>网站广告管理 " & ShowPurview("AD") & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='16%'>友情链接管理 " & ShowPurview("FriendSite") & "</td>"
Response.Write " <td width='16%'>网站公告管理 " & ShowPurview("Announce") & "</td>"
Response.Write " <td width='16%'>网站调查管理 " & ShowPurview("Vote") & "</td>"
Response.Write " <td width='16%'>网站统计管理 " & ShowPurview("Counter") & "</td>"
Response.Write " <td width='16%'>网站风格管理 " & ShowPurview("Skin") & "</td>"
Response.Write " <td width='16%'>通用模板管理 " & ShowPurview("Template") & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='16%'>自定义标签管理 " & ShowPurview("Label") & "</td>"
Response.Write " <td width='16%'>网站缓存管理 " & ShowPurview("Cache") & "</td>"
Response.Write " <td width='16%'>站内链接管理 " & ShowPurview("KeyLink") & "</td>"
Response.Write " <td width='16%'>字符过滤管理 " & ShowPurview("Rtext") & "</td>"
Response.Write " <td width='16%'>会员组管理 " & ShowPurview("UserGroup") & "</td>"
Response.Write " <td width='16%'>充值卡管理 " & ShowPurview("Card") & "</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='16%'>室场登记管理 " & ShowPurview("Equipment") & "</td>"
Response.Write " <td width='16%'>学生信息管理 " & ShowPurview("InfoManage") & "</td>"
Response.Write " <td width='16%'>学生成绩管理 " & ShowPurview("ScoreManage") & "</td>"
Response.Write " <td width='16%'>考试管理 " & ShowPurview("TestManage") & "</td>"
Response.Write " <td width='16%'></td>"
Response.Write " <td width='16%'></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -