📄 admin_setclasspurview.asp
字号:
<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 1 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim ManageType
Response.write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'><title>设置栏目权限</title></head>"
Response.write "<body leftmargin='0' topmargin='0' marginwidth='0' marginheight='0'>"
Response.write "<form name='myform' method='post' action=''>"
ManageType = Trim(Request("ManageType"))
If Action = "Modify" Then
Select Case ManageType
Case "Admin"
UserID = PE_CLng(Trim(Request("UserID")))
If UserID = 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定要修改的会员ID</li>"
Else
Dim sql, rs
sql = "Select * from PE_Admin where ID=" & UserID
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.Open sql, Conn, 1, 3
If rs.BOF And rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>不存在此会员！</li>"
Else
AdminName = rs("UserName")
AdminPurview = rs("Purview")
AdminPurview_Channel = rs("AdminPurview_" & ChannelDir)
arrClass_View = rs("arrClass_View")
arrClass_Input = rs("arrClass_Input")
arrClass_Check = rs("arrClass_Check")
arrClass_Manage = rs("arrClass_Manage")
If ChannelID = 4 Then
Dim arrKind_GuestBook
arrKind_GuestBook = Split(rs("arrClass_GuestBook"), "|||")
End If
If ChannelID = 998 Then
If IsNull(rs("arrClass_House")) Then
ReDim arrKind_House(3)
Else
arrKind_House = Split(rs("arrClass_House"), "|||")
End If
End If
End If
rs.Close
Set rs = Nothing
End If
Case "Group"
GroupID = PE_CLng(Trim(Request("GroupID")))
If GroupID = 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定要修改的会员组ID</li>"
Else
Dim rsGroup, sqlGroup
sqlGroup = "Select arrClass_Browse,arrClass_View,arrClass_Input from PE_UserGroup where GroupID=" & GroupID
Set rsGroup = Server.CreateObject("Adodb.RecordSet")
rsGroup.Open sqlGroup, Conn, 1, 1
If rsGroup.BOF And rsGroup.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>不存在此会员组！</li>"
Else
arrClass_Browse = rsGroup(0)
arrClass_View = rsGroup(1)
arrClass_Input = rsGroup(2)
End If
rsGroup.Close
Set rsGroup = Nothing
End If
Case "User"
UserID = PE_CLng(Trim(Request("UserID")))
If UserID = 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定要修改的会员ID</li>"
Else
Dim rsUser, sqlUser
sqlUser = "Select arrClass_Browse,arrClass_View,arrClass_Input from PE_User where UserID=" & UserID
Set rsUser = Server.CreateObject("Adodb.RecordSet")
rsUser.Open sqlUser, Conn, 1, 1
If rsUser.BOF And rsUser.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>不存在此会员组！</li>"
Else
arrClass_Browse = rsUser(0)
arrClass_View = rsUser(1)
arrClass_Input = rsUser(2)
End If
rsUser.Close
Set rsUser = Nothing
End If
End Select
End If
If FoundErr = True Then
Response.write ErrMsg
Response.End
End If
Response.write "<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
If ManageType = "Admin" Then
If ChannelID = 4 Then
Response.write " <tr align='center' class='title' height='22'>"
Response.write " <td><strong>栏目名称</strong></td>"
Response.write " <td width='30'><strong>修改</strong></td>"
Response.write " <td width='30'><strong>删除</strong></td>"
Response.write " <td width='30'><strong>移动</strong></td>"
Response.write " <td width='30'><strong>审核</strong></td>"
Response.write " <td width='30'><strong>精华</strong></td>"
Response.write " <td width='30'><strong>固顶</strong></td>"
Response.write " <td width='30' height='22'><strong>回复</strong></td>"
Response.write " </tr>"
Response.write " <tr style='display:none'>"
Response.write " <td width='30' align='center'><input name='Purview_Modify' type='checkbox' id='Purview_Modify' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Del' type='checkbox' id='Purview_Del' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Move' type='checkbox' id='Purview_Move' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Check' type='checkbox' id='Purview_Check' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Quintessence' type='checkbox' id='Purview_Quintessence' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_SetOnTop' type='checkbox' id='Purview_SetOnTop' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Reply' type='checkbox' id='Purview_Reply' value='0'></td>"
Response.write " </tr>"
ElseIf ChannelID = 999 Then
Response.write " <tr align='center' class='title' height='22'>"
Response.write " <td><strong>栏目名称</strong></td>"
'Response.Write " <td width='30'><strong>查看</strong></td>"
Response.write " <td width='30'><strong>录入</strong></td>"
Response.write " <td width='30'><strong>审核</strong></td>"
Response.write " <td width='30' height='22'><strong>管理</strong></td>"
Response.write " </tr>"
Response.write " <tr style='display:none'>"
'Response.Write " <td width='30' align='center'></td>"
Response.write "<input name='Purview_View' type='Hidden' id='Purview_View' value='0'>"
Response.write " <td width='30' align='center'><input name='Purview_Input' type='checkbox' id='Purview_Input' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Check' type='checkbox' id='Purview_Check' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Manage' type='checkbox' id='Purview_Manage' value='0'></td>"
Response.write " </tr>"
Else
Response.write " <tr align='center' class='title' height='22'>"
Response.write " <td><strong>栏目名称</strong></td>"
Response.write " <td width='30'><strong>查看</strong></td>"
Response.write " <td width='30'><strong>录入</strong></td>"
Response.write " <td width='30'><strong>审核</strong></td>"
Response.write " <td width='30' height='22'><strong>管理</strong></td>"
Response.write " </tr>"
Response.write " <tr style='display:none'>"
Response.write " <td width='30' align='center'><input name='Purview_View' type='checkbox' id='Purview_View' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Input' type='checkbox' id='Purview_Input' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Check' type='checkbox' id='Purview_Check' value='0'></td>"
Response.write " <td width='30' align='center'><input name='Purview_Manage' type='checkbox' id='Purview_Manage' value='0'></td>"
Response.write " </tr>"
End If
Else
Response.write " <tr align='center' class='title' height='22'>"
Response.write " <td><strong>栏目名称</strong></td>"
Response.write " <td width='30'><strong>浏览</strong></td>"
Response.write " <td width='30'><strong>查看</strong></td>"
Response.write " <td width='30'><strong>发布</strong></td>"
Response.write " </tr>"
Response.write " <tr class='tdbg'>"
Response.write " <td><img src='../Images/tree_folder4.gif' width='15' height='15' valign='abvmiddle'><b><font color='#FF0000'>整个频道</font><b></td>"
Response.write " <td width='30' align='center'><input name='Purview_Browse' type='checkbox' id='Purview_Browse' value='" & ChannelDir & "all'"
If (Action = "Modify" And FoundInArr(arrClass_Browse, ChannelDir & "all", ",")) Then Response.write " checked"
Response.write " onclick=""if (this.checked==true){for(var i=1;i<document.myform.Purview_Browse.length;i++){document.myform.Purview_Browse[i].checked=false;}}"""
Response.write "></td>"
Response.write " <td width='30' align='center'><input name='Purview_View' type='checkbox' id='Purview_View' value='" & ChannelDir & "all'"
If (Action = "Modify" And FoundInArr(arrClass_View, ChannelDir & "all", ",")) Then Response.write " checked"
Response.write " onclick=""if (this.checked==true){for(var i=1;i<document.myform.Purview_View.length;i++){document.myform.Purview_View[i].checked=false;}}"""
Response.write "></td>"
Response.write " <td width='30' align='center'><input name='Purview_Input' type='checkbox' id='Purview_Input' value='" & ChannelDir & "all'"
If (Action = "Modify" And FoundInArr(arrClass_Input, ChannelDir & "all", ",")) Then Response.write " checked"
Response.write " onclick=""if (this.checked==true){for(var i=1;i<document.myform.Purview_Input.length;i++){document.myform.Purview_Input[i].checked=false;}}"""
Response.write "></td>"
Response.write " </tr>"
Response.write " <tr style='display:none'>"
Response.write " <td width='30' align='center'><input name='Purview_Browse' type='checkbox' id='Purview_Browse' value='0' disabled></td>"
Response.write " <td width='30' align='center'><input name='Purview_View' type='checkbox' id='Purview_View' value='0' disabled></td>"
Response.write " <td width='30' align='center'><input name='Purview_Input' type='checkbox' id='Purview_Input' value='0' disabled></td>"
Response.write " </tr>"
End If
If ManageType = "Admin" And ChannelID = 4 Then
Dim rsGuestKind
Set rsGuestKind = Conn.Execute("select * from PE_GuestKind order by OrderID,KindID")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -