usertop.asp

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=750 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="index.asp"><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　会员排行榜</td>
</tr>
</table>
<br>

<TABLE cellSpacing=0 width=750 align=center bgColor=a4b6d7 border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<table borderColor="#a4b6d7" height="28" cellSpacing="0" cellPadding="1" width="750" align="center" border="1">
<tr bgColor="#c4d4e5">
<td align="middle" width="58" bgColor="#ecf5ff">
<img src="images/announce.gif" align="middle"></td>
<td width="442" bgColor="#f2f8ff">　<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 width="239" bgColor="#f2f8ff" align="center">统计时间： <%=date-1%> —— <%=date%></td>
</tr>
</table>
<div align="center">
<center>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width=750
border=1 height="25">
<TBODY>
<TR align=middle bgColor=c4d4e5>
<TD width="58" background=images/title_sub.gif><font color=000000>用户名</font></TD>
<TD width="48" background=images/title_sub.gif><font color=000000>主页</font></TD>
<TD width="42" background=images/title_sub.gif><font color=000000>QQ</font></TD>
<TD width="57" background=images/title_sub.gif>短讯息</TD>
<TD width="77" background=images/title_sub.gif><a href="?order=regtime"><font color=000000>注册时间</font></a></TD>
<TD width="74" background=images/title_sub.gif><a href="?order=posttopic"><font color=000000>发表文章</font></a></TD>
<TD width="79" background=images/title_sub.gif><a href="?order=postrevert"><font color=000000>回复文章</font></a></TD>
<TD width="77" background=images/title_sub.gif><a href="?order=money"><font color=000000>社区银两</font></a></TD>
<TD width="56" background=images/title_sub.gif><a href="?order=experience"><font color=000000>经验值</font></a></TD>
<TD width="99" background=images/title_sub.gif><a href="?order=landtime"><font color=000000>最后登陆时间</font></a></TD>
</TR></TBODY></TABLE>
</center>
</div>
<%



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

%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=1 width=750 align=center border=1>

<TBODY><TR align=middle bgColor=c4d4e5>
<TD width=58 bgcolor=#F2F8FF><a href=profile.asp?username=<%=rs("username")%>><%=rs("username")%></a>　</TD>
<TD width=48 bgcolor=#F2F8FF><%=userhome%>　</TD>
<TD width=42 bgcolor=#ECF5FF><%=userqq%>　</TD>
<TD width=57 bgcolor=#F2F8FF><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 width=77 bgcolor=#ECF5FF><%=rs("regtime")%>　</TD>
<TD width=74 bgcolor=#F2F8FF><%=rs("posttopic")%>　</TD>
<TD width=79 bgcolor=#ECF5FF><%=rs("postrevert")%>　</TD>
<TD width=77 bgcolor=#F2F8FF><%=rs("money")%>　</TD>
<TD width=56 bgcolor=#ECF5FF><%=rs("experience")%>　</TD>
<TD width=99 bgcolor=#F2F8FF><%=rs("landtime")%>　</TD></TR></TBODY></TABLE>
<%


RS.MoveNext
loop
RS.Close

%>
<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
%>