回帖统计排行怎么弄？？
其实就是调用数据库语句：
这是回帖代码：


<%
Response.ContentType="application/xhtml+xml; charset=utf-8"
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write "ml; charset=utf-8""/>"
Response.write ""
Response.write ""
Response.write ""
Response.write ""

Page_Login

Response.write"【回帖排行】
"
Dim NO
NO=0
Rs.Open "SELECT top 30 [uid],COUNT([uid]) AS nums FROM [wap_topic_reply] WHERE [status]=0 GROUP BY [uid] ORDER BY nums DESC",Conn
Do While Not Rs.Eof
NO=NO+1
Response.write NO&"."&UserName(Rs(0))&"
"
Rs.MoveNext
Loop
Rs.Close

Response.write "----------
"
Response.write "社区>政府>排行
"
%>


这是发帖排行：

<%
Response.ContentType="application/xhtml+xml; charset=utf-8"
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write "ml; charset=utf-8""/>"
Response.write ""
Response.write ""
Response.write ""
Response.write ""

Page_Login

Response.write "【发帖排行】
"
Dim NO
NO=0
Rs.Open "SELECT top 30 [uid],COUNT([uid]) AS nums FROM [wap_topic] WHERE [status]=0 GROUP BY [uid] ORDER BY nums DESC",Conn
Do While Not Rs.Eof
NO=NO+1
Response.write NO&"."&UserName(Rs(0))&"
"
Rs.MoveNext
Loop
Rs.Close

Response.write "----------
"
Response.write "社区>政府>排行
"
%>