" Set rs = Server.CreateObject("ADODB.Recordset") rs.open"select * from hmd where fl<>0 order by gulitime desc",conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=5 Dim Count,page,pagecount,gopage gopage="blacklist.asp?Action=all&sid="&sid&"&bbsid="&bbsid&"&" 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"管理" response.write""&i+(page-1)*PageSize&".ID:" & ubb1(rs("guliid")) & "" response.write"被ID:" & ubb1(rs("adminname")) & "
" if rs("bbsid")>0 then dim ydbbsname Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.open"select name from ydbbs where id=" & rs("bbsid"),conn,1,1 if not rs1.eof then ydbbsname=rs1("name") end if rs1.close set rs1=nothing if rs("strsell")>0 then response.write"禁发贴(范围:"&ydbbsname&"论坛)" elseif rs("strrel")>0 then response.write"禁回复(范围:"&ydbbsname&"论坛)" elseif rs("strall")>0 then response.write"加黑(范围:"&ydbbsname&"论坛)" END IF else if rs("strsell")>0 then response.write"禁发贴(范围:全区版块)" elseif rs("strrel")>0 then response.write"禁回复(范围:全区版块)" elseif rs("strmsg")>0 then response.write"禁信箱(范围:全区)" elseif rs("strchat")>0 then response.write"禁聊天(范围:全区)" elseif rs("strall")>0 then response.write"加黑(范围:全区版块)" elseif rs("FL")=2 then response.write"永久加黑(范围:全区)" end if end if if rs("fl")<>2 then IF rs("locktian")<>"" then if rs("locktian")="0" then response.write("
期限: 1 小时") ELSE response.write("
期限:" & ubb1(rs("locktian")) & "天") END IF end if end if if rs("FL")=2 then response.write("
理由:严重违反社区制度！") else response.write("
理由:" & ubb1(rs("liyou")) & "") end if response.write("
[" & ubb2(rs("gulitime")) & "]
") 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 conn.close set conn=nothing response.write"----------" %>