<% Set rs = Server.CreateObject("ADODB.Recordset") rs.open"select * from online order by times desc",conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="onlineview.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 response.write""&i+(page-1)*PageSize&"." if rs("online")=1 then response.write ""&ubb(rs("name"))&"(ID:"&rs("userid")&")" response.write""&vipshow(rs("userid"))&"" else response.write""&ubb(rs("name"))&"(ID:"&rs("userid")&")" end if response.write"
("&fordate(rs("times")) response.write"IP:"&rs("onlineip")&")
" rs.moveNext Next response.write"共"&Count&"人,"&page&"/"&pagecount&"
" if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
页跳转
" Else response.write"暂无在线用户！
" end if rs.close set rs=nothing conn.close set conn=nothing response.write"---------" %>