<%
stats="回收站内容"
dim AnnounceID
dim username
dim tablename
dim abgcolor
if request("id")="" then
founderr=true
Errmsg=Errmsg+" "+"
非法的参数。"
elseif not isInteger(request("id")) then
founderr=true
Errmsg=Errmsg+" "+"
非法的参数。"
else
AnnounceID=request("id")
end if
if not master then
founderr=true
Errmsg=Errmsg+" "+"
您不是系统管理员，没有权限查看被删除的帖子。"
end if
if founderr then
call dvbbs_error()
else
set rs=server.createobject("adodb.recordset")
if instr(request("tablename"),"bbs")>0 then
'if request("tablename")="bbs1" then
sql="select Announceid,topic,body,username,dateandtime from "&replace(request("tablename"),"'","")&" where AnnounceID="&AnnounceID
tablename=request("tablename")
else
sql="select topicid,title,title as body,postusername,dateandtime from topic where topicID="&AnnounceID
tablename="topic"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Errmsg=Errmsg+" "+"