📄 admin_group_details.asp
字号:
'If this is an edit read in te group details
If strMode = "edit" Then
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT " & strDbTable & "Group.* FROM " & strDbTable & "Group WHERE " & strDbTable & "Group.Group_ID = " & intUserGroupID & ";"
'Query the database
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then
'Get the category name from the database
strGroupName = rsCommon("Name")
lngMinimumPosts = CLng(rsCommon("Minimum_posts"))
blnSpecialGroup = CBool(rsCommon("Special_rank"))
intStars = CInt(rsCommon("Stars"))
strCustomStars = rsCommon("Custom_stars")
End If
'Close the rs
rsCommon.Close
End If
%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<title>Member Group Details</title>
<meta name="generator" content="Web Wiz Forums" />
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Software: Web Wiz Forums(TM) ver. " & strVersion & "" & _
vbCrLf & "Info: http://www.webwizforums.com" & _
vbCrLf & "Copyright: (C)2001-2008 Web Wiz(TM). All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->")
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>
<script language="JavaScript" type="text/javascript">
//Function to check form is filled in correctly before submitting
function CheckForm () {
//Check for a group name
if (document.frmGroup.GroupName.value==""){
alert("Please select the Name for this User Group");
return false;
}
return true
}
</script>
<!-- #include file="includes/admin_header_inc.asp" -->
<div align="center"><h1>Member Group Details</h1><br />
<a href="admin_menu.asp<% = strQsSID1 %>">Control Panel Menu</a><br />
<a href="admin_view_groups.asp<% = strQsSID1 %>">Return to the Member Group Administration page</a><br />
</div>
<form action="admin_group_details.asp?GID=<% = intUserGroupID %><% = strQsSID2 %>" method="post" name="frmGroup" id="frmGroup" onsubmit="return CheckForm();">
<br />
<table border="0" align="center" cellpadding="4" cellspacing="1" class="tableBorder">
<tr>
<td colspan="2" class="tableLedger">Member Group Details</td>
</tr>
<tr>
<td width="51%" class="tableRow">Group Name*:</td>
<td width="49%" valign="top" class="tableRow"><input name="GroupName" type="text" id="GroupName2" value="<% = strGroupName %>" size="20" maxlength="39"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
</td>
</tr>
<tr>
<td class="tableRow">Number of Stars*:<br />
<span class="smText">This is the number of stars displayed for this user group, unless you use your own custom stars/image.</span></td>
<td valign="top" class="tableRow"><select name="stars" id="select">
<option<% If intStars = 0 Then Response.Write " selected" %>>0</option>
<option<% If intStars = 1 Then Response.Write " selected" %>>1</option>
<option<% If intStars = 2 Then Response.Write " selected" %>>2</option>
<option<% If intStars = 3 Then Response.Write " selected" %>>3</option>
<option<% If intStars = 4 Then Response.Write " selected" %>>4</option>
<option<% If intStars = 5 Then Response.Write " selected" %>>5</option>
</select></td>
</tr>
<tr>
<td class="tableRow">Custom Stars Image Link:<br />
<span class="smText">If you wish to use your own custom stars/image for this group type the path in here to the image.</span></td>
<td valign="top" class="tableRow"><input name="custStars" type="text" id="custStars2" value="<% = strCustomStars %>" size="30" maxlength="75"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> /></td>
</tr>
<%
'If this is the admin group or guest group then don't let em change anything else
If intUserGroupID <> 1 AND intUserGroupID <> 2 Then
%>
<tr>
<td class="tableRow"><p>Non Ladder Group:<span class="smText"><br />
<a href="#lad" class="smLink">What is the Ladder System? </a></span><br />
<span class="smText">If you check this box then this group will not be a part of the Ladder System. </span></p></td>
<td valign="top" class="tableRow"><input name="rank" type="checkbox" id="rank2" value="true"<% If blnSpecialGroup OR strMode = "new" Then Response.Write " checked" %> /></td>
</tr>
<tr>
<td class="tableRow">Ladder Group Minimum No. of Posts:<br />
<span class="smText">This is the number of posts a user needs to post to automatically become a member of this group. This will not effect a Non Ladder Group. </span></td>
<td valign="top" class="tableRow"><select name="posts" id="select2">
<option<% If lngMinimumPosts = 0 Then Response.Write " selected" %>>0</option>
<option<% If lngMinimumPosts = 1 Then Response.Write " selected" %>>1</option>
<option<% If lngMinimumPosts = 10 Then Response.Write " selected" %>>10</option>
<option<% If lngMinimumPosts = 20 Then Response.Write " selected" %>>20</option>
<option<% If lngMinimumPosts = 30 Then Response.Write " selected" %>>30</option>
<option<% If lngMinimumPosts = 40 Then Response.Write " selected" %>>40</option>
<option<% If lngMinimumPosts = 50 Then Response.Write " selected" %>>50</option>
<option<% If lngMinimumPosts = 60 Then Response.Write " selected" %>>60</option>
<option<% If lngMinimumPosts = 70 Then Response.Write " selected" %>>70</option>
<option<% If lngMinimumPosts = 80 Then Response.Write " selected" %>>80</option>
<option<% If lngMinimumPosts = 90 Then Response.Write " selected" %>>90</option>
<option<% If lngMinimumPosts = 100 Then Response.Write " selected" %>>100</option>
<option<% If lngMinimumPosts = 125 Then Response.Write " selected" %>>125</option>
<option<% If lngMinimumPosts = 150 Then Response.Write " selected" %>>150</option>
<option<% If lngMinimumPosts = 200 Then Response.Write " selected" %>>200</option>
<option<% If lngMinimumPosts = 250 Then Response.Write " selected" %>>250</option>
<option<% If lngMinimumPosts = 300 Then Response.Write " selected" %>>300</option>
<option<% If lngMinimumPosts = 350 Then Response.Write " selected" %>>350</option>
<option<% If lngMinimumPosts = 400 Then Response.Write " selected" %>>400</option>
<option<% If lngMinimumPosts = 450 Then Response.Write " selected" %>>450</option>
<option<% If lngMinimumPosts = 500 Then Response.Write " selected" %>>500</option>
<option<% If lngMinimumPosts = 750 Then Response.Write " selected" %>>750</option>
<option<% If lngMinimumPosts = 1000 Then Response.Write " selected" %>>1000</option>
<option<% If lngMinimumPosts = 1500 Then Response.Write " selected" %>>1500</option>
<option<% If lngMinimumPosts = 2000 Then Response.Write " selected" %>>2000</option>
<option<% If lngMinimumPosts = 2500 Then Response.Write " selected" %>>2500</option>
<option<% If lngMinimumPosts = 3000 Then Response.Write " selected" %>>3000</option>
<option<% If lngMinimumPosts = 5000 Then Response.Write " selected" %>>5000</option>
<option<% If lngMinimumPosts = 7500 Then Response.Write " selected" %>>7500</option>
<option<% If lngMinimumPosts = 10000 Then Response.Write " selected" %>>10000</option>
<option<% If lngMinimumPosts = 15000 Then Response.Write " selected" %>>15000</option>
<option<% If lngMinimumPosts = 20000 Then Response.Write " selected" %>>20000</option>
<option<% If lngMinimumPosts = 30000 Then Response.Write " selected" %>>30000</option>
<option<% If lngMinimumPosts = 40000 Then Response.Write " selected" %>>40000</option>
<option<% If lngMinimumPosts = 50000 Then Response.Write " selected" %>>50000</option>
<option<% If lngMinimumPosts = 75000 Then Response.Write " selected" %>>75000</option>
<option<% If lngMinimumPosts = 100000 Then Response.Write " selected" %>>100000</option>
</select></td>
</tr>
<%
End If
%>
</table>
<br />
<br />
<table width="100%" height="58" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="text"><span class="lgText">Group Permissions</span><br />
Use the grid below to set Permissions for the this Member Group on various forums.<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 width="194" class="tableLedger">Member Group</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>
</tr>
<tr class="tableSubLedger">
<td align="left">Check All</td>
<td align="center"><input type="checkbox" name="chkAllread" id="chkAllread" onclick="checkAll('read');" /></td>
<td align="center"><input type="checkbox" name="chkAlltopic" id="chkAlltopic" onclick="checkAll('topic');" /></td>
<td align="center"><input type="checkbox" name="chkAllsticky" id="chkAllsticky" onclick="checkAll('sticky');" /></td>
<td align="center"><input type="checkbox" name="chkAllreply" id="chkAllreply" onclick="checkAll('reply');" /></td>
<td align="center"><input type="checkbox" name="chkAlledit" id="chkAlledit" onclick="checkAll('edit');" /></td>
<td align="center"><input type="checkbox" name="chkAlldelete" id="chkAlldelete" onclick="checkAll('delete');" /></td>
<td align="center"><input type="checkbox" name="chkAllpolls" id="chkAllpolls" onclick="checkAll('polls');" /></td>
<td align="center"><input type="checkbox" name="chkAllvote" id="chkAllvote" onclick="checkAll('vote');" /></td>
<td align="center"><input type="checkbox" name="chkAllcalEvent" id="chkAllcalEvent" onclick="checkAll('calEvent');" /></td>
<td align="center"><input type="checkbox" name="chkAllapprove" id="chkAllapprove" onclick="checkAll('approve');" /></td>
<td align="center"> </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 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 & ";"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -