<%dim TP,act
TP=request("TP")
if TP="1" then
dim num,book,gettxt
num=request("num")
book=request("book")
act=request("act")
if num="" or Isnumeric(num)=False then
Call Error("天数无效！")
end if
if book="" or Isnumeric(book)=False then
Call Error("选择类型出错！")
book=clng(book)
end if
if act<>"ok" then
Response.Write "贴子清空无法恢复，.真的这样做吗？
"
Response.write "是的,我决定了"
Response.write ""
Response.write ""
Response.write ""
Response.write ""
Response.write "
"
Response.Write "取消,我要返回"
Response.write "
"
Response.end
end if
if book=0 then
gettxt="Where jj<>1 and tm <= '"&date()-num&"'"
else
gettxt="Where tm <= '"&date()-num&"'"
end if
'删除n天前贴子
conn.Execute"delete from sell "&gettxt&""
response.write"贴子清空成功！"
elseif TP="2" then
'删除残余贴子
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select id,bbsid from sell order by id desc",conn,1,1
i=1
Do While Not rs.eof
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Open "select ID from ydbbs where id = "&rs("bbsid"),conn,1,1
if rs1.eof then
conn.Execute("delete from sell Where id=" & rs("id"))
end if
rs1.close
set rs1=nothing
rs.MoveNext
i=i+1
Loop
rs.close
set rs=nothing
response.write"残余贴子清空成功！"
else
response.write"清空N天前的贴子: