usertop.asp

感谢您使用BBSXP

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

<table border=0 width=100% 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>



<TABLE cellSpacing=1 cellPadding=0 width=100% border=0 class=a2>
<TR align=middle id=TableTitleLink class=a1>
<TD height="25">用户名</TD>
<TD>短讯息</TD>
<TD><a href="?order=UserRegTime">注册时间</a></TD>
<TD><a href="?order=PostTopic">发表文章</a></TD>
<TD><a href="?order=Postrevert">回复文章</a></TD>
<TD><a href="?order=UserMoney">社区金币</a></TD>
<TD><a href="?order=experience">经验值</a></TD>
<TD><a href="?order=UserLandTime">最后登录时间</a></TD>
<TD><a href="?order=UserDegree">登录次数</a></TD>
</TR>
<%

order=Request("order")
if order="" then order="experience"
if instr("|UserRegTime|PostTopic|Postrevert|UserMoney|experience|UserLandTime|UserDegree|","|"&order&"|")<1 then error2("非法操作！")



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


PageSetup=20 '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
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/message.gif"></a></TD>
<TD class=a4><%=Rs("UserRegTime")%></TD>
<TD class=a3><%=Rs("PostTopic")%></TD>
<TD class=a4><%=Rs("Postrevert")%></TD>
<TD class=a3><%=Rs("UserMoney")%></TD>
<TD class=a4><%=Rs("experience")%></TD>
<TD class=a3><%=Rs("UserLandTime")%></TD>
<TD class=a3><%=Rs("UserDegree")%></TD></TR>
<%


Rs.MoveNext
loop
Rs.Close

%>
</TABLE>

<center>


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

</td>
		</tr>
	</table>
	


<br>
<%
htmlend
%>