admin_user_permissions.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

    </table>
    <br />
    <span class="text"><span class="lgText">Forums</span><br />
    Select which forums you would like to apply/modify these permissions on</span><br />
    <br />
    <table border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
      <tr>
        <td width="37" class="tableLedger">&nbsp;</td>
        <td class="tableLedger">Member Group</td>
      </tr>
      <%

'Read in the groups from db
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT " & strDbTable & "Category.Cat_ID, " & strDbTable & "Category.Cat_name, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name FROM " & strDbTable & "Category, " & strDbTable & "Forum WHERE " & strDbTable & "Category.Cat_ID=" & strDbTable & "Forum.Cat_ID AND " & strDbTable & "Forum.Sub_ID=0 ORDER BY " & strDbTable & "Category.Cat_order ASC, " & strDbTable & "Category.Cat_ID ASC, " & strDbTable & "Forum.Forum_Order ASC;"

'Query the database
rsCommon.Open strSQL, adoCon

'Read in the row from the db using getrows for better performance
If NOT rsCommon.EOF Then 
	sarryForums = rsCommon.GetRows()
End If

'close
rsCommon.Close

'If no forums to set permisisons on display a message saying so
If NOT isArray(sarryForums) Then
%>
	  <tr>
            <td align="left" class="tableRow" colspan="14">There are presently no Forums created to set permissions on</td>
          </tr><%

'If there are results show them
Else

	'Loop round to read in all the forums in the database
	Do While intCurrentRecord <= Ubound(sarryForums,2)

		'Get the forum ID
		intForumID = CInt(sarryForums(2,intCurrentRecord))
		
		'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="13"><% = sarryForums(1,intCurrentRecord) %></td>
      </tr>
      <%
       
	End If
	
	%>
      <tr>
        <td align="center" class="tableRow"><input type="checkbox" name="chkFID" id="chkFID" value="<% = intForumID %>" /></td>
        <td align="left" class="tableRow"><% = sarryForums(3,intCurrentRecord) %></td>
      </tr>
      <%
	
        
	        '********* 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))
		
%>
      <tr>
        <td align="center" class="tableRow"><input type="checkbox" name="chkFID" id="chkFID" value="<% = intSubForumID %>" /></td>
        <td align="left" class="tableRow">&nbsp;<img src="<% = strImagePath %>arrow.gif" />&nbsp;<% = sarrySubForums(1,intCurrentRecord2) %></td>
      </tr>
      <%
		
				'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 />
    <input type="hidden" name="postBack" value="true" />
    <input type="submit" name="Submit" value="Create/Update Member Permissions"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
    <input type="reset" name="Reset" value="Reset Form" />
    <br />
  </div>
</form>
<div align="center" class="text"><br />
  <h1><br />
  Present Member Permissions For <% = strMemberName %></h1> <br />
  Below are the present member forum permissions for <b>
  <% = strMemberName %>
  .<br />
  These member permissions override any Group Permissions the member would have on these forums. </b><br />
  <a href="#per" class="smLink">What do the different permissions mean?</a><br />
  <br />
  <table border="0" cellpadding="2" cellspacing="1" class="tableBorder">
    <tr>
      <td align="left" width="144" class="tableLedger">Forum</td>
      <td width="43" align="center" class="tableLedger">Access</td>
      <td width="43" align="center" class="tableLedger"> New Topics</td>
      <td width="43" align="center" class="tableLedger">Sticky Topics</td>
      <td width="43" align="center" class="tableLedger">Post Reply</td>
      <td width="43" align="center" class="tableLedger">Edit Posts</td>
      <td width="43" align="center" class="tableLedger">Delete Posts</td>
      <td width="43" align="center" class="tableLedger">New Polls </td>
      <td width="43" align="center" class="tableLedger">Poll Vote </td>
      <td width="43" align="center" class="tableLedger">Calendar Event</td>
      <td width="43" align="center" class="tableLedger">Post Approval </td>
      <td width="43" align="center" class="tableLedger">Forum Moderator</td>
      <td width="43" align="center" class="tableLedger">&nbsp;</td>
    </tr>
    <%

'Reset record position holders
intCurrentRecord = 0
intCurrentRecord2 = 0

'Read in the groups from db
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT " & strDbTable & "Category.Cat_ID, " & strDbTable & "Category.Cat_name, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name " & _
"FROM " & strDbTable & "Category, " & strDbTable & "Forum " & _
"WHERE " & strDbTable & "Category.Cat_ID=" & strDbTable & "Forum.Cat_ID " & _
	"AND " & strDbTable & "Forum.Sub_ID=0 " & _
"ORDER BY " & strDbTable & "Category.Cat_order ASC, " & strDbTable & "Forum.Forum_Order ASC;"

'Query the database
rsCommon.Open strSQL, adoCon

'Read in the row from the db using getrows for better performance
If NOT rsCommon.EOF Then sarryForums = rsCommon.GetRows()


'close
rsCommon.Close

'If there are results show them
If isArray(sarryForums) Then

	'Loop round to read in all the forums in the database
	Do While intCurrentRecord <= Ubound(sarryForums,2)

		'Get the forum ID
		intForumID = CInt(sarryForums(2,intCurrentRecord))
		
		'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.Author_ID = " & lngMemberID & " 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">&nbsp;</td>