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

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

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

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

<!---论坛排行榜调用开始（原创：林灿斌）<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