<%
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 "