members.asp

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

		return false;
	}

	return true;
}
</script>
<link href="<% = strCSSfile %>default_style.css" rel="stylesheet" type="text/css" />
<!-- #include file="includes/header.asp" -->
<!-- #include file="includes/status_bar_header_inc.asp" -->
<table class="basicTable" cellspacing="0" cellpadding="3" align="center">
 <tr>
  <td align="left"><h1><% = strTxtForumMembers %></h1></td>
 </tr>
</table>
<br /><%
    
    
'If the users account is suspended then let them know
If blnActiveMember = false OR blnBanned Then
	
	Response.Write(vbCrLf & "<table class=""errorTable"" cellspacing=""1"" cellpadding=""3"" align=""center"">" & _
	vbCrLf & " <tr>" & _
    	vbCrLf & "  <td><img src=""" & strImagePath & "error.png"" alt=""" & strTxtError & """ /> <strong>" & strTxtError & "</strong></td>" & _
  	vbCrLf & " </tr>" & _
	vbCrLf & " <tr>" & _
	vbCrLf & "  <td>")
	
	'If mem suspended display message
	If blnBanned Then
		Response.Write("<strong>" & strTxtForumMemberSuspended & "</strong>")
	
	'Else account not yet active
	ElseIf blnActiveMember = False Then
		
		Response.Write("<br />" & strTxtForumMembershipNotAct)
		If blnMemberApprove = False Then Response.Write("<br /><br />" & strTxtToActivateYourForumMem)
		
		'If admin activation is enabled let the user know
		If blnMemberApprove Then
			Response.Write("<br />" & strTxtYouAdminNeedsToActivateYourMembership)
		'If email is on then place a re-send activation email link
		ElseIf blnEmailActivation AND blnLoggedInUserEmail Then 
				Response.Write("<br /><br /><a href=""javascript:winOpener('resend_email_activation.asp" & strQsSID1 & "','actMail',1,1,475,300)"">" & strTxtResendActivationEmail & "</a>")
		End If
	End If
	
	
	Response.Write(vbCrLf & "  </td>" & _
	vbCrLf & " </tr>" & _
	vbCrLf & "</table>" & _
	vbCrLf & "<br /><br />")
	
'If the user has not logged in dispaly an error message
ElseIf intGroupID = 2 Then
	
	Response.Write(vbCrLf & "<table class=""errorTable"" cellspacing=""1"" cellpadding=""3"" align=""center"">" & _
	vbCrLf & " <tr>" & _
    	vbCrLf & "  <td><img src=""" & strImagePath & "error.png"" alt=""" & strTxtError & """ /> <strong>" & strTxtError & "</strong></td>" & _
  	vbCrLf & " </tr>" & _
	vbCrLf & " <tr>" & _
	vbCrLf & "  <td>" & strTxtMustBeRegistered  & "</td>" & _
	vbCrLf & " </tr>" & _
	vbCrLf & "</table>")
	%><!--#include file="includes/login_form_inc.asp" --><%

'If the user has logged in then read in the members from the database and dispaly them
Else

	'If there are no memebers to display then show an error message
	If intTotalRecords <= 0 Then
		
		Response.Write(vbCrLf & "<table class=""errorTable"" cellspacing=""1"" cellpadding=""3"" align=""center"">" & _
		vbCrLf & " <tr>" & _
	    	vbCrLf & "  <td><img src=""" & strImagePath & "error.png"" alt=""" & strTxtError & """ /> <strong>" & strTxtError & "</strong></td>" & _
	  	vbCrLf & " </tr>" & _
		vbCrLf & " <tr>" & _
		vbCrLf & "  <td>" & strTxtSorryYourSearchFoundNoMembers & "</td>" & _
		vbCrLf & " </tr>" & _
		vbCrLf & "</table>" & _
		vbCrLf & "<br />")

	End If


%>
<form name="frmMemberSearch" id="frmMemberSearch" method="get" action="members.asp" onSubmit="return CheckForm();">
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
 <tr class="tableLedger">
  <td colspan="2" align="left"><% = strTxtMemberSearch %></td>
 </tr>
 <tr class="tableRow">
  <td align="left"><% = strTxtMemberSearch %>:
   <input name="SF" id="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" id="Submit" value="<% = strTxtSearch %>" />
   <br /><br />
   <a href="members.asp<% = strQsSID1 %>">#</a> <a href="members.asp?SF=A<% = strQsSID2 %>">A</a> <a href="members.asp?SF=B<% = strQsSID2 %>">B</a> <a href="members.asp?SF=C<% = strQsSID2 %>">C</a>
   <a href="members.asp?SF=D<% = strQsSID2 %>">D</a> <a href="members.asp?SF=E<% = strQsSID2 %>">E</a> <a href="members.asp?SF=F<% = strQsSID2 %>">F</a>
   <a href="members.asp?SF=G<% = strQsSID2 %>">G</a> <a href="members.asp?SF=H<% = strQsSID2 %>">H</a> <a href="members.asp?SF=I<% = strQsSID2 %>">I</a>
   <a href="members.asp?SF=J<% = strQsSID2 %>">J</a> <a href="members.asp?SF=K<% = strQsSID2 %>">K</a> <a href="members.asp?SF=L<% = strQsSID2 %>">L</a>
   <a href="members.asp?SF=M<% = strQsSID2 %>">M</a> <a href="members.asp?SF=N<% = strQsSID2 %>">N</a> <a href="members.asp?SF=O<% = strQsSID2 %>">O</a>
   <a href="members.asp?SF=P<% = strQsSID2 %>">P</a> <a href="members.asp?SF=Q<% = strQsSID2 %>">Q</a> <a href="members.asp?SF=R<% = strQsSID2 %>">R</a>
   <a href="members.asp?SF=S<% = strQsSID2 %>">S</a> <a href="members.asp?SF=T<% = strQsSID2 %>">T</a> <a href="members.asp?SF=U<% = strQsSID2 %>">U</a>
   <a href="members.asp?SF=V<% = strQsSID2 %>">V</a> <a href="members.asp?SF=W<% = strQsSID2 %>">W</a> <a href="members.asp?SF=X<% = strQsSID2 %>">X</a>
   <a href="members.asp?SF=Y<% = strQsSID2 %>">Y</a> <a href="members.asp?SF=Z<% = strQsSID2 %>">Z</a></td>
 </tr>
</table>
</form>
<br />
<table class="basicTable" cellspacing="0" cellpadding="3" align="center">
 <tr>
  <td align="left"><%

	'Display some text on search
	If intTotalRecords > 0 Then
		
		Response.Write(strTxtSearchResults & " ")
		
		'If this is a keyword search display keywrds
		If strSearchCriteria <> "" Then 
			Response.Write(strTxtFor & " '" & Server.HTMLEncode(strSearchCriteria) & "' ")
		End If
		
		Response.Write(strTxtHasFound & " " & FormatNumber(intTotalRecords, 0) & " " & strTxtResultsIn & " " & FormatNumber(Timer() - dblStartTime, 4) & " " & strTxtSecounds & ".")
	End If
%></td>
  <td align="right" nowrap>
   <!-- #include file="includes/page_link_inc.asp" -->
  </td>
 </tr>
</table>
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
 <tr class="tableLedger">
  <td width="20%"><a href="members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&GID=<% = intGetGroupID %>&SO=UN<% = strQsSID2 %>" title="<% = strTxtReverseSortOrder %>"><% = strTxtUsername %></a><% If Request.QueryString("SO") = "UN" OR Request.QueryString("SO") = "" Then Response.Write(" <a href=""members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=UN&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ title=""" & strTxtReverseSortOrder & """ alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
  <td width="20%"><a href="members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&GID=<% = intGetGroupID %>&SO=GP<% = strQsSID2 %>" title="<% = strTxtReverseSortOrder %>"><% = strTxtType %></a><% If Request.QueryString("SO") = "GP" Then Response.Write(" <a href=""members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=GP&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ title=""" & strTxtReverseSortOrder & """ alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
  <td width="20%"><a href="members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&GID=<% = intGetGroupID %>&SO=LU<% = strQsSID2 %>" title="<% = strTxtReverseSortOrder %>"><% = strTxtRegistered %></a><% If Request.QueryString("SO") = "LU" Then Response.Write(" <a href=""members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=LU&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ title=""" & strTxtReverseSortOrder & """ alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
  <td width="6%" align="center"><a href="members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&GID=<% = intGetGroupID %>&SO=PT<% = strQsSID2 %>" title="<% = strTxtReverseSortOrder %>"><% = strTxtPosts %></a><% If Request.QueryString("SO") = "PT" Then Response.Write(" <a href=""members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=PT&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ title=""" & strTxtReverseSortOrder & """ alt=""" & strTxtReverseSortOrder & """ /></a>") %></td>
  <td width="20%"><a href="members.asp?SF=<% = Server.URLEncode(Request.QueryString("SF")) %>&GID=<% = intGetGroupID %>&SO=LA<% = strQsSID2 %>" title="<% = strTxtReverseSortOrder %>"><% = strTxtLastActive %></a><% If Request.QueryString("SO") = "LA" Then Response.Write(" <a href=""members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&SO=LA&OB=" & strSortDirection & strQsSID2 & """><img src=""" & strImagePath & strSortDirection & "." & strForumImageType & """ title=""" & strTxtReverseSortOrder & """ alt=""" & strTxtReverseSortOrder & """ /></a>") %></td><% 
          
          If blnPrivateMessages = True Then 
          		%>
  <td width="6%"  align="center" nowrap><% = strTxtAddBuddy %></td><% 
          
          End If 
          
          %>
  <td width="6%" align="center"><% = strTxtSearch %></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 />" & strTxtSorryYourSearchFoundNoMembers & "<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 = "2000-01-01 00:00:00"
			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)
			
			

			'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="member_profile.asp?PF=<% = lngUserID & strQsSID2 %>" rel="nofollow"><% = strUsername %></a></td>
  <td class="smText"><% = strMemberGroupName %><br /><img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write(strImagePath & intRankStars & "_star_rating.png") %>" alt="<% = strMemberGroupName %>" title="<% = strMemberGroupName %>" /></td>
  <td class="smText"><% = DateFormat(dtmRegisteredDate) %></td>
  <td align="center"><% = lngNumOfPosts %></td>
  <td class="smText"><% = DateFormat(dtmLastActiveDate) %></td><% 
          	If blnPrivateMessages = True Then %>
  <td align="center"><a href="pm_buddy_list.asp?name=<% = Server.URLEncode(strUsername) %><% = strQsSID2 %>"><img src="<% = strImagePath %>add_buddy.<% = strForumImageType %>" border="0" alt="<% = strTxtAddToBuddyList %>" title="<% = strTxtAddToBuddyList %>" /></a></td><% 
          	End If %>
  <td align="center"><a href="search_form.asp?USR=<% = Server.URLEncode(strUsername) %><% = strQsSID2 %>"><img src="<% = strImagePath %>profile_search.<% = strForumImageType %>" border="0" alt="<% = strTxtSearchForPosts %>&nbsp;<% = strUsername %>" title="<% = strTxtSearchForPosts %>&nbsp;<% = strUsername %>" /></a></td>
 </tr><%
			
			'Move to the next record
			intCurrentRecord = intCurrentRecord + 1
					
		'Loop back round
		Loop
	End If	
			%>
</table>
<%
	
End If


%>
<table class="basicTable" cellspacing="0" cellpadding="4" align="center">
 <tr>
  <td align="right" nowrap>
   <!-- #include file="includes/page_link_inc.asp" -->
  </td>
 </tr>
</table><%


'Reset Server Objects
Call closeDatabase()

%>    
      <div align="center"><br />
<%
 
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
If blnLCode = True Then
	
	If blnTextLinks = True Then
		Response.Write("<span class=""text"" style=""font-size:10px"">Bulletin Board Software by <a href=""http://www.webwizforums.com"" target=""_blank"" style=""font-size:10px"">Web Wiz Forums&reg;</a> version " & strVersion & "</span>")
	Else
  		Response.Write("<a href=""http://www.webwizforums.com"" target=""_blank""><img src=""webwizforums_image.asp"" border=""0"" title=""Bulletin Board Software by Web Wiz Forums&reg; version " & strVersion& """ alt=""Bulletin Board Software by Web Wiz Forums&reg; version " & strVersion& """ /></a>")
	End If

	Response.Write("<br /><span class=""text"" style=""font-size:10px"">Copyright &copy;2001-2008 <a href=""http://www.webwizguide.com"" target=""_blank"" style=""font-size:10px"">Web Wiz</a></span>")
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******

'Display the process time
If blnShowProcessTime Then Response.Write "<span class=""smText""><br /><br />" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "</span>"
%>
   </div>
   <!-- #include file="includes/footer.asp" -->