📄 userlist.asp

📁 功能非常完整的校友录
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!-- #include file="const.asp" -->
<!-- #include file="char.asp" -->
<%


	dim orders,ordername

	if not isInteger(request("orders")) or request("orders")="" then
		orders=1
	else
		orders=request("orders")
	end if

	select case orders
	case 1
		orders=1
		ordername="用户积分Top10"
	case 2
		orders=2
		ordername="最新注册用户"
	case 7
		orders=7
		ordername="所有用户列表"
	case else
		orders=1
		ordername="用户积分Top10"
	end select
	
	dim totalPages,currentPage
	currentPage=request.querystring("page")
	stats=ordername
%>
<HTML><HEAD><TITLE><%=SchoolmateName%>——<%=ordername%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="txl.css" type="text/css" rel="stylesheet">
</HEAD>
<BODY topmargin="0" leftmargin="0">
<!--#INCLUDE FILE="script/popup.inc" -->
<br><br>

    <table width=85% bgcolor=<%=TableborderColor%>  cellspacing=0 border=0  align=center>
    	<tr>
	        <td>
        	
<table cellpadding=6 cellspacing=1 border=1 width=100% bgcolor=<%=TableborderColor%> bordercolor=<%=TableborderColor%> bordercolorlight=<%=TablebodyColor1%>  bordercolordark=<%=TablebodyColor1%>>
<form method="POST" action="UserList.asp"> 
<tr bgcolor=<%=TablebodyColor1%>> 
<td colspan=6 valign=top width=350 valign=absmiddle>&nbsp;>> <B><%=ordername%></B> <<
<font face=宋体>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;总注册用户数：<%=users%>人</font></td>
<td colspan=2 align=right> 
<select name=orders onchange='javascript:submit()'>
<option value=1 <%if orders=1 then%>selected<%end if%>>用户积分Top10</option>
<option value=2 <%if orders=2 then%>selected<%end if%>>最新注册用户</option>
<option value=7 <%if orders=7 then%>selected<%end if%>>所有用户列表</option>
</select>
</td>
</tr></form>
<tr bgcolor=<%=TabletitleColor%> style=color:<%=TableFontColor%>  bordercolorlight=<%=TabletitleColor%>  bordercolordark=<%=TabletitleColor%>> 
<td align=center><b>用户名</b></td>
<td align=center><b>电子邮件</b></td>
<td align=center><b>QQ号码</b></td>
<td align=center><b>主页地址</b></td>
<td align=center><b>短消息</b></td>
<td align=center><b>目前积分</td>
<td align=center><b>注册时间</b></td>
<td align=center><b>访问次数</b></td>
</tr>
<%
	dim rs,sql
	set rs=server.createobject("adodb.recordset")
	select case orders
	case 1
		sql="select top 10 userid,email,isemailshow,oicq,isoicqshow,homepage,ishomepageshow,point,visitcount,regdate from [student] where userid<>'' order by point desc"
	case 2
		sql="select top 10 userid,email,isemailshow,oicq,isoicqshow,homepage,ishomepageshow,point,visitcount,regdate from [student]  where userid<>'' order by studid desc"
	case 7
		sql="select userid,email,isemailshow,oicq,isoicqshow,homepage,ishomepageshow,point,visitcount,regdate from [student]  where userid<>'' order by studid desc"
	case else
		sql="select top 10 userid,email,isemailshow,oicq,isoicqshow,homepage,ishomepageshow,point,visitcount,regdate from [student]  where userid<>'' order by point desc"
	end select
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
<tr bgcolor=<%=TableBodyColor2%>> 
<td colspan=9>　　还没有任何用户数据。</td>
</tr>
<%
	else
		rs.pagesize=20
		totalpages=rs.pagecount
		if currentpage="" then currentpage=1
		if not isNumeric(currentpage) then
			currentpage=1
		elseif Cint(currentpage)>totalpages then
			currentpage=totalpages
		end if
		currentpage=Cint(currentpage)
		rs.absolutepage=currentpage

		for i=1 to 20
			if rs.eof then exit for
name=htmlencode(rs("userid"))
%>

<tr bgcolor=<%=TablebodyColor2%> > 
<td >&nbsp;<a href="profile.asp?name=<%=name%>"  target=_blank  onmouseout="kill()" onmouseover="popup('查看<%=name%>的个人信息','<%=tablebodycolor1%>')"><%=name%></a></td>
<td align=center>
<%if rs("isemailshow")=true then%>
<a href="mailto:<%=htmlencode(rs("email"))%>" onmouseout="kill()"  onmouseover="popup('给<%=name%>发电子邮件','<%=tablebodycolor1%>')">
<img border="0" src="images/email.gif" hspace="1" >邮件</a>
<%else
response.write "保密"
end if 
%>
</td>
<td align=center> 
<%
if rs("isoicqshow")=false then
response.write "保密"
elseif rs("oicq")="" or isnull(rs("oicq")) then
response.write "-"
else%>
<a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=htmlencode(rs("oicq"))%>"  target=_blank onmouseout="kill()" onmouseover="popup('查看<%=name%>的QQ资料','<%=tablebodycolor1%>')"><img src=images/oicq.gif border=0 width=16 height=16 hspace=1>QQ</a>
<%end if%>
</td>
<td align=center> 
<%if rs("ishomepageshow")=false then
response.write "保密"
elseif rs("homepage")="" or isnull(rs("homepage")) or rs("homepage")="http://" then
response.write "-"
else%>
<a href="<%=htmlencode(rs("homepage"))%>" target=_blank  onmouseout="kill()" onmouseover="popup('访问<%=name%>的主页','<%=tablebodycolor1%>')"><img border=0 src=images/homepage.gif width=16 height=16 hspace=1>主页</a>
<%end if%>
</td>
<td align=center><a href="usersms.asp?action=new&touser=<%=name%>" target=_blank onmouseout="kill()" onmouseover="popup('给<%=name%>发短消息','<%=tablebodycolor1%>')"><img border=0 src=images/message.gif width=16 height=16 hspace=1>消息</a></td>
<td align=center><%=rs("point")%></td>
<td align=center><%=rs("regDate")%></td>
<td align=center> <%=rs("visitcount")%><br>
</td>
</tr>
<%
		rs.movenext
		next
	end if
	rs.close
	set rs=nothing
%>
</table>
</td></tr>
</table>
<table width=85% align="center" >
<tr><td align=right>
<% if currentpage=0 then currentpage=1
response.write "共 "&totalpages&" 页 第 "&currentpage&" 页　"
if currentpage=1 or totalpages=0 then
			response.write "<font color=gray>首页　前页</font>"
		else
			response.write "<a href=?page=1&orders="&orders&">首页</a>　<a href=?page="&currentpage-1&"&orders="&orders&">前页</a>"
		end if
		
		if currentpage=totalpages or totalpages=0 then
			response.write "　<font color=gray>后页　尾页</font>"
		else
			response.write "　<a href=?page="&currentpage+1&"&orders="&orders&">后页</a>　<a href=?page="&totalpages&"&orders="&orders&">尾页</a>"
		end if
%>
</td></tr></table>
<!--#include file="footer.asp"-->
⌨️ 快捷键说明

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