📄 admin_group_permissions.asp
字号:
'If this is a different cat display the cat ID
If intCatID <> CInt(sarryForums(0,intCurrentRecord)) Then
'Change the cat ID
intCatID = CInt(sarryForums(0,intCurrentRecord))
%>
<tr>
<td align="left" class="tableSubLedger" colspan="14"><% = sarryForums(1,intCurrentRecord) %></td>
</tr>
<%
End If
'Read in the permssions from the db for this group (not very efficient doing it this way, but this page won't be run often)
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT " & strDbTable & "Permissions.* " & _
"FROM " & strDbTable & "Permissions " & _
"WHERE " & strDbTable & "Permissions.Group_ID = " & intUserGroupID & " AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & ";"
'Query the database
rsCommon.Open strSQL, adoCon
'If no records are returned use default values
If rsCommon.EOF Then
%>
<tr>
<td align="left" class="tableRow"><% = sarryForums(3,intCurrentRecord) %></td>
<td align="center" class="tableRow"><input name="read<% = intForumID %>" type="checkbox" id="read" value="true" checked /></td>
<td align="center" class="tableRow"><input name="topic<% = intForumID %>" type="checkbox" id="topic" value="true"<% If intUserGroupID <> 2 Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="sticky<% = intForumID %>" type="checkbox" id="sticky" value="true"<% If intUserGroupID = 1 Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="reply<% = intForumID %>" type="checkbox" id="reply" value="true"<% If intUserGroupID <> 2 Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="edit<% = intForumID %>" type="checkbox" id="edit" value="true"<% If intUserGroupID <> 2 Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="delete<% = intForumID %>" type="checkbox" id="delete" value="true"<% If intUserGroupID <> 2 Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="polls<% = intForumID %>" type="checkbox" id="polls" value="true" /></td>
<td align="center" class="tableRow"><input name="vote<% = intForumID %>" type="checkbox" id="vote" value="true" /></td>
<td align="center" class="tableRow"><input name="calEvent<% = intForumID %>" type="checkbox" id="calEvent" value="true" /></td>
<td align="center" class="tableRow"><input name="approve<% = intForumID %>" type="checkbox" id="approve" value="true" /></td>
<td align="center" class="tableRow"><input name="moderator<% = intForumID %>" type="checkbox" id="moderator" value="true" /></td>
</tr>
<%
'Else display the values for this group
Else
%>
<tr>
<td align="left" class="tableRow"><% = sarryForums(3,intCurrentRecord) %></td>
<td align="center" class="tableRow"><input name="read<% = intForumID %>" type="checkbox" id="read" value="true"<% If CBool(rsCommon("View_Forum")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="topic<% = intForumID %>" type="checkbox" id="topic" value="true"<% If CBool(rsCommon("Post")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="sticky<% = intForumID %>" type="checkbox" id="sticky" value="true"<% If CBool(rsCommon("Priority_posts")) Then Response.Write(" checked") %><% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> /></td>
<td align="center" class="tableRow"><input name="reply<% = intForumID %>" type="checkbox" id="reply" value="true"<% If CBool(rsCommon("Reply_posts")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="edit<% = intForumID %>"<% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> type="checkbox" id="edit" value="true"<% If CBool(rsCommon("Edit_posts")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="delete<% = intForumID %>"<% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> type="checkbox" id="delete" value="true"<% If CBool(rsCommon("Delete_posts")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="polls<% = intForumID %>" type="checkbox" id="polls" value="true"<% If CBool(rsCommon("Poll_create")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="vote<% = intForumID %>" type="checkbox" id="vote" value="true"<% If CBool(rsCommon("Vote")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="calEvent<% = intForumID %>" type="checkbox" id="calEvent" value="true"<% If CBool(rsCommon("Calendar_event")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="approve<% = intForumID %>" type="checkbox" id="approve" value="true"<% If CBool(rsCommon("Display_post")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="moderator<% = intForumID %>" type="checkbox" id="moderator" value="true"<% If CBool(rsCommon("Moderate")) Then Response.Write(" checked") %><% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> /></td>
</tr>
<%
End If
'Close rsCommon
rsCommon.Close
'********* check for sub forums *****************
'Reset intCurrentRecord2
intCurrentRecord2 = 0
'Read in the groups from db
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name " & _
"FROM " & strDbTable & "Forum " & _
"WHERE " & strDbTable & "Forum.Sub_ID=" & intForumID & " " & _
"ORDER BY " & strDbTable & "Forum.Forum_Order ASC;"
'Query the database
rsCommon.Open strSQL, adoCon
'Place rs in array
If NOT rsCommon.EOF Then
sarrySubForums = rsCommon.GetRows()
Else
sarrySubForums = null
End If
'close
rsCommon.Close
'Read in the row from the db using getrows for better performance
If isArray(sarrySubForums) Then
'Loop round to read in all the forums in the database
Do While intCurrentRecord2 =< Ubound(sarrySubForums,2)
'Get the forum ID
intSubForumID = CInt(sarrySubForums(0,intCurrentRecord2))
'Read in the permssions from the db for this group (not very efficient doing it this way, but this page won't be run often)
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT " & strDbTable & "Permissions.* " & _
"FROM " & strDbTable & "Permissions " & _
"WHERE " & strDbTable & "Permissions.Group_ID = " & intUserGroupID & " AND " & strDbTable & "Permissions.Forum_ID = " & intSubForumID & ";"
'Query the database
rsCommon.Open strSQL, adoCon
'If no records are returned use default values
If rsCommon.EOF Then
%>
<tr>
<td align="left" class="tableRow"> <img src="<% = strImagePath %>arrow.gif" /> <% = sarrySubForums(1,intCurrentRecord2) %></td>
<td align="center" class="tableRow"><input name="read<% = intSubForumID %>" type="checkbox" id="read" value="true" checked /></td>
<td align="center" class="tableRow"><input name="topic<% = intSubForumID %>" type="checkbox" id="topic" value="true"<% If intUserGroupID <> 2 Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="sticky<% = intSubForumID %>" type="checkbox" id="sticky" value="true"<% If intUserGroupID = 1 Then Response.Write(" checked") %><% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> /></td>
<td align="center" class="tableRow"><input name="reply<% = intSubForumID %>" type="checkbox" id="reply" value="true"<% If intUserGroupID <> 2 Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="edit<% = intSubForumID %>" type="checkbox" id="edit" value="true"<% If intUserGroupID <> 2 Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="delete<% = intSubForumID %>" type="checkbox" id="delete" value="true"<% If intUserGroupID <> 2 Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="polls<% = intSubForumID %>" type="checkbox" id="polls" value="true" /></td>
<td align="center" class="tableRow"><input name="vote<% = intSubForumID %>" type="checkbox" id="vote" value="true" /></td>
<td align="center" class="tableRow"><input name="calEvent<% = intSubForumID %>" type="checkbox" id="calEvent" value="true" /></td>
<td align="center" class="tableRow"><input name="approve<% = intSubForumID %>" type="checkbox" id="approve" value="true" /></td>
<td align="center" class="tableRow"><input name="moderator<% = intSubForumID %>" type="checkbox" id="moderator" value="true"<% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> /></td>
</tr>
<%
'Else display the values for this group
Else
%>
<tr>
<td align="left"class="tableRow"> <img src="<% = strImagePath %>arrow.gif" /> <% = sarrySubForums(1,intCurrentRecord2) %></td>
<td align="center" class="tableRow"><input name="read<% = intSubForumID %>" type="checkbox" id="read" value="true"<% If CBool(rsCommon("View_Forum")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="topic<% = intSubForumID %>" type="checkbox" id="topic" value="true"<% If CBool(rsCommon("Post")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="sticky<% = intSubForumID %>" type="checkbox" id="sticky" value="true"<% If CBool(rsCommon("Priority_posts")) Then Response.Write(" checked") %><% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> /></td>
<td align="center" class="tableRow"><input name="reply<% = intSubForumID %>" type="checkbox" id="reply" value="true"<% If CBool(rsCommon("Reply_posts")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="edit<% = intSubForumID %>"<% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> type="checkbox" id="edit" value="true"<% If CBool(rsCommon("Edit_posts")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="delete<% = intSubForumID %>"<% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> type="checkbox" id="delete" value="true"<% If CBool(rsCommon("Delete_posts")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="polls<% = intSubForumID %>" type="checkbox" id="polls" value="true"<% If CBool(rsCommon("Poll_create")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="vote<% = intSubForumID %>" type="checkbox" id="vote" value="true"<% If CBool(rsCommon("Vote")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="calEvent<% = intSubForumID %>" type="checkbox" id="calEvent" value="true"<% If CBool(rsCommon("Calendar_event")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="approve<% = intSubForumID %>" type="checkbox" id="approve" value="true"<% If CBool(rsCommon("Display_post")) Then Response.Write(" checked") %> /></td>
<td align="center" class="tableRow"><input name="moderator<% = intSubForumID %>" type="checkbox" id="moderator" value="true"<% If CBool(rsCommon("Moderate")) Then Response.Write(" checked") %><% If intUserGroupID = 2 Then Response.Write(" disabled=true") %> /></td>
</tr>
<%
End If
'Close rsCommon
rsCommon.Close
'Move to the next record in the recordset
intCurrentRecord2 = intCurrentRecord2 + 1
Loop
End If
'Move to the next record in the recordset
intCurrentRecord = intCurrentRecord + 1
Loop
End If
'Reset Server Objects
Set rsCommon2 = Nothing
Call closeDatabase()
%>
</table></td>
</tr>
</table>
<div align="center"><br />
<input type="hidden" name="postBack" value="true" />
<input type="submit" name="Submit" value="Update Member Group Permissions"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
<input type="reset" name="Reset" value="Reset Form" />
<br />
</div>
</form>
<br />
<a name="per" id="per"></a>
<br />
<br />
<table border="0" align="center" cellpadding="4" cellspacing="1" class="tableBorder">
<tr>
<td colspan="2" class="tableLedger">Forum Permissions Table </td>
</tr>
<tr>
<td width="24%" align="right" valign="top" class="tableRow"><strong>Access:</strong></td>
<td width="76%" valign="top" class="tableRow">Allows the Group access to the forum </td>
</tr>
<tr>
<td width="24%" align="right" valign="top" class="tableRow"><strong>New Topics:</strong></td>
<td width="76%" valign="top" class="tableRow">Allows the Group to post new topics </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Sticky Topics:</strong></td>
<td valign="top" class="tableRow">Allows the Group to post sticky topics that remain at the top of the forum </td>
</tr>
<tr>
<td width="24%" align="right" valign="top" class="tableRow"><strong>Post Reply:<br />
</strong></td>
<td width="76%" valign="top" class="tableRow">Allows the Group to reply to posts </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Edit Posts:</strong></td>
<td valign="top" class="tableRow">Allows the Group to edit their posts </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Delete Posts:</strong></td>
<td valign="top" class="tableRow">Allows the Group to delete their posts, but only if no-one has posted a reply </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>New Polls:</strong></td>
<td valign="top" class="tableRow">Allows the Group to create new polls </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Poll Vote:</strong></td>
<td valign="top" class="tableRow">Allows the Group to vote in polls <br />
<span class="smText">If you allow Guest Groups to vote in Polls, only cookies prevent Guests from multiple voting.</span></td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Calendar Event:</strong></td>
<td valign="top" class="tableRow">Allows the Group to enter Topics into the Calendar system as an event to be displayed in the Calendar.<br />
<span class="smText">The Calendar System needs to be enabled from the '<a href="admin_pm_calendar_configuration.asp<% = strQsSID1 %>" class="smLink">Calendar Settings</a>' Page </span></td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Post Approval:<br /></strong></td>
<td valign="top" class="tableRow"><span class="text">Requires that posts for this Group need to be approved before they are displayed <span class="smText"><br />
If you choose to not let users have there posts displayed, then their posts will first need to be approved by the forum admin/moderator.</span> </span> </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Forum Moderator:<br />
</strong></td>
<td valign="top" class="tableRow"><span class="text">Allows the Group to have Moderator rights in this forum<br />
</span><span class="smText">This will allow the group to be able to delete, edit, move, etc. all posts in this forum, and edit user profiles etc. across the entire board </span></td>
</tr>
</table>
<div align="center"><br />
<span class="text">Please be aware that the Group Permissions can be over ridden by setting permissions on this forum for individual members.<br />
<br />
<br />
<a name="lad" id="lad"></a><br />
</span>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<td align="center" class="tableLedger">What is the Ladder System?</td>
</tr>
<tr>
<td class="tableRow">The Ladder system enables your members to move up forum groups automatically depending on the number of posts they make. Once a member has made the minimum amount of posts for a Ladder User Group that member will be moved up to that user group.<br />
<br />
If you select that a user group is a Non Ladder Group, any member of the group will not be effected by the ladder system, this is useful if you wish not to use the Ladder System or for special groups like moderator groups.</td>
</tr>
</table>
<br />
<span class="text"> </span></div>
<!-- #include file="includes/admin_footer_inc.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -