members.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

   <td bgcolor="<% =strPopUpTableColor %>"><font colour="<% =strDefaultFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">搜索：&nbsp;
<% if Request("mode") <> "" then %>
  <input type="checkbox" name="UserName" value="1" <% if srchUName <> "" then response.write "checked" %> >用户名
<% else %>
  <input type="checkbox" name="UserName" value="1" checked>用户名
<% end if %>
  &nbsp;&nbsp;<input type="checkbox" name="FirstName" value="1" <% if srchFName <> "" then response.write "checked" %> >名字
  &nbsp;&nbsp;<input type="checkbox" name="LastName" value="1" <% if srchLName <> "" then response.write "checked" %>>姓氏
  <% if Trim(strState)  = "1" then %>
	&nbsp;&nbsp;<input type="checkbox" name="State" value="1" <% if srchState <> "" then response.write "checked" %>>状态
  <% End If %>
  </font></td>
  <td bgcolor="<% =strPopUpTableColor %>"><font colour="<% =strDefaultFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">查找：&nbsp;<input type="text" name="M_NAME" size="20" value="<%= SearchName %>"></font></td>
<input type="hidden" name="mode" value="<% =Method %>">
<input type="hidden" name="initial" value="0">
  <td bgcolor="<% =strPopUpTableColor %>">
   <INPUT src=<%=strImageURL %>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=<% =Method %>&M_NAME=&initial=1&method=<%=SortMethod %> ">全部</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=A&initial=1&method=<%=SortMethod %> ">A</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=B&initial=1&method=<%=SortMethod %> "">B</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=C&initial=1&method=<%=SortMethod %> "">C</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=D&initial=1&method=<%=SortMethod %> "">D</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=E&initial=1&method=<%=SortMethod %> "">E</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=F&initial=1&method=<%=SortMethod %> "">F</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=G&initial=1&method=<%=SortMethod %> "">G</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=H&initial=1&method=<%=SortMethod %> "">H</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=I&initial=1&method=<%=SortMethod %> "">I</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=J&initial=1&method=<%=SortMethod %> "">J</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=K&initial=1&method=<%=SortMethod %> "">K</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=L&initial=1&method=<%=SortMethod %> "">L</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=M&initial=1&method=<%=SortMethod %> "">M</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=N&initial=1&method=<%=SortMethod %> "">N</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=O&initial=1&method=<%=SortMethod %> "">O</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=P&initial=1&method=<%=SortMethod %> "">P</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=Q&initial=1&method=<%=SortMethod %> "">Q</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=R&initial=1&method=<%=SortMethod %> "">R</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=S&initial=1&method=<%=SortMethod %> "">S</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=T&initial=1&method=<%=SortMethod %> "">T</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=U&initial=1&method=<%=SortMethod %> "">U</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=V&initial=1&method=<%=SortMethod %> "">V</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=W&initial=1&method=<%=SortMethod %> "">W</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=X&initial=1&method=<%=SortMethod %> "">X</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=Y&initial=1&method=<%=SortMethod %> "">Y</a>
	<a href="members.asp?mode=<% =Method %>&M_NAME=Z&initial=1&method=<%=SortMethod %> "">Z</a><br>
	</font></td>
  </tr>
</table>
<br>
<table border="0" width="<% Response.Write strTableWidth %>" 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=<% =Method %>&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=<% =Method %>&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=<% =Method %>&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=<% =Method %>&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=<% =Method %>&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=<% =Method %>&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="查看会员资料" border=0 hspace="0"><%
		else
        %><img src="<%=strImageURL %>icon_profile.gif" alt="查看会员资料" 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" 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="<%=strImageURL %>oicq.gif" 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" 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 "<B>[&nbsp;"
		if myPage-10 > 0 then
			Response.Write "<a href=""" & sScriptName & "?whichpage=" & StartPageNum-1 & "&method=" & sMethod & """>←</a>&nbsp;"
		end if

		For I = StartPageNum to EndPageNum
			if I <> myPage then
				Response.Write "<a href=""" & sScriptName & "?whichpage=" & I & "&method=" & sMethod & """>" & I & "</a>&nbsp;"
			else
				Response.Write "<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & " color=" & strInsistFontColor & ">" & I & "</FONT>&nbsp;"
			end if
		Next

		if EndPageNum < maxpages then
			Response.Write "<a href=""" & sScriptName & "?whichpage=" & EndPageNum + 1 & "&method=" & sMethod & """>→</a>&nbsp;"
		end if
		Response.Write "]</B>"
	end if
end sub
%>