⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 memberlist.asp

📁 在线考试系统
💻 ASP
字号:
🔍 
<%@ Language=VBScript %>

<% option explicit %>

<!-- #include file="conn_member.asp" -->

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>论坛会员列表</title>
<link rel="stylesheet" type="text/css" href="../main.css">
</head>

<body bgcolor="#FFFFFF">

<SCRIPT language=JavaScript src="../include/header.inc" type=text/javascript></SCRIPT>

<!-- #include file="inc_forumheader.asp" -->

<%
	const ListCount =35

	dim sort
	dim page

	sort=Request("sort")
	if sort="" then sort="regtime"

	page=clng(Request("page"))
	if page=0 then page=1

%>


<center>
<b>r4c 论坛会员列表</b>
<p> </p>
<table border="0" width="760" cellspacing="1" bgcolor="#EAEAEA">
  <tr>
    <td width="69" bgcolor="#687088" align="center" height="25"><a href="memberlist.asp?sort=uid"><u><font color="#FFFFFF">用户名</font></u></a></td>
    <td width="36" bgcolor="#687088" align="center" height="25"><font color="#FFFFFF">Email</font></td>
    <td width="36" bgcolor="#687088" align="center" height="25"><font color="#FFFFFF">主页</font></td>
    <td width="44" bgcolor="#687088" align="center" height="25"><font color="#FFFFFF">QQ/MSN</font></td>
    <td width="32" bgcolor="#687088" align="center" height="25"><a href="memberlist.asp?sort=sex"><u><font color="#FFFFFF">性别</font></u></a></td>
    <td width="68" bgcolor="#687088" align="center" height="25"><a href="memberlist.asp?sort=birthday"><u><font color="#FFFFFF">生日</font></u></a></td>
    <td width="43" bgcolor="#687088" align="center" height="25"><font color="#FFFFFF">职业</font></td>
    <td width="68" bgcolor="#687088" align="center" height="25"><a href="memberlist.asp?sort=province"><u><font color="#FFFFFF">来自</font></u></a></td>
    <td width="68" bgcolor="#687088" align="center" height="25"><a href="memberlist.asp?sort=regtime"><u><font color="#FFFFFF">注册时间</font></u></a></td>
    <td width="35" bgcolor="#687088" align="center" height="25"><a href="memberlist.asp?sort=score"><u><font color="#FFFFFF">积分</font></u></a></td>
    <td width="193" bgcolor="#687088" align="center" height="25"><font color="#FFFFFF">简介</font></td>
  </tr>

<%
	Dim Rs
	set Rs=Server.CreateObject ("ADODB.Recordset")

	if sort="uid" or sort="" then
		Rs.Open "SELECT * FROM tmember ORDER BY uid",connm,3 ,3
	elseif sort="sex" then
		Rs.Open "SELECT * FROM tmember ORDER BY sex",connm,3 ,3
	elseif sort="birthday" then
		Rs.Open "SELECT * FROM tmember ORDER BY birthday DESC",connm,3 ,3
	elseif sort="province" then
		Rs.Open "SELECT * FROM tmember ORDER BY comefrom",connm,3 ,3
	elseif sort="regtime" then
		Rs.Open "SELECT * FROM tmember ORDER BY regtime DESC",connm,3 ,3
	elseif sort="score" then
		Rs.Open "SELECT * FROM tmember ORDER BY score DESC",connm,3 ,3
	else
		Rs.Open "SELECT * FROM tmember ORDER BY uid",connm,3 ,3
	end if

	if Rs.BOF and Rs.EOF then
		Response.Write "没有用户的资料！" & uid & " <a href='index.asp'>back</a>"
		Response.End
	end if

	rs.PageSize =ListCount

	if Page>rs.PageCount then Page=rs.PageCount

	rs.AbsolutePage=Page

	'Rs.MoveFirst

	dim i
	for i=1 to ListCount
%>
  <tr>
    <td width="69" align="center" bgcolor="#EFEFEF" height="22">
      <p align="left">
      <%
      if rs("lock")=1 then
		Response.Write "<img src='images/lock.gif' alt='该用户已经被封锁' border='0'>"
      end if
      Response.Write "<a href='viewinfo.asp?uid=" & rs("uid") & "'>"
      Response.Write Rs("uid")
      Response.Write "</a>"
      %>
      </td>
    <td width="36" bgcolor="#FFFFFF" height="22">
		<% if rs("email")<>"" then %>
		<a href="mailto:<%=rs("email")%>"><img border="0" src="images/email.gif" width="24" height="11" alt="<%=rs("email")%>"></a>
		<% end if %>
	</td>
    <td width="36" bgcolor="#FFFFFF" height="22">
		<% if rs("homepage")<>"" and len(rs("homepage"))>7 then %>
		<a href="<%=rs("homepage")%>" target="_blank"><img border="0" src="images/homepage.gif" width="14" height="14" alt="<%=rs("homepage")%>">
		<% end if %>
	</td>
    <td width="44" bgcolor="#FFFFFF" height="22">
		<% if rs("qq")<>"" then %>
		<a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>">
		<img border="0" src="images/oicq.gif" width="16" height="16" alt="QQ:<%=rs("qq")%>">
		</a>
		<% end if %>
		<% if rs("msn")<>"" then %>
		<img border="0" src="images/msn.gif" width="16" height="16" alt="MSN:<%=rs("msn")%>">
		<% end if %>
	</td>
    <td width="32" bgcolor="#FFFFFF" height="22">
    				<%
					if rs("sex")=1 then
						Response.Write "男"
					else
						Response.Write "女"
                    end if
                    %>
    </td>
    <td width="68" bgcolor="#EFEFEF" height="22"> <%=Mid(Rs("birthday"),6)%></td>
    <td width="43" bgcolor="#FFFFFF" height="22"> <%=Rs("Career")%></td>
    <td width="68" bgcolor="#FFFFFF" height="22"> <%=Rs("comefrom")%></td>
    <td width="68" bgcolor="#EFEFEF" height="22"> <%=FormatDateTime(Rs("regtime"),vbShortDate)%></td>
    <td width="35" align="right" bgcolor="#FFFFFF" height="22"> <%=Rs("score")%></td>
    <td width="193" bgcolor="#EFEFEF" height="22">
      <p align="left"><%=Rs("intro")%></td>
  </tr>

<%
	Rs.MoveNext
	if Rs.EOF then exit for
	next
%>

</table>
</center>

<p>　</p>
<form method="POST">
  <center>
  <table border="0" width="760" cellspacing="1" bgcolor="#EFEFEF">
    <tr>
      <td width="70%" bgcolor="#FFFFFF">
        <p align="left">
        <%
        if Page<>1 then
			Response.Write "<a href='memberlist.asp?sort=" & sort & "&page=1'>第一页</a> | "
			Response.Write "<a href='memberlist.asp?sort=" & sort & "&page=" & page - 1 & "'>前一页</a> | "
		else
			Response.Write "<font color='#AAAAAA'>第一页</font> | "
			Response.Write "<font color='#AAAAAA'>前一页</font> | "
		end if

		if Page<>rs.PageCount then
			Response.Write "<a href='memberlist.asp?sort=" & sort & "&page=" & page + 1 & "'>后一页</a> | "
			Response.Write "<a href='memberlist.asp?sort=" & sort & "&page=" & Rs.PageCount & "'>最后一页</a>"
		else
			Response.Write "<font color='#AAAAAA'>后一页</font> | "
			Response.Write "<font color='#AAAAAA'>最后一页</font>"
		end if
        %>
      </td>
      <td width="30%" bgcolor="#FFFFFF">
        <p align="right">转到第 <input type="text" name="page" size="4" style="border-style: solid; border-width: 1" value="<%=page%>">  页  总共 <%=Rs.PageCount%> 页
		<input type="hidden" name="sort" value="<%=sort%>">
      </td>
    </tr>

  </table>
  </center>
</form>

<%
	Rs.Close
	set rs=nothing
	call closeconnm()
%>

<p>　</p>

<SCRIPT language=JavaScript src="../include/buttom.inc" type=text/javascript></SCRIPT>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -