?? forumpermissions.asp
字號:
<%
if UserRoleID="" then
UserRoleID=0
elseIf Conn.Execute("Select RoleID From [Wo_ForumPermissions] where ForumID="&ForumID&" and RoleID="&UserRoleID&"" ).eof Then
UserRoleID=0
NotFindRole=1
end if
SQL="select * from [Wo_ForumPermissions] where ForumID="&ForumID&" and RoleID="&UserRoleID&""
Rs.Open sql,Conn,1,3
if Rs.eof then
Rs.addNew
Rs("ForumID")=ForumID
Rs.update
end if
PermissionView=Rs("PermissionView")
PermissionRead=Rs("PermissionRead")
PermissionPost=Rs("PermissionPost")
PermissionReply=Rs("PermissionReply")
PermissionEdit=Rs("PermissionEdit")
PermissionDelete=Rs("PermissionDelete")
PermissionCreatePoll=Rs("PermissionCreatePoll")
PermissionVote=Rs("PermissionVote")
PermissionAttachment=Rs("PermissionAttachment")
PermissionManage=Rs("PermissionManage")
Rs.close
if CookieUserName=empty then
PermissionPost=0
PermissionReply=0
PermissionEdit=0
PermissionDelete=0
PermissionCreatePoll=0
PermissionVote=0
PermissionAttachment=0
PermissionManage=0
elseif (NotFindRole=1 and BestRole=1) or instr("|"&Moderated&"|","|"&CookieUserName&"|")>0 then
PermissionView=1
PermissionRead=1
PermissionPost=1
PermissionReply=1
PermissionEdit=1
PermissionDelete=1
PermissionCreatePoll=1
PermissionVote=1
PermissionAttachment=1
PermissionManage=1
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -