" bbsid=request.querystring("bbsid") if bbsid="" or IsNumeric(bbsid)=False then Call Error("ID无效！") end if dim ydbbsn,rs1 Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.open"select name from ydbbs where id=" & bbsid,conn,1,1 if not rs1.eof then ydbbsn=rs1("name") end if rs1.close set rs1=nothing response.write"论坛["&ydbbsn&"]黑名单" response.write"
----------
" Set rs = Server.CreateObject("ADODB.Recordset") rs.open"select * from hmd where bbsid=" & bbsid & " and fl=1 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=bbs&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 if keys=1 or skey=abs(bbsid) then response.write"管理" end if response.write""&i+(page-1)*PageSize&".ID:" & ubb1(rs("guliid")) & "" response.write"被版主ID:" & ubb1(rs("adminname")) & "" if rs("strsell")>0 then response.write"禁发帖" elseif rs("strrel")>0 then response.write"禁回复" elseif rs("strall")>0 then response.write"加黑" 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 response.write("
理由:" & ubb1(rs("liyou")) & "") 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"----------
" Response.write "返回论坛版务" response.write"
返回本版
" end Sub Sub allblack response.write"

" 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 if keys=1 then response.write"管理" end if 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 end Sub Response.write "社区排行" Response.write "
我的空间" Response.write "
社区首页" Response.write "