<!-- #include file="Setup.asp" -->
<%
top
%>
<div class="mainnav">
<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
<tr class=a3>
<td>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 
<a href="?">会员列表</a></td>
</tr>
</table><br>



<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
<TR align=center id=TableTitleLink class=a1>
<TD><a href="?order=UserName">用户名</a></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 Len(order)>15 then error2("非法操作")
if Order<>"" then SqlOrder=" order by "&order&" Desc"


TotalCount=conn.Execute("Select count(ID) From [BBSXP_Users]")(0) '获取数据数量

PageSetup=20 '设定每页的显示数量
TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
PageCount = cint(Request.QueryString("PageIndex")) '获取当前页
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage

sql="select * from [BBSXP_Users] "&SqlOrder&""
if PageCount<11 then
Set Rs=Conn.Execute(sql)
else
rs.Open sql,Conn,1
end if

if TotalPage>1 then RS.Move (PageCount-1) * pagesetup

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=center>
<TD class=a4><a href=Profile.asp?UserName=<%=Rs("UserName")%>><%=Rs("UserName")%></a></TD>
<TD class=a3><a style=cursor:hand onclick="javascript:OpenFriendWindow('MyFriend.asp?menu=Post&incept=<%=Rs("UserName")%>')">
<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
set Rs=Nothing

%>
</TABLE>


<table cellspacing=0 cellpadding=0 border=0 width=100%>
		<tr>
			<td>
<%ShowPage()%>
			</td>
			<td align="right">
<form action="Profile.asp" method="POST">查询用户名：<input size="15" name="UserName"> <input type="submit" value=" 确定 "></td></form>
</td>
		</tr>
</table></div>
<%
htmlend
%>