<% set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from ydbbs where prentID=0 and city=2 order by pid asc",conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=8 Dim Count,page,pagecount,gopage gopage="adminbbs.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&"." dim username set rs1=Server.CreateObject("ADODB.Recordset") rs1.open"select name from users where id="&rs("adminusid"),conn,1,1 If rs1.eof Then username="" else username=rs1("name") end if rs1.close set rs1=nothing response.write "群组名称:"&rs("name") response.write "
群组管理:"&username response.write "
简介:"&left(rs("grouptxt"),30) response.write "..." if rs("yc")=1 then response.write "
状态:隐藏" else response.write "
状态:正常" end if response.write"
编辑"&chr(13) response.write"删除
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页,共"&Count&"条
跳到该页
" Else Response.write "暂时没有群组！
" end if rs.close set rs=nothing conn.close set conn=nothing response.write"----------
" response.write"群组设置" %>