members.asp

一个不错的ASP论坛源码

<input type="hidden" name="mode" value="search">
<input type="hidden" name="initial" value="0">
  <td bgcolor="<% =strPopUpTableColor %>">
   <INPUT src=<%=strImageURL %>button_go.gif alt="快速搜索" type="image" value="search" id=submit1 name=submit1 border=0>
  </td>
 </tr> 
 </form> 
  <tr bgcolor="<% =strPopUpTableColor %>">
    <td colspan="3" align="center" valign="top"><font colour="<% =strDefaultFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">        按字母排序：
	<a href="members.asp?mode=search&M_NAME=&initial=1&method=<%=SortMethod %> ">全部</a>
	<a href="members.asp?mode=search&M_NAME=A&initial=1&method=<%=SortMethod %> ">A</a>
	<a href="members.asp?mode=search&M_NAME=B&initial=1&method=<%=SortMethod %> "">B</a>
	<a href="members.asp?mode=search&M_NAME=C&initial=1&method=<%=SortMethod %> "">C</a>
	<a href="members.asp?mode=search&M_NAME=D&initial=1&method=<%=SortMethod %> "">D</a>
	<a href="members.asp?mode=search&M_NAME=E&initial=1&method=<%=SortMethod %> "">E</a>
	<a href="members.asp?mode=search&M_NAME=F&initial=1&method=<%=SortMethod %> "">F</a>
	<a href="members.asp?mode=search&M_NAME=G&initial=1&method=<%=SortMethod %> "">G</a>
	<a href="members.asp?mode=search&M_NAME=H&initial=1&method=<%=SortMethod %> "">H</a>
	<a href="members.asp?mode=search&M_NAME=I&initial=1&method=<%=SortMethod %> "">I</a>
	<a href="members.asp?mode=search&M_NAME=J&initial=1&method=<%=SortMethod %> "">J</a>
	<a href="members.asp?mode=search&M_NAME=K&initial=1&method=<%=SortMethod %> "">K</a>
	<a href="members.asp?mode=search&M_NAME=L&initial=1&method=<%=SortMethod %> "">L</a>
	<a href="members.asp?mode=search&M_NAME=M&initial=1&method=<%=SortMethod %> "">M</a>
	<a href="members.asp?mode=search&M_NAME=N&initial=1&method=<%=SortMethod %> "">N</a>
	<a href="members.asp?mode=search&M_NAME=O&initial=1&method=<%=SortMethod %> "">O</a>
	<a href="members.asp?mode=search&M_NAME=P&initial=1&method=<%=SortMethod %> "">P</a>
	<a href="members.asp?mode=search&M_NAME=Q&initial=1&method=<%=SortMethod %> "">Q</a>
	<a href="members.asp?mode=search&M_NAME=R&initial=1&method=<%=SortMethod %> "">R</a>
	<a href="members.asp?mode=search&M_NAME=S&initial=1&method=<%=SortMethod %> "">S</a>
	<a href="members.asp?mode=search&M_NAME=T&initial=1&method=<%=SortMethod %> "">T</a>
	<a href="members.asp?mode=search&M_NAME=U&initial=1&method=<%=SortMethod %> "">U</a>
	<a href="members.asp?mode=search&M_NAME=V&initial=1&method=<%=SortMethod %> "">V</a>
	<a href="members.asp?mode=search&M_NAME=W&initial=1&method=<%=SortMethod %> "">W</a>
	<a href="members.asp?mode=search&M_NAME=X&initial=1&method=<%=SortMethod %> "">X</a>
	<a href="members.asp?mode=search&M_NAME=Y&initial=1&method=<%=SortMethod %> "">Y</a>
	<a href="members.asp?mode=search&M_NAME=Z&initial=1&method=<%=SortMethod %> "">Z</a><br>
	</font></td>
  </tr>
</table>
<br>
<table border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td bgcolor="<% =strTableBorderColor %>">
    <table border="0" width="100%" cellspacing="1" cellpadding="3">
      <tr>
        <td align="center" bgcolor="<% =strHeadCellColor %>">&nbsp;&nbsp;</td>
        <td align="center" bgcolor="<% =strHeadCellColor %>"><a href="members.asp?link=sort&mode=search&M_NAME=<%=SearchName %>&method=<% if Request.QueryString("method") = "nameasc" then Response.Write("namedesc") else Response.Write("nameasc") end if %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">会员名称</font></b></a></td>
        <td align="center" bgcolor="<% =strHeadCellColor %>"><a href="members.asp?link=sort&mode=search&M_NAME=<%=SearchName %>&method=<% if Request.QueryString("method") = "levelasc" then Response.Write("leveldesc") else Response.Write("levelasc") end if %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">状态</font></b></a></td>
        <td align="center" bgcolor="<% =strHeadCellColor %>"><a href="members.asp?link=sort&mode=search&M_NAME=<%=SearchName %>&method=<% if Request.QueryString("method") = "postsdesc" then Response.Write("postsasc") else Response.Write("postsdesc") end if %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">文章数</font></b></a></td>
        <td align="center" bgcolor="<% =strHeadCellColor %>"><a href="members.asp?link=sort&mode=search&M_NAME=<%=SearchName %>&method=<% if Request.QueryString("method") = "lastpostdatedesc" then Response.Write("lastpostdatedasc") else Response.Write("lastpostdatedesc") end if %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">最后发表</font></b></a></td>
        <td align="center" bgcolor="<% =strHeadCellColor %>"><a href="members.asp?link=sort&mode=search&M_NAME=<%=SearchName %>&method=<% if Request.QueryString("method") = "datedesc" then Response.Write("dateasc") else Response.Write("datedesc") end if %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">注册日期</font></b></a></td>
        <td align="center" bgcolor="<% =strHeadCellColor %>"><a href="members.asp?link=sort&mode=search&M_NAME=<%=SearchName %>&method=<% if Request.QueryString("method") = "countryasc" then Response.Write("countrydesc") else Response.Write("countryasc") end if %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">国籍</font></b></a></td>
<% if mlev = 4 or mlev = 3 then %>
        <td align="center" bgcolor="<% =strHeadCellColor %>"><a href="members.asp?method=<% if Request.QueryString("method") = "lastheredatedesc" then Response.Write("lastheredatedasc") else Response.Write("lastheredatedesc") end if %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">最后登陆时间</font></b></a></td>
<% end if %>
<% if mlev = 4 then %>
        <td align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">&nbsp;</font></b></td>
<% end if %>
      </tr>
<% if rs.EOF or rs.BOF then  '## No Members Found in DB %>
      <tr>
        <td colspan="<%=sGetColspan(9, 7)%>" bgcolor="<% =strForumCellColor %>" ><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>目前没有任何会员</b></font></td>
      </tr>
<% else %>
<%	currMember = 0 %>
<%
	i = 0
	howManyRecs = 0
	rec = 1
	do until rs.Eof or rec = (strPageSize + 1)
		if i = 1 then 
			CColor = strAltForumCellColor
		else
			CColor = strForumCellColor
		end if
%>
      <tr>
        <td bgcolor="<% =CColor %>" align=left>
        <% if strUseExtendedProfile then %>
			<a href="pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>">
        <% else %>
			<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>')">
		<% end if %>	
        <% if rs("M_STATUS") = 0 then 
        %><img src="<%=strImageURL %>icon_profile_locked.gif" alt="查看会员资料" height=15 width=15 border=0 hspace="0"><%
		else 
        %><img src="<%=strImageURL %>icon_profile.gif" alt="查看会员资料" height=15 width=15 border=0 hspace="0"><%
		end if 
        %></a>
<%		if (rs("M_PMRECEIVE") = "1") then %>
	  		<a href="privatesend.asp?method=Topic&mname=<% =rs("M_NAME") %>"><img src="<%=strImageURL %>pm.gif" width="11" height="17" alt="发送悄悄话讯息" border="0" hspace="0"></a>
<%		end if  %>
<%		if strICQ = "1" and Trim(rs("M_ICQ")) <> "" then %>
        <a href="JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ICQ=<% =ChkString(rs("M_ICQ"), "JSurlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"),"display") %>')"><img src="http://online.mirabilis.com/scripts/online.dll?icq=<% =chkstring(rs("M_ICQ"), "urlpath") %>&img=5" height=15 width=15 alt="发送ICQ讯息给 <% =ChkString(rs("M_NAME"),"display") %>" border="0" align="absmiddle" hspace="0"></a>
<%		end if %>
<%		if strYAHOO = "1" and Trim(rs("M_YAHOO")) <> "" then %>
<a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<% =rs("M_YAHOO") %>"  target=_blank><img align=absmiddle width=16 height=16 src="http://icon.tencent.com/<% =rs("M_YAHOO") %>/s/00/" alt="<% =rs("M_YAHOO") %>" border=0></a>
<%		end if %>
<%		if strAIM = "1" and Trim(rs("M_AIM")) <> "" then %>
        <a href="JavaScript:openWindow('pop_messengers.asp?mode=AIM&AIM=<% =ChkString(rs("M_AIM"), "JSurlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"),"JSurlpath") %>')"><img src="<%=strImageURL %>icon_aim.gif" height=15 width=15 alt="发送aim给<% =ChkString(rs("M_NAME"),"display") %>" border="0" align="absmiddle" hspace="0"></a>
<%		end if %>
        </td>
        <td bgcolor="<% =CColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
        <% if strUseExtendedProfile then %>
			<a href="pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>">
        <% else %>
			<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>')">
		<% end if %>	
		<% =ChkString(rs("M_NAME"),"display") %></a></font></td>
        <td bgcolor="<% =CColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkString(getMember_Level(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")),"display") %></font></td>
        <td bgcolor="<% =CColor %>" align=center><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>">
<%		if IsNull(rs("M_POSTS")) then %>
        -
<%		else %>
         <% =rs("M_POSTS") %>
<%			if strShowRank = 2 or strShowRank = 3 then 
%>
        <br><% Response.write(getStar_Level(rs("M_LEVEL"), rs("M_POSTS"))) %>
<%			end if %>
<%		end if %>
        </font></td>
        <% if IsNull(rs("M_LASTPOSTDATE")) or Trim(rs("M_LASTPOSTDATE")) = "" then%>
        <td bgcolor="<% =CColor %>" align=center nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>">-</font></td>
        <% else %>
        <td bgcolor="<% =CColor %>" align=center nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><% =ChkDate(rs("M_LASTPOSTDATE")) %></font></td>
        <% end if %>
        
        <td bgcolor="<% =CColor %>" align=center nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><% =ChkDate(rs("M_DATE")) %></font></td>
        <td bgcolor="<% =CColor %>" align=center><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =rs("M_COUNTRY") %>&nbsp;</font></td>
<%		if mlev = 4 or mlev = 3 then %>
        <td bgcolor="<% =CColor %>" align=center nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><% =ChkDate(rs("M_LASTHEREDATE")) %></font></td>
<%		end if %>
<%		if mlev = 4 then %>
        <td bgcolor="<% =CColor %>" align=center><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<%			if rs("MEMBER_ID") <> 1 then %>
<%				if rs("M_STATUS") <> 0 then %>
          <a href="JavaScript:openWindow('pop_lock.asp?mode=Member&MEMBER_ID=<% =rs("MEMBER_ID") %>')"><img src="<%=strImageURL %>icon_lock.gif" alt="停用此帐号" border="0" hspace="0"></a>
<%				else %>
          <a href="JavaScript:openWindow('pop_open.asp?mode=Member&MEMBER_ID=<% =rs("MEMBER_ID") %>')"><img src="<%=strImageURL %>icon_unlock.gif" alt="开启此帐号" border="0" hspace="0"></a>
<%				end if %>
<%			end if 
			if strUseExtendedProfile then %>
			   <a href="pop_profile.asp?mode=Modify&ID=<% =rs("MEMBER_ID") %>&name=<% =ChkString(rs("M_NAME"),"urlpath") %>"><img src="<%=strImageURL %>icon_pencil.gif" alt="编辑会员" border="0" hspace="0"></a>
<%			else %>
			  <a href="JavaScript:openWindow3('pop_profile.asp?mode=Modify&ID=<% =rs("MEMBER_ID") %>&name=<% =ChkString(rs("M_NAME"),"urlpath") %>')"><img src="<%=strImageURL %>icon_pencil.gif" alt="编辑会员" border="0" hspace="0"></a>
<%			end if
			if rs("MEMBER_ID") = 1 then %>
<%				'## Do Nothing %>
<%			else %>
          <a href="JavaScript:openWindow('pop_delete.asp?mode=Member&MEMBER_ID=<% =rs("MEMBER_ID") %>')"><img src="<%=strImageURL %>icon_trashcan.gif" alt="删除会员" border="0" hspace="0"></a>
<%			end if 
			if rs("M_LEVEL") = 1 then %>
          <a href="pop_profile.asp?mode=Moderator&action=add&ID=<% =rs("MEMBER_ID") %>"><img src="<%=strImageURL %>icon_mod.gif" alt="设为版主" border="0" hspace="0"></a>
		<% Elseif  rs("M_LEVEL") = 2 then%>
		  <a href="pop_profile.asp?mode=Moderator&action=del&ID=<% =rs("MEMBER_ID") %>"><img src="<%=strImageURL %>icon_delmod.gif" alt="卸任版主" border="0" hspace="0"></a>			
		  <% End If %>
        </font></b></td>
<%		end if %>
      </tr>
<%
		currMember = rs("MEMBER_ID")
		rs.MoveNext
		i = i + 1
		if i = 2 then i = 0
		rec = rec + 1
	loop 
end if 
%>
    </table>
	
    </td>
  </tr>
  <tr>
    <td colspan="2">
    <table border="0" width="100%">
      <tr>
        <td>
<% if maxpages > 1 then %>
        <table border=0>
          <tr>
            <td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>会员列表共有 <% =maxpages %> 页：</b> &nbsp;&nbsp;</font></td>
            <td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% Call Paging() %></font></td>
          </tr>
        </table>
<% else %>
        &nbsp;
<% end if %>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
sub Paging2()
	if maxpages > 1 then
		if Request.QueryString("whichpage") = "" then
			sPageNumber = 1
		else
			sPageNumber = Request.QueryString("whichpage")
		end if
		if Request.QueryString("method") = "" then
			sMethod = "postsdesc"
		else
			sMethod = Request.QueryString("method")
		end if

		sScriptName = Request.ServerVariables("script_name")
		Response.Write("<form name=""PageNum"" action=""members.asp?method=" & sMethod & """>")
		Response.Write("<select name=""whichpage"" size=""1"" onchange=""ChangePage()"">")
		for counter = 1 to maxpages
			if counter <> cint(sPageNumber) then   
				Response.Write "<OPTION VALUE=""" & counter &  """>" & counter
			else
				Response.Write "<OPTION SELECTED VALUE=""" & counter &  """>" & counter
			end if
		next
		Response.Write("</select>")

	end if
end sub 

sub Paging()
	if maxpages > 1 then
		if Request.QueryString("whichpage") = "" then
			sPageNumber = 1
		else
			sPageNumber = Request.QueryString("whichpage")
		end if
		if Request.QueryString("method") = "" then
			sMethod = "postsdesc"
		else
			sMethod = Request.QueryString("method")
		end if

		sScriptName = Request.ServerVariables("script_name")
		Response.Write("<table border=0 width=100% cellspacing=0 cellpadding=1 align=top><tr>")
		for counter = 1 to maxpages
			if counter <> cint(sPageNumber) then   
				sNum = "<td align=right bgcolor=" & strPageBGColor & "><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">" & "&nbsp;" & widenum(counter) &  "<a href=""" & sScriptName 
				sNum = sNum & "?whichpage=" & counter
				'sNum = sNum & "&pagesize=" & mypagesize
				sNum = sNum & "&method=" & sMethod
				sNum = sNum & """>" & counter & "</a></font></td>"
				Response.Write sNum
			else
				Response.Write("<td align=right bgcolor=" & strPageBGColor & "><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">" & "&nbsp;" & widenum(counter) & "<b>" & counter & "</b></font></td>")
			end if
			if counter mod strPageNumberSize = 0 then
				Response.Write("</tr><tr>")
			end if
		next
		Response.Write("</tr></table>")
	end if
end sub 
%>