<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit response.buffer=true Const PurviewLevel=0 '操作权限 Const CheckChannelID=0 '所属频道,0为不检测所属频道 %> <% 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 %> 查看管理权限
查 看 管 理 权 限
管理导航: 所有管理权限 | 文章频道权限 | 软件频道权限 | 图片频道权限
<% response.write "
您现在的位置:查看管理权限 >> " 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 "
" if ChannelID=0 then call ShowAllPurview() else call ShowChannelPurview() end if if FoundErr=True then call WriteErrMsg() end if call CloseConn() %> <% sub ShowAllPurview() %>
文章频道 <% 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 "(无权限)" %> 下载频道 <% 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 "(无权限)" %>
可以添加、管理栏目和专题 <%if AdminPurview_Article=1 then response.write "" else response.write "×" end if %> 可以添加、管理栏目 <%if AdminPurview_Soft=1 then response.write "" else response.write "×" end if %>
可以管理文章评论及文章回收站 <%if AdminPurview_Article=1 then response.write "" else response.write "×" end if %> 可以管理软件评论 <%if AdminPurview_Soft=1 then response.write "" else response.write "×" end if %>
可以管理专题文章 <%if AdminPurview_Article<=2 then response.write "" else response.write "×" end if %> 可以管理软件回收站 <%if AdminPurview_Soft=1 then response.write "" else response.write "×" end if %>
各栏目文章录入、审核、管理权限 <%if AdminPurview_Article<=2 then response.write "全部权限" elseif AdminPurview_Article=3 then response.write "部分权限" else response.write "无权限" end if %> 各栏目软件录入、审核、管理权限 <%if AdminPurview_Soft<=2 then response.write "全部权限" elseif AdminPurview_Soft=3 then response.write "部分权限" else response.write "无权限" end if %>
图片频道 <% 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 "(无权限)" %> 留言频道
可以添加、管理栏目 <%if AdminPurview_Photo=1 then response.write "" else response.write "×" end if %> 回复留言 <%if CheckPurview(AdminPurview_Guest,"Reply")=True then response.write "" else response.write "×" end if %>
可以管理软件评论 <%if AdminPurview_Photo=1 then response.write "" else response.write "×" end if %> 修改留言 <%if CheckPurview(AdminPurview_Guest,"Modify")=True then response.write "" else response.write "×" end if %>
可以管理软件回收站 <%if AdminPurview_Photo=1 then response.write "" else response.write "×" end if %> 删除留言 <%if CheckPurview(AdminPurview_Guest,"Del")=True then response.write "" else response.write "×" end if %>
各栏目图片录入、审核、管理权限 <%if AdminPurview_Photo<=2 then response.write "全部权限" elseif AdminPurview_Photo=3 then response.write "部分权限" else response.write "无权限" end if %> 审核留言 <%if CheckPurview(AdminPurview_Guest,"Check")=True then response.write "" else response.write "×" end if %>
网站管理权限
可以修改自己的登录密码 <%if CheckPurview(AdminPurview_Others,"ModifyPwd")=True then response.write "" else response.write "×" end if %> 可以修改网站信息配置
<%if AdminPurview=1 then response.write "" else response.write "×" end if %>
可以进行频道管理 <%if CheckPurview(AdminPurview_Others,"Channel")=True then response.write "" else response.write "×" end if %> 可以管理网站广告 <%if CheckPurview(AdminPurview_Others,"AD")=True then response.write "" else response.write "×" end if %>
可以管理网站公告 <%if CheckPurview(AdminPurview_Others,"Announce")=True then response.write "" else response.write "×" end if %> 可以管理友情链接 <%if CheckPurview(AdminPurview_Others,"FriendSite")=True then response.write "" else response.write "×" end if %>
可以管理网站调查 <%if CheckPurview(AdminPurview_Others,"Vote")=True then response.write "" else response.write "×" end if %> 可以管理网站统计 <%if CheckPurview(AdminPurview_Others,"Counter")=True then response.write "" else response.write "×" end if %>
可以管理注册用户 <%if CheckPurview(AdminPurview_Others,"User")=True then response.write "" else response.write "×" end if %> 可以管理邮件列表 <%if CheckPurview(AdminPurview_Others,"MailList")=True then response.write "" else response.write "×" end if %>
可以管理配色模板 <%if CheckPurview(AdminPurview_Others,"Skin")=True then response.write "" else response.write "×" end if %> 可以管理版面设计模板 <%if CheckPurview(AdminPurview_Others,"Layout")=True then response.write "" else response.write "×" end if %>
可以管理JS代码 <%if CheckPurview(AdminPurview_Others,"JS")=True then response.write "" else response.write "×" end if %> 可以管理上传文件 <%if CheckPurview(AdminPurview_Others,"UpFile")=True then response.write "" else response.write "×" end if %>
可以管理数据库 <%if AdminPurview=1 then response.write "" else response.write "×" end if %>    
<% end sub Sub ShowChannelPurview() dim AdminChannel_Name select case ChannelID case 2 AdminPurview_Channel=AdminPurview_Article AdminChannel_Name="文章" case 3 AdminPurview_Channel=AdminPurview_Soft AdminChannel_Name="软件" case 4 AdminPurview_Channel=AdminPurview_Photo AdminChannel_Name="图片" end select %> <%if ChannelID=2 then%> <%end if%>
<%=AdminChannel_Name%>频道 <% if AdminPurview_Channel=1 then response.write "(频道管理员)" if AdminPurview_Channel=2 then response.write "(栏目总编)" if AdminPurview_Channel=3 then response.write "(栏目管理员)" if AdminPurview_Channel=4 then response.write "(无权限)" %>
可以添加、管理栏目 <%if AdminPurview_Channel=1 then response.write "" else response.write "×" end if %>
可以管理<%=AdminChannel_Name%>评论 <%if AdminPurview_Channel=1 then response.write "" else response.write "×" end if %>
可以管理<%=AdminChannel_Name%>回收站 <%if AdminPurview_Channel=1 then response.write "" else response.write "×" end if %>
可以管理专题文章 <%if AdminPurview_Channel<=2 then response.write "" else response.write "×" end if %>
各栏目<%=AdminChannel_Name%>录入、审核、管理权限 <%if AdminPurview_Channel<=2 then response.write "全部权限" elseif AdminPurview_Channel=3 then response.write "部分权限" else response.write "无权限" end if %>

<% if AdminPurview_Channel=3 then dim arrShowLine(10) for i=0 to ubound(arrShowLine) arrShowLine(i)=False next dim sqlClass,rsClass,i,iDepth select case ChannelID case 2 sqlClass="select * From ArticleClass order by RootID,OrderID" case 3 sqlClass="select * From SoftClass order by RootID,OrderID" case 4 sqlClass="select * From PhotoClass order by RootID,OrderID" end select set rsClass=server.CreateObject("adodb.recordset") rsClass.open sqlClass,conn,1,1 %> <% do while not rsClass.eof %> <% rsClass.movenext loop rsClass.close set rsClass=nothing %>
栏目名称 录入 审核 管理
<% iDepth=rsClass("Depth") if rsClass("NextID")>0 then arrShowLine(iDepth)=True else arrShowLine(iDepth)=False end if if iDepth>0 then for i=1 to iDepth if i=iDepth then if rsClass("NextID")>0 then response.write "" else response.write "" end if else if arrShowLine(i)=True then response.write "" else response.write "" end if end if next end if if rsClass("Child")>0 then response.write "" else response.write "" end if if rsClass("Depth")=0 then response.write "" end if response.write rsClass("ClassName") %> <% if AdminPurview_Channel=3 then if CheckClassMaster(rsClass("ClassInputer"),AdminName)=True then response.write "" else response.write "×" end if end if %> <% if AdminPurview_Channel=3 then if CheckClassMaster(rsClass("ClassChecker"),AdminName)=True then response.write "" else response.write "×" end if end if %> <% if AdminPurview_Channel=3 then if CheckClassMaster(rsClass("ClassMaster"),AdminName)=True then response.write "" else response.write "×" end if end if %>
<% end if end sub %>