forumpermissions.asp

教师评估系统

<%
BackRoleID=UserRoleID

If ""&UserRoleID&""="" Then
 UserRoleID=0
elseIf Conn.Execute("Select RoleID From [WxForumPermissions] where ForumID="&ForumID&" and RoleID="&UserRoleID&"" ).eof Then
 UserRoleID=0
 NotFindRole=1
end if

sql="select * from [WxForumPermissions] 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
PermissionsView=Rs("PermissionsView")
PermissionsRead=Rs("PermissionsRead")
PermissionsPost=Rs("PermissionsPost")
PermissionsReply=Rs("PermissionsReply")
PermissionsEdit=Rs("PermissionsEdit")
PermissionsDelete=Rs("PermissionsDelete")
PermissionsCreatePoll=Rs("PermissionsCreatePoll")
PermissionsVote=Rs("PermissionsVote")
PermissionsAttachment=Rs("PermissionsAttachment")
PermissionsManage=Rs("PermissionsManage")
Rs.close

if Not IsUser then
PermissionsPost=0
PermissionsReply=0
PermissionsEdit=0
PermissionsDelete=0
PermissionsCreatePoll=0
PermissionsVote=0
PermissionsAttachment=0
PermissionsManage=0
elseif (NotFindRole=1 and BestRole=1) or instr("|"&Moderated&"|","|"&CookieUserName&"|")>0 then
PermissionsView=1
PermissionsRead=1
PermissionsPost=1
PermissionsReply=1
PermissionsEdit=1
PermissionsDelete=1
PermissionsCreatePoll=1
PermissionsVote=1
PermissionsAttachment=1
PermissionsManage=1
end If

If IsNumeric(BackRoleID) Then UserRoleID=BackRoleID
%>