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

order=HTMLEncode(Request("order"))

top
%>

<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25><img src=images/Forum_nav.gif><%ClubTree%> → 社区十大会员排行(点击<font color=red>红色</font>项目即可看到不同排行)</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><a href="?order=regtime"><font color=red>注册时间</font></a></TD>
<TD><a href="?order=membercode"><font color=red>社区等级</font></a></TD>
<TD><a href="?order=power"><font color=red>社区威望</font></a></TD>
<TD><a href="?order=experience"><font color=red>社区经验</font></a></TD>
<TD><a href="?order=magicpower"><font color=red>社区魅力</font></a></TD>
<TD><a href="?order=posttopic"><font color=red>发表主题</font></a></TD>
<TD><a href="?order=postrevert"><font color=red>回复主题</font></a></TD>
<TD><font color=red>总发贴数</font></TD>
<TD><a href="?order=money"><font color=red>持有现金</font></a></TD>
<TD><a href="?order=savemoney"><font color=red>社区存款</font></a></TD>
<TD><font color=red>社区总资产</font></TD>
</TR>
<%


sql="select * from [user] where membercode >1 order by posttopic Desc"
rs.Open sql,Conn,1

if order="" then order="money+savemoney"

pagesetup=10 '设定每页的显示数量

count=conn.execute("Select count(id) from [user]")(0)
TotalPage=cint(count/pagesetup) '总页数
if TotalPage < count/pagesetup then TotalPage=TotalPage+1
PageCount = cint(Request.QueryString("ToPage"))
if PageCount < 1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage


sql="select * from [user] order by "&order&" Desc "

if PageCount>2 then
rs.Open sql,Conn,1
else
Set Rs=Conn.Execute(sql)
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("membercode")=6 then
zhiwu="社区区长"
elseif rs("membercode")=5 then
zhiwu="管理员"
elseif rs("membercode")=4 then
zhiwu="超级版主"
elseif rs("membercode")=3 then
zhiwu="社区版主"
elseif rs("membercode")=2 then
zhiwu="贵宾会员"
elseif rs("membercode")=1 then
zhiwu="普通会员"

end if

%>


<TBODY><TR align=middle height="25">
<TD class=a4><a href=Profile.asp?username=<%=rs("username")%>><%=rs("username")%></a></TD>
<TD class=a3><%=rs("regtime")%></TD>
<TD class=a4><%=zhiwu%></TD>
<TD class=a3><%=rs("power")%></TD>
<TD class=a4><%=rs("experience")%></TD>
<TD class=a3><%=rs("magicpower")%></TD>
<TD class=a4><%=rs("posttopic")%></TD>
<TD class=a3><%=rs("postrevert")%></TD>
<TD class=a4><%=rs("posttopic")+rs("postrevert")%></TD>
<TD class=a3><%=rs("money")%></TD>
<TD class=a4><%=rs("savemoney")%></TD>
<TD class=a3><%=rs("savemoney")+rs("money")%></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>分页：<font color=red>[ 1
]</font></b></td>
</tr>
</table>



<br>
<%
htmlend
%>