📄 ad_showpurview.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
response.buffer=true
Const PurviewLevel=0 '操作权限
Const CheckChannelID=0 '所属频道，0为不检测所属频道
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="ad_ChkPurview.asp"-->
<%
dim ChannelID,rs,sql
dim FoundErr,ErrMsg
dim AdminPurview_Channel
ChannelID=trim(request("ChannelID"))
if ChannelID="" then
ChannelID=0
else
ChannelID=Clng(ChannelID)
end if
%>
<html>
<head>
<title>查看管理权限</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="ad_Style.css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>查 看 管 理 权 限</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="ad_ShowPurview.asp">所有管理权限</a> | <a href="ad_ShowPurview.asp?ChannelID=2">文章频道权限</a> | <a href="ad_ShowPurview.asp?ChannelID=3">软件频道权限</a> | <a href="ad_ShowPurview.asp?ChannelID=4">图片频道权限</a></td>
</tr>
</table>
<%
response.write "<br>您现在的位置：查看管理权限 >> <font color=red>"
select case ChannelID
case 0
response.write "所有管理权限"
case 2
response.write "文章频道权限"
case 3
response.write "软件频道权限"
case 4
response.write "图片频道权限"
case else
response.write "错误的参数"
end select
response.write "</font><br>"
if ChannelID=0 then
call ShowAllPurview()
else
call ShowChannelPurview()
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
%>
</body>
</html>
<%
sub ShowAllPurview()
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td colspan="2"><strong>文章频道</strong>
<%
if AdminPurview_Article=1 then response.write "（频道管理员）"
if AdminPurview_Article=2 then response.write "（栏目总编）"
if AdminPurview_Article=3 then response.write "（栏目管理员）"
if AdminPurview_Article=4 then response.write "（无权限）"
%>
</td>
<td height="22" colspan="2"><strong>下载频道</strong>
<%
if AdminPurview_Soft=1 then response.write "（频道管理员）"
if AdminPurview_Soft=2 then response.write "（栏目总编）"
if AdminPurview_Soft=3 then response.write "（栏目管理员）"
if AdminPurview_Soft=4 then response.write "（无权限）"
%>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">可以添加、管理栏目和专题</td>
<td align="center" width="20%">
<%if AdminPurview_Article=1 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
<td width="30%">可以添加、管理栏目</td>
<td align="center" width="20%">
<%if AdminPurview_Soft=1 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">可以管理文章评论及文章回收站</td>
<td align="center" width="20%">
<%if AdminPurview_Article=1 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
<td width="30%">可以管理软件评论</td>
<td align="center" width="20%">
<%if AdminPurview_Soft=1 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">可以管理专题文章</td>
<td align="center" width="20%">
<%if AdminPurview_Article<=2 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
<td width="30%">可以管理软件回收站</td>
<td align="center" width="20%">
<%if AdminPurview_Soft=1 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">各栏目文章录入、审核、管理权限</td>
<td align="center" width="20%">
<%if AdminPurview_Article<=2 then
response.write "<font color=blue>全部权限</font>"
elseif AdminPurview_Article=3 then
response.write "<a href='ad_ShowPurview.asp?ChannelID=2'><font color=blue>部分权限</font></a>"
else
response.write "<font color=red>无权限</font>"
end if
%>
</td>
<td width="30%">各栏目软件录入、审核、管理权限</td>
<td align="center" width="20%">
<%if AdminPurview_Soft<=2 then
response.write "<font color=blue>全部权限</font>"
elseif AdminPurview_Soft=3 then
response.write "<a href='ad_ShowPurview.asp?ChannelID=3'><font color=blue>部分权限</font></a>"
else
response.write "<font color=red>无权限</font>"
end if
%>
</td>
</tr>
<tr class="title">
<td colspan="2"><strong>图片频道</strong>
<%
if AdminPurview_Photo=1 then response.write "（频道管理员）"
if AdminPurview_Photo=2 then response.write "（栏目总编）"
if AdminPurview_Photo=3 then response.write "（栏目管理员）"
if AdminPurview_Photo=4 then response.write "（无权限）"
%>
</td>
<td height="22" colspan="2"><strong>留言频道</strong></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">可以添加、管理栏目</td>
<td align="center" width="20%">
<%if AdminPurview_Photo=1 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
<td width="30%">回复留言 </td>
<td align="center" width="20%">
<%if CheckPurview(AdminPurview_Guest,"Reply")=True then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">可以管理软件评论</td>
<td align="center" width="20%">
<%if AdminPurview_Photo=1 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
<td width="30%">修改留言 </td>
<td align="center" width="20%">
<%if CheckPurview(AdminPurview_Guest,"Modify")=True then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">可以管理软件回收站</td>
<td align="center" width="20%">
<%if AdminPurview_Photo=1 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
<td width="30%">删除留言</td>
<td align="center" width="20%">
<%if CheckPurview(AdminPurview_Guest,"Del")=True then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">各栏目图片录入、审核、管理权限</td>
<td align="center" width="20%">
<%if AdminPurview_Photo<=2 then
response.write "<font color=blue>全部权限</font>"
elseif AdminPurview_Photo=3 then
response.write "<a href='ad_ShowPurview.asp?ChannelID=4'><font color=blue>部分权限</font></a>"
else
response.write "<font color=red>无权限</font>"
end if
%>
</td>
<td width="30%">审核留言</td>
<td align="center" width="20%">
<%if CheckPurview(AdminPurview_Guest,"Check")=True then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
</tr>
<tr class="title">
<td colspan="4" height="22"><strong>网站管理权限</strong><strong> </strong></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">可以修改自己的登录密码</td>
<td align="center" width="20%">
<%if CheckPurview(AdminPurview_Others,"ModifyPwd")=True then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
<td width="30%">可以修改网站信息配置 <br>
</td>
<td align="center" width="20%">
<%if AdminPurview=1 then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="30%">可以进行频道管理</td>
<td align="center" width="20%">
<%if CheckPurview(AdminPurview_Others,"Channel")=True then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
<td width="30%">可以管理网站广告</td>
<td align="center" width="20%">
<%if CheckPurview(AdminPurview_Others,"AD")=True then
response.write "<font color=blue>√</font>"
else
response.write "<font color=red>×</font>"
end if
%>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -