📄 forumgroupper.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim strForumName
Dim strGroupName
Dim intUserGroupID
Dim strForumPassword
Dim intForumID
Dim intRead
Dim intPost
Dim intReply
Dim intEdit
Dim intDelete
Dim intPriority
Dim intPollCreate
Dim intVote
Dim intAttachments
Dim intImageUpload
Dim rsGroupName
Dim blnRead
Dim blnPost
Dim blnReply
Dim blnEdit
Dim blnDelete
Dim blnPriority
Dim blnPollCreate
Dim blnVote
Dim blnAttachments
Dim blnImageUpload
Dim blnModerateForum
intForumID = CInt(Request("fid"))
strSQL = "SELECT timesbbs.* From timesbbs WHERE timesbbs.bbsid=" & intForumID & ";"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
strForumName = rsConn("bbsname")
intForumID = CInt(rsConn("bbsid"))
intRead = CInt(rsConn("Read"))
intPost = CInt(rsConn("Post"))
intReply = CInt(rsConn("replypost"))
intEdit = CInt(rsConn("editpost"))
intDelete = CInt(rsConn("delpost"))
intPriority = CInt(rsConn("toppost"))
intPollCreate = CInt(rsConn("addpoll"))
intVote = CInt(rsConn("Vote"))
intAttachments = CInt(rsConn("Attachments"))
intImageUpload = CInt(rsConn("imgup"))
End If
rsConn.Close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>论坛权限管理</title>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center"><span class="heading">
<% = strForumName %>
</span><span class="heading">论坛的权限</span><br>
<br />
<a href="menu.asp" target="_self">返回到管理主菜单</a><br>
<br>
<a href="groupper.asp" target="_self">点击设置另外一个份论坛的权限</a><br />
</div>
<table width="100%" height="58" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="text">查看 创建 编辑用户组的权限<br>
</td>
</tr>
</table>
<table width="450" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td width="450"> <table border="0" align="center" class="normal" cellpadding="4" cellspacing="1">
<tr bgcolor="#CCCCCC">
<td colspan="10" class="tHeading"><b>
<% = strForumName %>
论坛的权限 </b></td>
</tr>
<tr bgcolor="#FFFFFF" class="bold">
<td align="center" nowrap>访问</td>
<td align="center" nowrap>发言</td>
<td align="center" nowrap>回复</td>
<td align="center" nowrap>编辑</td>
<td align="center" nowrap>删除</td>
<td align="center" nowrap>置顶</td>
<td align="center" nowrap>发起投票</td>
<td align="center" nowrap>参与投票</td>
<td align="center" nowrap>贴图</td>
<td align="center" nowrap>附件</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td class="text">
<% If intRead = 1 Then Response.Write("所有用户") %>
<% If intRead = 2 Then Response.Write("注册用户") %>
<% If intRead = 3 Then Response.Write("特定用户组") %>
<% If intRead = 4 Then Response.Write("管理员") %>
</td>
<td class="text">
<% If intPost = 1 Then Response.Write("所有用户") %>
<% If intPost = 2 Then Response.Write("注册用户") %>
<% If intPost = 3 Then Response.Write("特定用户组") %>
<% If intPost = 4 Then Response.Write("管理员") %>
</td>
<td class="text">
<% If intReply = 1 Then Response.Write("所有用户") %>
<% If intReply = 2 Then Response.Write("注册用户") %>
<% If intReply = 3 Then Response.Write("特定用户组") %>
<% If intReply = 4 Then Response.Write("管理员") %>
</td>
<td class="text">
<% If intEdit = 1 Then Response.Write("所有用户") %>
<% If intEdit = 2 Then Response.Write("注册用户") %>
<% If intEdit = 3 Then Response.Write("特定用户组") %>
<% If intEdit = 4 Then Response.Write("管理员") %>
</td>
<td class="text">
<% If intDelete = 1 Then Response.Write("所有用户") %>
<% If intDelete = 2 Then Response.Write("注册用户") %>
<% If intDelete = 3 Then Response.Write("特定用户组") %>
<% If intDelete = 4 Then Response.Write("管理员") %>
</td>
<td class="text">
<% If intPriority = 1 Then Response.Write("所有用户") %>
<% If intPriority = 2 Then Response.Write("注册用户") %>
<% If intPriority = 3 Then Response.Write("特定用户组") %>
<% If intPriority = 4 Then Response.Write("管理员") %>
</td>
<td class="text">
<% If intPollCreate = 0 Then Response.Write("关闭") %>
<% If intPollCreate = 1 Then Response.Write("所有用户") %>
<% If intPollCreate = 2 Then Response.Write("注册用户") %>
<% If intPollCreate = 3 Then Response.Write("特定用户组") %>
<% If intPollCreate = 4 Then Response.Write("管理员") %>
</td>
<td class="text">
<% If intVote = 0 Then Response.Write("关闭") %>
<% If intVote = 1 Then Response.Write("所有用户") %>
<% If intVote = 2 Then Response.Write("注册用户") %>
<% If intVote = 3 Then Response.Write("特定用户组") %>
<% If intVote = 4 Then Response.Write("管理员") %>
</td>
<td class="text">
<% If intImageUpload = 0 Then Response.Write("关闭") %>
<% If intImageUpload = 1 Then Response.Write("所有用户") %>
<% If intImageUpload = 2 Then Response.Write("注册用户") %>
<% If intImageUpload = 3 Then Response.Write("特定用户组") %>
<% If intImageUpload = 4 Then Response.Write("管理员") %>
</td>
<td class="text">
<% If intAttachments = 0 Then Response.Write("关闭") %>
<% If intAttachments = 1 Then Response.Write("所有用户") %>
<% If intAttachments = 2 Then Response.Write("注册用户") %>
<% If intAttachments = 3 Then Response.Write("特定用户组") %>
<% If intAttachments = 4 Then Response.Write("管理员") %>
</td>
</tr>
</table></td>
</tr>
</table>
<br /><br />
<span class="lgText">
<% = strForumName %>
</span><span class="lgText">论坛的权限</span><br />
<%
Set rsGroupName = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT timesaccess.* From timesaccess WHERE timesaccess.bbsid=" & intForumID & ";"
rsConn.Open strSQL, adoCon
Do While NOT rsConn.EOF
intUserGroupID = CInt(rsConn("grpid"))
blnRead = CBool(rsConn("Read"))
blnPost = CBool(rsConn("Post"))
blnReply = CBool(rsConn("replypost"))
blnEdit = CBool(rsConn("editpost"))
blnDelete = CBool(rsConn("delpost"))
blnPriority = CBool(rsConn("toppost"))
blnPollCreate = CBool(rsConn("addpoll"))
blnVote = CBool(rsConn("Vote"))
blnAttachments = CBool(rsConn("Attachments"))
blnImageUpload = CBool(rsConn("imgup"))
blnModerateForum = CBool(rsConn("Moderate"))
strSQL = "SELECT timesgrp.Name From timesgrp WHERE timesgrp.grpid=" & intUserGroupID & ";"
rsGroupName.Open strSQL, adoCon
If NOT rsGroupName.EOF Then strGroupName = rsGroupName("Name")
rsGroupName.Close
%><br />
<table width="450" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td width="450"> <table border="0" align="center" class="normal" cellpadding="4" cellspacing="1">
<tr bgcolor="#CCCCCC">
<td colspan="11"><a href="editgroupper.asp?fid=<% = intForumID %>&gid=<% = intUserGroupID %>" target="_self" class="boldLink"><b>
<% = strGroupName %>
权限
<% = strForumName %>
</b></a></td>
</tr>
<tr bgcolor="#FFFFFF" class="bold">
<td align="center" nowrap>访问</td>
<td align="center" nowrap>发言</td>
<td align="center" nowrap>回复</td>
<td align="center" nowrap>编辑</td>
<td align="center" nowrap>删除</td>
<td align="center" nowrap>置顶</td>
<td align="center" nowrap>发起投票</td>
<td align="center" nowrap>参与投票</td>
<td align="center" nowrap>贴图</td>
<td align="center" nowrap>附件</td>
<td align="center" nowrap>管理论坛</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td class="text">
<% If blnRead = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnPost = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnReply = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnEdit = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnDelete = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnPriority = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnPollCreate = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnVote = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnImageUpload = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnAttachments = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
<td class="text">
<% If blnModerateForum = True Then Response.Write("Yes") Else Response.Write("No") %>
</td>
</tr>
<tr align="right" bgcolor="#FFFFFF">
<td colspan="11" class="text">删除组权限<a href="delper.asp?fid=<% = intForumID %>&gid=<% = intUserGroupID %>" OnClick="return confirm('Are you sure you want to Remove this Group Permission?')"><img src="images/del.gif" width="15" height="16" border="0" alt="Remove"></a></td>
</tr>
</table></td>
</tr>
</table>
<br /><%
rsConn.MoveNext
Loop
Set rsGroupName = Nothing
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<br />
<form name="frm" method="post" action="addgroupper.asp?fid=<% = intForumID %>">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><input name="Submit" type="submit" value="创建新权限"></td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -