📄 admin_user_permissions.asp
字号:
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </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"><% If CBool(rsCommon("View_Forum")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Post")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Priority_posts")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Reply_posts")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Edit_posts")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Delete_posts")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Poll_create")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Vote")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Calendar_event")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Display_post")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Moderate")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><a href="admin_remove_permissions.asp?FID=<% = intForumID %>&UID=<% = lngMemberID %><% = strQsSID2 %>" onclick="return confirm('Are you sure you want to Remove these Forum Permissions for this member?')"><img src="<% = strImagePath %>delete.png" width="15" height="16" border="0" alt="Remove" /></a></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 NOT 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.Author_ID = " & lngMemberID & " 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"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </td>
<td align="center" class="tableRow"> </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"><% If CBool(rsCommon("View_Forum")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Post")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Priority_posts")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Reply_posts")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Edit_posts")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Delete_posts")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Poll_create")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Vote")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Calendar_event")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Display_post")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><% If CBool(rsCommon("Moderate")) Then Response.Write("<img src=""" & strImagePath & "yes.png"" alt=""Yes"" width=""13"" height=""14"">") Else Response.Write("<img src=""" & strImagePath & "no.png"" alt=""No"" width=""13"" height=""14"">") %></td>
<td align="center" class="tableRow"><a href="admin_remove_permissions.asp?FID=<% = intSubForumID %>&UID=<% = lngMemberID %><% = strQsSID2 %>" onclick="return confirm('Are you sure you want to Remove these Forum Permissions for this member?')"><img src="<% = strImagePath %>delete.png" width="15" height="16" border="0" alt="Remove" /></a></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
%>
</table>
<br />
<br />
<br />
<%
'Reset Server Objects
Call closeDatabase()
%>
<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" align="left" class="tableRow">Allows the Member 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" align="left" class="tableRow">Allows the Member to post new topics </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Sticky Topics:</strong></td>
<td valign="top" align="left" class="tableRow">Allows the Member 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" align="left" class="tableRow">Allows the Member to reply to posts </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Edit Posts:</strong></td>
<td valign="top" align="left" class="tableRow">Allows the Member to edit their posts </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Delete Posts:</strong></td>
<td valign="top" align="left" class="tableRow">Allows the User 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" align="left" class="tableRow">Allows the Member to create new polls </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Poll Vote:</strong></td>
<td valign="top" align="left" class="tableRow">Allows the Member to vote in polls </td>
</tr>
<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" align="left" class="tableRow">Requires that posts for this Member 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> </td>
</tr>
<tr>
<td align="right" valign="top" class="tableRow"><strong>Forum Moderator:<br />
</strong></td>
<td valign="top" align="left" class="tableRow">Allows the Member to have Moderator rights in this forum<br />
<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>
<br />
</div>
<!-- #include file="includes/admin_footer_inc.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -