<% dim ids,gettxt,bbsid bbsid=request("bbsid") ids=request("ids") if ids<>"" then if ids="" or Isnumeric(ids)=False then Call Error("ID无效！") end if '检查ID是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT name FROM users where id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("会员ID不存在！") end if rs.close set rs=Nothing gettxt="where Fid="&ids end if if bbsid<>"" then if bbsid="" or Isnumeric(bbsid)=False then Call Error("论坛ID无效！") end if if gettxt<>"" then gettxt=gettxt&"and bbsid="&bbsid else gettxt="where bbsid="&bbsid end if end if response.write"精华|" response.write"置顶|" response.write"固底|" response.write"锁定
" response.write"----------
" dim TP TP=trim(request.querystring("TP")) if TP <>"" then TP=abs(TP) if TP=1 then if gettxt<>"" then gettxt=gettxt&"and jj=1" else gettxt="where jj=1" end if end if if TP=2 then if gettxt<>"" then gettxt=gettxt&"and num=1" else gettxt="where num=1" end if end if if TP=3 then if gettxt<>"" then gettxt=gettxt&"and num=20" else gettxt="where num=20" end if end if if TP=4 then if gettxt<>"" then gettxt=gettxt&"and st=1" else gettxt="where st=1" end if end if end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from sell "&gettxt&" order by id desc",conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="admingsell.asp?bbsid="&bbsid&"&ids="&ids&"&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 "[删]" response.write ""&i+(page-1)*PageSize&"." response.write "" response.write ubb(rs("name"))&"
" 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 "用户ID:(可空)" response.write "
选择版块" response.write "" response.write "全部版块" set rs=server.createobject("ADODB.Recordset") rs.open"select id,name from ydbbs where lx=1 order by pid asc",conn,1,1 dim j j=1 do while not rs.eof dim names names=rs("name") if len(names)>8 then names=left(names,8) Response.write ""&ubb(names)&"" j=j+1 rs.movenext loop rs.close set rs=nothing Response.write "" Response.write "
搜索贴子" Response.write "" Response.write "" Response.write "" Response.write ""&chr(13) conn.close set conn=Nothing response.write"
帖子处理"&chr(13) response.write"
帖子回收"&chr(13)%>