admin_select_members.asp

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

		
		'Start position
		intStartPosition = ((intRecordPositionPageNum - 1) * intPageSize)	
		
		'End Position
		intEndPosition = intStartPosition + intPageSize
		
		'Get the start position
		intCurrentRecord = intStartPosition
	End If
	
	
	'Close the recordset as it is no longer needed
	rsCommon.Close

End If

'Page to link to for mutiple page (with querystrings if required)
strLinkPage = "admin_select_members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SB=" & strSearchBy & "&"


%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<title>Forum Member Adminstration</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">
function CheckForm () {

	//Check for a somthing to search for
	if (document.getElementById('frmMemberSearch').SF.value==""){

		msg = "_______________________________________________________________\n\n";
		msg += "The form has not been submitted because there are problem(s) with the form.\n";
		msg += "Please correct the problem(s) and re-submit the form.\n";
		msg += "_______________________________________________________________\n\n";
		msg += "The following field(s) need to be corrected: -\n";

		alert(msg + "\n\tMember Search\t- Enter a Members Username to search for\n\n");
		document.getElementById('frmMemberSearch').SF.focus();
		return false;
	}

	return true;
}
</script>

<!-- #include file="includes/admin_header_inc.asp" -->
<div align="center"> 
 <h1>Forum Member Administration</h1><br />
  <a href="admin_menu.asp<% = strQsSID1 %>">Control Panel Menu</a><br />
  <br />
  Click on the members name to administer their forum membership account, <br />
  from where you can, change their details, member group, reset password, suspend, delete, etc. from the Forum.<br />
 <br />
 <form name="frmMemberSearch" method="get" action="admin_select_members.asp" onSubmit="return CheckForm();">
   <table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
     <tr class="tableLedger">
       <td colspan="2" align="left">Member Search </td>
     </tr>
     <tr class="tableRow">
       <td align="left">Member Search :
           <input name="SF" size="15" maxlength="15" value="<% = Server.HTMLEncode(Request.QueryString("SF")) %>" />
           <input type="hidden" name="SID" id="SID" value="<% = strQsSID %>" />
           <input type="submit" name="Submit" value="Search" />
           <br />
           Search By: 
           <input name="SB" type="radio" value="user"<% If strSearchBy = "user" OR strSearchBy = "" Then Response.Write(" checked=""checked""") %> />
        Username&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <input name="SB" type="radio" value="email"<% If strSearchBy = "email" Then Response.Write(" checked=""checked""") %> />
        Email Address         <br />
         <br />
         <a href="admin_select_members.asp<% = strQsSID1 %>">#</a> <a href="admin_select_members.asp?SF=A<% = strQsSID2 %>">A</a> <a href="admin_select_members.asp?SF=B<% = strQsSID2 %>">B</a> <a href="admin_select_members.asp?SF=C<% = strQsSID2 %>">C</a> <a href="admin_select_members.asp?SF=D<% = strQsSID2 %>">D</a> <a href="admin_select_members.asp?SF=E<% = strQsSID2 %>">E</a> <a href="admin_select_members.asp?SF=F<% = strQsSID2 %>">F</a> <a href="admin_select_members.asp?SF=G<% = strQsSID2 %>">G</a> <a href="admin_select_members.asp?SF=H<% = strQsSID2 %>">H</a> <a href="admin_select_members.asp?SF=I<% = strQsSID2 %>">I</a> <a href="admin_select_members.asp?SF=J<% = strQsSID2 %>">J</a> <a href="admin_select_members.asp?SF=K<% = strQsSID2 %>">K</a> <a href="admin_select_members.asp?SF=L<% = strQsSID2 %>">L</a> <a href="admin_select_members.asp?SF=M<% = strQsSID2 %>">M</a> <a href="admin_select_members.asp?SF=N<% = strQsSID2 %>">N</a> <a href="admin_select_members.asp?SF=O<% = strQsSID2 %>">O</a> <a href="admin_select_members.asp?SF=P<% = strQsSID2 %>">P</a> <a href="admin_select_members.asp?SF=Q<% = strQsSID2 %>">Q</a> <a href="admin_select_members.asp?SF=R<% = strQsSID2 %>">R</a> <a href="admin_select_members.asp?SF=S<% = strQsSID2 %>">S</a> <a href="admin_select_members.asp?SF=T<% = strQsSID2 %>">T</a> <a href="admin_select_members.asp?SF=U<% = strQsSID2 %>">U</a> <a href="admin_select_members.asp?SF=V<% = strQsSID2 %>">V</a> <a href="admin_select_members.asp?SF=W<% = strQsSID2 %>">W</a> <a href="admin_select_members.asp?SF=X<% = strQsSID2 %>">X</a> <a href="admin_select_members.asp?SF=Y<% = strQsSID2 %>">Y</a> <a href="admin_select_members.asp?SF=Z<% = strQsSID2 %>">Z</a></td>
     </tr>
   </table>
 </form>
</div>
<br />
   <table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
     <tr class="tableLedger">
       <td width="100"><a href="admin_select_members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&amp;GID=<% = intGetGroupID %>&amp;SO=UN<% = strQsSID2 %>">Username</a> <% If Request.QueryString("SO") = "UN" OR Request.QueryString("SO") = "" Then Response.Write(" <a href=""admin_select_members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=UN&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ alt=""Reverse Sort Order"" /></a>") %></td>
       <td width="100"><a href="admin_select_members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&amp;GID=<% = intGetGroupID %>&amp;SO=EM<% = strQsSID2 %>">Email Address</a> <% If Request.QueryString("SO") = "EM" OR Request.QueryString("SO") = "" Then Response.Write(" <a href=""admin_select_members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=EM&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ alt=""Reverse Sort Order"" /></a>") %></td>
       <td width="100"><a href="admin_select_members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&amp;GID=<% = intGetGroupID %>&amp;SO=GP<% = strQsSID2 %>">Group</a> <% If Request.QueryString("SO") = "GP" Then Response.Write(" <a href=""admin_select_members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=GP&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ alt=""Reverse Sort Order"" /></a>") %></td>
       <td width="100"><a href="admin_select_members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&amp;GID=<% = intGetGroupID %>&amp;SO=LU<% = strQsSID2 %>">Registered</a> <% If Request.QueryString("SO") = "LU" Then Response.Write(" <a href=""admin_select_members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=LU&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ alt=""Reverse Sort Order"" /></a>") %></td>
       <td width="64" align="center"><a href="admin_select_members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&amp;GID=<% = intGetGroupID %>&amp;SO=PT<% = strQsSID2 %>">Posts</a> <% If Request.QueryString("SO") = "PT" Then Response.Write(" <a href=""admin_select_members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=PT&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ alt=""Reverse Sort Order"" /></a>") %></td>
       <td width="100"><a href="admin_select_members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&amp;GID=<% = intGetGroupID %>&amp;SO=LA<% = strQsSID2 %>">Last Active</a> <% If Request.QueryString("SO") = "LA" Then Response.Write(" <a href=""admin_select_members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=LA&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ alt=""Reverse Sort Order"" /></a>") %></td>
       <td width="10" align="center">Delete&nbsp;Member</td>
     </tr><%
         
         
	'If there are no search results display an error msg
	If intTotalRecords <= 0 Then
		
		'If there are no search results to display then display the appropriate error message
		Response.Write vbCrLf & "    <tr class=""tableRow""><td colspan=""7"" align=""center""><br />Your search has found no results<br /><br /></td></tr>"
	
	
	
	
	'Disply any search results in the forum
	Else
			
			
		

		'Do....While Loop to loop through the recorset to display the forum members
		Do While intCurrentRecord < intEndPosition

			'If there are no member's records left to display then exit loop
			If intCurrentRecord >= intTotalRecords Then Exit Do
			
			'Initialise varibles
			dtmLastPostDate = ""

			'Read in the profile from the recordset
			lngUserID = CLng(sarryMembers(0,intCurrentRecord))
			strUsername = sarryMembers(1,intCurrentRecord)
			If isDate(sarryMembers(3,intCurrentRecord)) Then dtmLastActiveDate = CDate(sarryMembers(3,intCurrentRecord)) Else dtmLastActiveDate = Now()
			lngNumOfPosts = CLng(sarryMembers(4,intCurrentRecord))
			dtmRegisteredDate = CDate(sarryMembers(5,intCurrentRecord))
			intMemberGroupID = CInt(sarryMembers(2,intCurrentRecord))
			strMemberGroupName = sarryMembers(7,intCurrentRecord)
			intRankStars = CInt(sarryMembers(8,intCurrentRecord))
			strRankCustomStars = sarryMembers(9,intCurrentRecord)
			strAuthorEmail = sarryMembers(10,intCurrentRecord)
			
			

			'If the users account is not active make there account level guest
			If CBool(sarryMembers(6,intCurrentRecord)) = False Then intMemberGroupID = 0

			'Write the HTML of the Topic descriptions as hyperlinks to the Topic details and message
			%>
     <tr class="<% If (intCurrentRecord MOD 2 = 0 ) Then Response.Write("evenTableRow") Else Response.Write("oddTableRow") %>">
       <td><a href="admin_register.asp?PF=<% = lngUserID & strQsSID2 %>"><% = strUsername %></a></td>
       <td><% = strAuthorEmail %></td>
       <td class="smText"><% = strMemberGroupName %><br /><img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.png") %>" alt="<% = strMemberGroupName %>" /></td>
       <td class="smText"><% = DateFormat(dtmRegisteredDate) %></td>
       <td  align="center"><% = lngNumOfPosts %></td>
       <td class="smText"><% = DateFormat(dtmLastActiveDate) %></td>
       <td align="center"><% If lngUserID > 2 Then %><a href="admin_delete_member.asp?MID=<% = lngUserID %><% = strQsSID2 %>" onclick="return confirm('Are you sure you want to permanently delete this Forum Member?\n\nWARNING: Do not delete members unless you really have to. Ideally you should suspend members accounts instead.')"><img src="<% = strImagePath %>delete.png" border="0" title="Delete Member" /></a><% End If %></td>
      </tr><%
			
			'Move to the next record
			intCurrentRecord = intCurrentRecord + 1
					
		'Loop back round
		Loop
	End If	
			%>
   </table>
   <%
	


'Page to link to for mutiple page (with querystrings if required)
strLinkPage = "admin_select_members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&"
%>
   <table class="basicTable" cellspacing="0" cellpadding="4" align="center">
     <tr>
       <td align="right" nowrap="nowrap"><!-- #include file="includes/page_link_inc.asp" -->
       </td>
     </tr>
   </table>
   <%


'Reset Server Objects
Call closeDatabase()

%>
<br />
<!-- #include file="includes/admin_footer_inc.asp" -->