论坛排行榜 财富排行榜+经验排行榜+发帖排行榜+新进会员

By admin at 2007-03-03 • 0人收藏 • 385人看过

帖子调用这东西都让人写烂了

今天,笔者就跳出这个俗套(这句对白似曾相识)

搞了个用户调用,望大家能喜欢,版主能加精,我是菜鸟,错的一定很多,大家多多包涵!

<!---论坛排行榜调用开始(原创:林灿斌)<BBSXP官方站ID:lincanbin>--->
<%T=8%><!---8是调用的数量,自己可以改,用户少建议不要改大!!!--->
<table class=a2 width=100% align=center border=0 cellpadding=3 cellspacing=1>
<tr class=a1 height=25 align=center>
<td width=25%>财富排行榜/金币</td><td width=25%>发帖排行榜/帖数</td><td width="25%">经验排行榜/经验</td>
<td width="25%">新进会员/注册时间</td>
</tr>
<tr class=a3>
<td valign=top><%
Sql="Select Top "&T*1&" UserName,SaveMoney,UserMoney From [BBSXP_Users] Where UserLandTime>"&SqlNowString&"-60 Order by (SaveMoney+UserMoney) Desc,ID"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
UserName=Rs("UserName")
Response.Write "<a href="&BBSDIR&"/Profile.asp?USERNAME="&Rs("UserName")&">→ "&Rs("UserName")&"</a><font color=aabb99>"&(Rs("UserMoney")+Rs("SaveMoney"))&"</font><br>"

Rs.MoveNext
Loop
Rs.Close
%></td>

<td valign=top><%
Sql="Select Top "&T*1&" UserName,PostTopic,PostRevert From [BBSXP_Users] Where UserLandTime>"&SqlNowString&"-60 Order by (PostTopic+PostRevert) Desc,ID"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
UserName=Rs("UserName")
Response.Write "<a href="&BBSDIR&"/Profile.asp?USERNAME="&Rs("UserName")&">↑ "&Rs("UserName")&"</a><font color=aabb99>"&(Rs("PostTopic")+Rs("PostRevert"))&"</font><br>"

Rs.MoveNext
Loop
Rs.Close
%></td>

<td valign=top><%
Sql="Select Top "&T*1&" UserName,Experience From [BBSXP_Users] Where UserLandTime>"&SqlNowString&"-60 Order by (Experience) Desc,ID"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
UserName=Rs("UserName")
Response.Write "<a href="&BBSDIR&"/Profile.asp?USERNAME="&Rs("UserName")&">→ "&Rs("UserName")&"</a><font color=aabb99>"&(Rs("Experience"))&"</font><br>"

Rs.MoveNext
Loop
Rs.Close
%></td>

<td valign=top><%
Sql="Select top "&T*1&" * From [BBSXP_Users] Order By ID Desc"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
Response.write "<a href="&BBSDIR&"/Profile.asp?USERNAME="&Rs("UserName")&">↓ "&Rs("UserName")&"</a><font color=aabb99>"&(Rs("USERREGTIME"))&"</font><br>"
Rs.MoveNext
Loop
Rs.Close
%></td>
<!---论坛排行榜调用结束(for BBSXP6.x-7.X)http://free.9612.org/cbgzs/--->

演示:http://f1.9612.org/cbgzs/bbsxp6/index.asp

1 个回复 | 最后更新于 2007-12-04
2007-12-04   #1
不错,这个很有用的了 

登录后方可回帖

登 录
信息栏
购买PHP虚拟主机 / VPS

Carbon Forum是一个基于话题的高性能轻型PHP论坛

下载地址:Carbon Forum v5.0.1
QQ群:12607708(QQ我不常上)

donate

手机支付宝扫描上方二维码可向本项目捐款

Loading...