<% dim bBoardEmpty dim totalrec dim n,RowCount dim p dim currentpage,page_count,Pcount dim tablename if not master then Errmsg=Errmsg+"
  • 您没有权限浏览本页。" founderr=true end if stats="论坛回收站" currentPage=request("page") if currentpage="" or not isInteger(currentpage) then currentpage=1 else currentpage=clng(currentpage) if err then currentpage=1 err.clear end if end if call nav() call head_var(2,0,"","") if founderr then call dvbbs_error() else call AnnounceList1() call listPages3() if founderr then call dvbbs_error() end if call activeonline() call footer() sub AnnounceList1() response.write ""&_ ""&_ ""&_ "
    本页面只有系统管理员可进行操作,请选择需要的操作,列出所有:主题表数据" for i=0 to ubound(allposttable) response.write " | 帖子"&allposttablename(i)&"" next response.write "
    注意:还原主题表数据将连跟贴(帖子)表数据一起还原,删除主题表数据将连跟帖(帖子)表一起删除

    " if instr(request("tablename"),"bbs")>0 then sql="select AnnounceID,boardID,UserName,Topic,body,DateAndTime from "&replace(request("tablename"),"'","")&" where locktopic=2 and not parentid=0 order by announceid desc" tablename=request("tablename") else sql="select topicID,boardID,PostUserName,Title,title as body,DateAndTime from topic where locktopic=2 order by topicid desc" tablename="topic" end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then '论坛无内容 call showEmptyBoard1() else rs.PageSize = cint(Forum_Setting(11)) rs.AbsolutePage=currentpage page_count=0 totalrec=rs.recordcount call showpagelist1() end if end sub REM 显示贴子列表 sub showPageList1() dim body dim vrs dim votenum,votenum_1 dim pnum i=0 response.write "
    "&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" while (not rs.eof) and (not page_count = rs.PageSize) response.write ""&_ ""&_ ""&_ "" response.write "" page_count = page_count + 1 rs.movenext wend end sub sub listPages3() dim endpage 'on error resume next Pcount=rs.PageCount if master and totalrec>0 then response.write "" end if response.write "
    状态主 题作 者最后更新 | 回复人
    " response.write "" response.write "" body=replace(replace(htmlencode(left(rs(4),20)),"
    ",""),"

    ","") response.write "" if rs(3)="" or isnull(rs(3)) then response.write body else if len(rs(3))>26 then response.write ""&left(htmlencode(rs(3)),26)&"..." else response.write htmlencode(rs(3)) end if end if response.write "" response.write "

    "& rs(2) &" " 'on error resume next response.write " "&_ FormatDateTime(rs(5),2)&" "&FormatDateTime(rs(5),4)&_ " | ------" response.write "
    选中所有显示帖子 " if session("flag")<>"" then response.write "  " end if response.write "
    " response.write ""&_ ""&_ "
    "&_ "页次:"¤tpage&"/"&Pcount&"页"&_ "每页"&Forum_Setting(11)&" 贴数"&totalrec&"

    分页: " if currentpage > 4 then response.write "[1] ..." end if if Pcount>currentpage+3 then endpage=currentpage+3 else endpage=Pcount end if for i=currentpage-3 to endpage if not i<1 then if i = clng(currentpage) then response.write " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if response.write "

    " rs.close set rs=nothing end sub sub showEmptyBoard1() response.write ""&_ ""&_ ""&_ ""&_ ""&_ " "&_ " "&_ " "&_ ""&_ "
    状态主 题作 者回复/人气最新回复
    论坛回收站暂无内容。
    " end sub %>