By admin at 2008-07-11
0人收藏 • 5927人看过

论坛排行榜 财富排行榜+经验排行榜+发帖排行榜+新进会员 一个不错的会员排行帖子调用这东西都让人写烂了今天,笔者就跳出这个俗套(这句对白似曾相识) 搞了个用户调用,望大家能喜欢

安装步骤

打开Default.asp

找到    </marquee>   </td>  </tr> </table>

<% End If Rs.Close

在下面加上

[ybbreview]

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

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

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

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

<td valign=top><%
Sql="Select Top "&T*1&" UserName,Experience From ["&TablePrefix&"Users] Where UserActivityTime>"&SqlNowString&"-60 Order by (Experience) Desc,UserID"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
Response.Write "<a href=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 ["&TablePrefix&"Users] Order By UserID Desc"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
Response.write "<a href=Profile.asp?USERNAME="&Rs("UserName")&">↓ "&Rs("UserName")&"</a>(<font color=aabb99>"&(Rs("UserRegisterTime"))&"</font>)<br>"
Rs.MoveNext
Loop
Rs.Close
%></td></tr></table>
<%
<!---论坛排行榜调用结束（for BBSXP 2008）http://cbgzs.8800.org--->
[/ybbreview]

［此帖子已被 admin 在 2008-7-11 17:40:18 编辑过］