usertop.asp

一个超市管理系统

<!-- #include file="setup.asp" -->
<%
if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if
top
%>


<title>会员排行榜</title>

<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
</style>
<table width=97% align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td>　<img src="images/closedfold.gif" border="0">　<a href=Default.asp?menu=listtitle><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　会员排行榜</td>
</tr>
</table>
<br>

<table height="28" cellSpacing="0" cellPadding="1" width=97% align="center" border="0">
<tr>
<td align="middle">
<img src="images/announce.gif" align="middle"></td>
<td>　<marquee onmouseover="this.stop()" onmouseout="this.start()" width="400"  scrollAmount=3><a href=# onclick=javascript:open('affiche.asp','','width=400,height=180,resizable,scrollbars')><%=affichetitle%></a>　［<%=affichetime%>］</marquee></td>
<td align="right"><img src="images/online.gif"> 统计时间： <%=date-1%> —— <%=date%></td>
</tr>
</table>
<div align="center">
<center>
<TABLE cellSpacing=1 cellPadding=0 width=97% border=0 class=a2>
<TR align=middle>
<TD class=a1><font color=000000>用户名</font></TD>
<TD class=a1 height="25"><font color=000000>主页</font></TD>

<TD class=a1 height="25"><font color=000000>QQ</font></TD>


<TD class=a1><font color=000000><font color="#000000">ICQ</font></TD>
<TD class=a1><font color=000000>短讯息</font></TD>
<TD class=a1><a href="?order=regtime"><font color=000000>注册时间</font></a></TD>
<TD class=a1><a href="?order=posttopic"><font color=000000>发表文章</font></a></TD>
<TD class=a1><a href="?order=postrevert"><font color=000000>回复文章</font></a></TD>
<TD class=a1><a href="?order=money"><font color=000000>社区银两</font></a></TD>
<TD class=a1><a href="?order=experience"><font color=000000>经验值</font></a></TD>
<TD class=a1><a href="?order=landtime"><font color=000000>最后登陆时间</font></a></TD>
</TR>
<%



if  Request("order")="regtime" then
order="regtime"
elseif  Request("order")="posttopic" then
order="posttopic"
elseif  Request("order")="postrevert" then
order="postrevert"
elseif  Request("order")="money" then
order="money"
elseif  Request("order")="landtime" then
order="landtime"
else
order="experience"
end if



pagesetup=20   '设定每页的显示数量
count=conn.execute("Select count(id)from user where landtime>now-1")(0)
sql="select * from user where landtime>now-1 order by "&order&" Desc "
rs.Open sql,Conn
If count/pagesetup > (count\pagesetup) then
TotalPage=(count\pagesetup)+1
else TotalPage=(count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
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

if rs("icq")<>"" then
icq="<a href=# onclick=javascript:open('icq.asp?icq="&rs("icq")&"','','width=320,height=170')><img border=0 src=http://web.icq.com/whitepages/online?img=5&icq="&rs("icq")&" alt=ICQ:"&rs("icq")&"></a>"
else
icq=""
end if

if rs("userqq")<>"" then
qq="<img border=0 src=images/qq.gif alt=QQ:"&rs("userqq")&">"
else
qq=""
end if



%>

<TBODY><TR align=middle>
<TD class=a4><a href=Profile.asp?username=<%=rs("username")%>><%=rs("username")%></a>　</TD>
<TD class=a3><%=userhome%>　</TD>
<TD class=a4><%=qq%>　</TD>
<TD class=a4><%=icq%>　</TD>
<TD class=a3><a href=# 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></TR>
<%


RS.MoveNext
loop
RS.Close

%>
</TABLE><center><br>
[

<%
ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?topage=1&order="&Request("order")&">1</a> ... "
end if


for i=ii to iii
If i<>PageCount then
Response.Write " <a href=?topage="& i &"&order="&Request("order")&">" & i & "</a> "
else
Response.Write " <font color=#000000><b>"&i&"</b></font> "
end if
next

if TotalPage > PageCount+5 then
Response.Write " ... <a href=?topage="&TotalPage&"&order="&Request("order")&">"&TotalPage&"</a>"
end if
%>
]</b>

<br>
<%
htmlend
%>