" Response.write "【大话抢币排行】
" Response.write "排行榜按照在大话抢币净赚"&getcent&"数排名
" set rs=Server.CreateObject("ADODB.Recordset") rsppl="select userid,jbnum,id from YD_plist where jbnum > 0 order by jbnum desc" rs.open rsppl,ydzqconn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="pk_cent.asp?sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For set rs1=Server.CreateObject("ADODB.Recordset") rs1.open"select name from Users where id="&rs("userid")&" order by id desc",conn,1,1 if not rs1.eof then Response.write ""&ubb(rs1("name"))&"(ID:"&ubb(rs("userid"))&")[净赚"&rs("jbnum")&getcent&"]
" end if rs1.close set rs1=nothing rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页跳转
" Else Response.write "暂无相关记录！
" end if rs.close set rs=nothing ydzqconn.close set ydzqconn=nothing conn.close set conn=nothing %> -------------