【论坛版主】
<%dim rs1,sellname set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from Users Where skey>0 order by id desc",conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="managers.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 ydbbs Where ID="&rs("skey"),conn,1,1 if not rs1.eof then sellname=rs1("name") end if rs1.close set rs1=nothing Response.write ""&i+(page-1)*PageSize&"." Response.write ""&ubb(rs("name"))&"(ID:"&usb(rs("id"))&")" if keys=1 then Response.write "[撤]" end if Response.write "
" Response.write "(管辖论坛:" Response.write ""&ubb(sellname)&")
" 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 Response.write "【社区管理】
" set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from Users Where keys=1 order by id desc",conn,1,1 If Not rs.eof Then For i=1 To rs.recordcount Response.write ""&ubb(rs("name"))&"(ID:"&usb(rs("id"))&")
" rs.moveNext Next else Response.write "暂时没有管理员！
" end if rs.close set rs=nothing conn.close set conn=Nothing Response.write "------------
" Response.write "社区排行" Response.write "
我的空间" Response.write "
社区首页" Response.write "