usertop.asp

很漂亮

<!-- #include file="setup.asp" -->
<%
top
%>

<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 会员列表(TOP 500)</td>
</tr>
</table><br>

<center>


<SCRIPT>valigntop()</SCRIPT>
<TABLE cellSpacing=1 cellPadding=0 width=97% border=0 class=a2>
<TR align=middle id=TableTitleLink class=a1>
<TD height="25">用户名</TD>
<TD>短讯息</TD>
<TD><a href="?order=regtime">注册时间</a></TD>
<TD><a href="?order=posttopic">发表文章</a></TD>
<TD><a href="?order=postrevert">回复文章</a></TD>
<TD><a href="?order=money">社区金币</a></TD>
<TD><a href="?order=experience">经验值</a></TD>
<TD><a href="?order=landtime">最后登录时间</a></TD>
<TD><a href="?order=degree">登录次数</a></TD>
</TR>
<%

order=Request("order")
if order="" then order="experience"
if instr("|regtime|posttopic|postrevert|money|experience|landtime|degree|","|"&order&"|")<1 then error2("非法操作！")



sql="select top 500 * from [user] order by "&order&" Desc "
rs.Open sql,Conn,1


pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1



if rs("userhome")<>"http://" then
userhome="<a href="&rs("userhome")&" target=_blank><img border=0 src=images/home.gif></a>"
else
userhome=""
end if

%>

<TR align=middle height="25">
<TD class=a4><a href=Profile.asp?username=<%=rs("username")%>><%=rs("username")%></a></TD>
<TD class=a3><a style=cursor:hand onclick="javascript:open('friend.asp?menu=post&incept=<%=rs("username")%>','','width=320,height=170')">
<img border="0" src="images/message1.gif"></a></TD>
<TD class=a4><%=rs("regtime")%></TD>
<TD class=a3><%=rs("posttopic")%></TD>
<TD class=a4><%=rs("postrevert")%></TD>
<TD class=a3><%=rs("money")%></TD>
<TD class=a4><%=rs("experience")%></TD>
<TD class=a3><%=rs("landtime")%></TD>
<TD class=a3><%=rs("degree")%></TD></TR>
<%


RS.MoveNext
loop
RS.Close

%>
</TABLE>
<SCRIPT>valignbottom()</SCRIPT>
<center>


	<table border="0" width="97%">
		<tr>
			<td width="50%" align="center"><form action="Profile.asp" method="post">查询用户名：<input size="15" name="username"> <input type="submit" value=" 确定 "></td></form></td>
			<td width="50%" align="center"><b>[
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"order=<%=Request("order")%>")
</script>
]</b></td>
		</tr>
	</table>
	


<br>
<%
htmlend
%>