members.asp

电子商务网络购物系统

<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True

Dim intTopicPageLoopCounter
Dim strUsername
Dim strHomepage
Dim strEmail	
Dim blnShowEmail
Dim lngUserID	
Dim lngNumOfPosts
Dim intMemberGroupID
Dim strMemberGroupName
Dim intRankStars
Dim dtmRegisteredDate
Dim intTotalNumMembersPages
Dim intTotalNumMembers
Dim intRecordPositionPageNum
Dim intRecordLoopCounter
Dim dtmLastPostDate
Dim intLinkPageNum
Dim strSearchCriteria
Dim strSortBy	
Dim intSortSelectField
Dim intForumID	
Dim intGetGroupID		

blnShowEmail = False
intForumID = CInt(Request.QueryString("fid"))
intGetGroupID = CInt(Request.QueryString("gid"))

If Request.QueryString("Mempn") = "" Then
	intRecordPositionPageNum = 1
Else
	intRecordPositionPageNum = CInt(Request.QueryString("Mempn"))
End If
If NOT Request.QueryString("sf") = "" Then
	strSearchCriteria = Trim(Mid(Request.QueryString("sf"), 1, 15))
End If

strSearchCriteria = disallowedMemberNames(strSearchCriteria)
strSearchCriteria = formatSQLInput(strSearchCriteria)
Select Case Request.QueryString("so")
	Case "PT"
		strSortBy = "timesuser.postnum DESC"
		intSortSelectField = 1
	Case "LU"
		strSortBy = "timesuser.joindtm DESC"
		intSortSelectField = 2
	Case "OU"
		strSortBy = "timesuser.joindtm ASC"
		intSortSelectField = 3
	Case "GP"
		strSortBy = "timesgrp.Name ASC"
		intSortSelectField = 4
	Case Else
		strSortBy = "timesuser.Username ASC"
		intSortSelectField = 0
End Select


%>
<title><% = strMainForumName %> 论坛会员</title>
<script  language="JavaScript">
function CheckForm () {
	if (document.frmMemberSearch.sf.value==""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改: \n";
		alert(msg + "\n\t会员搜寻\t- 输入所要搜寻的会员名\n\n");
		document.frmMemberSearch.sf.focus();
		return false;
	}

	return true;
}
function MembersSort(SelectSort){

   	if (SelectSort != "") self.location.href = "members.asp?sf=<% = Server.URLEncode(Request.QueryString("sf")) %>&gid=<% = intGetGroupID %>&so=" + SelectSort.options[SelectSort.selectedIndex].value;
	return true;
}
function MembersPage(SelectPage){

   	if (SelectPage != -1) self.location.href = "members.asp?sf=<% = Request.QueryString("sf") %>&gid=<% = intGetGroupID %>&so=<% = Request.QueryString("so") %>&Mempn=" + SelectPage.options[SelectPage.selectedIndex].value;
	return true;
}
</script>

  <table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
 <tr>
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="members.asp" target="_self" class="boldLink">论坛会员</a></td>
 </tr>
</table>
    <br />
    <form name="frmMemberSearch" method="get" action="members.asp" onSubmit="return CheckForm();">
     <table width="550" border="0" cellspacing="0" cellpadding="1" height="24" align="center" bgcolor="<% = strTableBorderColour %>">
      <tr>
       <td align="center" height="2">
        <table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="<% = strTableBorderColour %>">
         <tr>
              <td align="center" bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>" width="100%" height="20"><span class="text">会员搜寻:</span> 
                <input type="text" name="sf" size="15" maxlength="15" value="<% = Request.QueryString("sf") %>">
           <input type="submit" name="Submit" value="搜索">
          </td>
         </tr>
         <tr>
          <td align="center" bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>" width="100%"><a href="members.asp" target="_self">All</a> <a href="members.asp?sf=A" target="_self">A</a> <a href="members.asp?sf=B" target="_self">B</a> <a href="members.asp?sf=C" target="_self">C</a>
           <a href="members.asp?sf=D" target="_self">D</a> <a href="members.asp?sf=E" target="_self">E</a> <a href="members.asp?sf=F" target="_self">F</a>
           <a href="members.asp?sf=G" target="_self">G</a> <a href="members.asp?sf=H" target="_self">H</a> <a href="members.asp?sf=I" target="_self">I</a>
           <a href="members.asp?sf=J" target="_self">J</a> <a href="members.asp?sf=K" target="_self">K</a> <a href="members.asp?sf=L" target="_self">L</a>
           <a href="members.asp?sf=M" target="_self">M</a> <a href="members.asp?sf=N" target="_self">N</a> <a href="members.asp?sf=O" target="_self">O</a>
           <a href="members.asp?sf=P" target="_self">P</a> <a href="members.asp?sf=Q" target="_self">Q</a> <a href="members.asp?sf=R" target="_self">R</a>
           <a href="members.asp?sf=S" target="_self">S</a> <a href="members.asp?sf=T" target="_self">T</a> <a href="members.asp?sf=U" target="_self">U</a>
           <a href="members.asp?sf=V" target="_self">V</a> <a href="members.asp?sf=W" target="_self">W</a> <a href="members.asp?sf=X" target="_self">X</a>
           <a href="members.asp?sf=Y" target="_self">Y</a> <a href="members.asp?sf=Z" target="_self">Z</a></td>
         </tr>
        </table>
       </td>
      </tr>
     </table>
    </form>
<%
If intGroupID = 2 Then %><div align="center">
<b>你必须是注册用户才可以使用本功能</b><br /><br />
<a href="reg.asp?fid=<%= intForumID %>" target="_self"><img src="images/register.gif"  alt="注册" border="0" align="absmiddle"></a>&nbsp;&nbsp;<a href="login.asp?fid=<%= intForumID %>" target="_self"><img src="images/login.gif"  alt="登录" border="0" align="absmiddle"></a>
</div>
<%
Else
	If intGetGroupID <> 0 Then
		strSQL = "SELECT timesuser.userid, timesuser.Username, timesuser.grpid, timesuser.Homepage, timesuser.postnum, timesuser.joindtm, timesuser.Active, timesgrp.Name, timesgrp.Stars "
		strSQL = strSQL & "FROM timesuser, timesgrp "
		strSQL = strSQL & "WHERE timesuser.grpid = timesgrp.grpid AND timesuser.grpid=" & intGetGroupID & " "
		strSQL = strSQL & "ORDER BY " & strSortBy & ";"
	Else
		strSQL = "SELECT timesuser.userid, timesuser.Username, timesuser.grpid, timesuser.Homepage, timesuser.postnum, timesuser.joindtm, timesuser.Active, timesgrp.Name, timesgrp.Stars "
		strSQL = strSQL & "FROM timesuser, timesgrp "
		strSQL = strSQL & "WHERE timesuser.grpid = timesgrp.grpid AND timesuser.Username Like '" & strSearchCriteria & "%' "
		strSQL = strSQL & "ORDER BY " & strSortBy & ";"
	End If
	rsConn.CursorType = 1
	rsConn.Open strSQL, adoCon
	rsConn.PageSize = 25
	If rsConn.EOF Then %>
	<div align="center"><span class="bold">对不起,没有符合您搜索条件的用户</span></div>
	<%
	Else
		rsConn.AbsolutePage = intRecordPositionPageNum
		intTotalNumMembers = rsConn.RecordCount
		intTotalNumMembersPages = rsConn.PageCount %>
		
	<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr><td align="center" class="smtext">	
		<%
		If Request.QueryString("sf") = "" Then %>
		现有<b>&nbsp;<%= intTotalNumMembers %></b>&nbsp;位相关用户，共<b>&nbsp;<%= intTotalNumMembersPages %>&nbsp;</b>页,你位于第<b>&nbsp;<%= intRecordPositionPageNum %>&nbsp;</b>页
		<%	Else %>
		共搜索到<b> <%= intTotalNumMembers %></b>个相关用户
		<%	End If %>
		 </td></tr></table>
  
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
	 <tr><%
	If intTotalNumMembersPages > 1 Then %>
	<td class="text">第<%
		Response.Write vbCrLf & "		 <select onChange=""MembersPage(this)"" name=""SelectPage"">"
		For intTopicPageLoopCounter = 1 to intTotalNumMembersPages
			Response.Write vbCrLf & "		  <option value=""" & intTopicPageLoopCounter & """"
			If intTopicPageLoopCounter = intRecordPositionPageNum Then
				Response.Write " selected"
			End If
			Response.Write ">" & intTopicPageLoopCounter & "</option>"
		Next
		Response.Write vbCrLf & "		</select> 页，共&nbsp;<b>" & intTotalNumMembersPages & "</b> 页</td>"
	End If
%>	 
       <td align="right"><form><span class="text">排列:</span>
        <select name="SelectSort" onChange="MembersSort(this)">
		  <option value="UN" <% If intSortSelectField = 0 Then Response.Write "selected" %>>按用户名字母顺序</option>
         <option value="PT" <% If intSortSelectField = 1 Then Response.Write "selected" %>>文章数</option>
          <option value="LU" <% If intSortSelectField = 2 Then Response.Write "selected" %>>按注册时间正序</option>
         <option value="OU" <% If intSortSelectField = 3 Then Response.Write "selected" %>>按注册时间倒序</option>
          <option value="GP" <% If intSortSelectField = 4 Then Response.Write "selected" %>>按地区</option>
       </select></form>
      </td></tr>
     </table>
     <table width="96%" align="center" border="0" cellspacing="1" cellpadding="1" bgcolor="<% = strTableBgColour %>">
                <tr class="tHeading" height="25" valign="bottom" align="center"> 
                  <td width="15%" background="<% = strTableTitleBgImage %>">用户名</td>
                  <td width="15%" background="<% = strTableTitleBgImage %>">用户级别</td>
                  <td width="18%" background="<% = strTableTitleBgImage %>">注册日期</td>
                  <td width="13%" background="<% = strTableTitleBgImage %>" >发帖数</td>
                  <td width="13%" background="<% = strTableTitleBgImage %>">主页</td>
                  <% If blnPrivateMessages = True Then %>
                  <td width="13%" background="<% = strTableTitleBgImage %>">加为好友</td>
                  <% End If %>
                  <td width="13%" background="<% = strTableTitleBgImage %>">搜索</td>
                </tr>
                <%
		For intRecordLoopCounter = 1 to 25
			If rsConn.EOF Then Exit For
			dtmLastPostDate = ""
			lngUserID = CLng(rsConn("userid"))
			strUsername = rsConn("Username")
			'strEmail = rsConn("useremail")
			'blnShowEmail = CBool(rsConn("disemail"))
			strHomepage = rsConn("Homepage")
			lngNumOfPosts = CLng(rsConn("postnum"))
			dtmRegisteredDate = CDate(rsConn("joindtm"))
			intMemberGroupID = CInt(rsConn("grpid"))
			strMemberGroupName = rsConn("Name")
			intRankStars = CInt(rsConn("Stars"))
			If CBool(rsConn("Active")) = False Then intMemberGroupID = 0
			%>
                <tr  bgcolor="#ffffff" class="smText" align="center"> 
                  <td align="left"><a href="JavaScript:openWin('puprofile.asp?pf=<% = lngUserID %>','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"><% = strUsername %></a></td>
                  <td><% = strMemberGroupName %><br /><img src="images/<% = intRankStars %>star.gif"></td>
                  <td><% = dtmRegisteredDate %></td>
                  <td><% = lngNumOfPosts %></td>
                  <td><% If NOT strHomepage = "" Then Response.Write("<a href=""" & strHomepage & """ target=""top""><img src=""images/homepage.gif"" border=""0"" alt=""访问 " & strUsername & " 的主页""></a>") %></td>
                  <% If blnPrivateMessages = True Then %>
                  <td><a href="friendlist.asp?name=<% = Server.URLEncode(strUsername) %>" target="top"><img src="images/friend.gif" border="0" alt="把 <%= strUsername %> 加为好友"></a></td>
                  <% End If %>
                  <td><a href="search.asp?kw=<% = Server.URLEncode(strUsername) %>&si=AR"><img src="images/searchpic.gif" border="0" alt="搜索&nbsp;<% = strUsername %> 发表的帖子"></a></td>
                </tr><%
	   		rsConn.MoveNext
		Next
	End If
%></table>
 <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" height="32">
      <tr><%
	If intTotalNumMembersPages > 1 Then
		Response.Write vbCrLf & "		<td align=""left"" class=""text"">第 "
		Response.Write vbCrLf & "		 <select onChange=""MembersPage(this)"" name=""SelectPage"">"
		For intTopicPageLoopCounter = 1 to intTotalNumMembersPages
			Response.Write vbCrLf & "		  <option value=""" & intTopicPageLoopCounter & """"
			If intTopicPageLoopCounter = intRecordPositionPageNum Then
				Response.Write " selected"
			End If
			Response.Write ">" & intTopicPageLoopCounter & "</option>"
		Next
		Response.Write vbCrLf & "		</select> 页，共&nbsp;<b>" & intTotalNumMembersPages & "</b> 页</td>"
	End If
%></tr></table>
<%	rsConn.Close
End If
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<br /><br />
   <!-- #include file="includes/footer.asp" -->