<%
dim exec, rs, x, i
rcPerPage=40 '排行前多少名用户
main()
sub main()
exec="select top "& rcPerPage &" * from blyh order by postNum desc,id"
Set RS = Server.CreateObject("ADODB.RecordSet")
rs.Open exec, Conn, 1, 1
%>
· 本 留 言 本 发 言 前 <%=rcPerPage%> 名 用 户 ·
<%
i=0
do while not rs.eof
response.write "
"& (i+1) &"."& rs("name") &" ["& rs("postNum") &"]"
i=i+1
if i mod 4=0 then
response.write "
"
else
response.write ""
end if
rs.movenext
loop %>