<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
call head()
call saycardd("回复处理")
dim TP
TP=request("TP")
  if TP<>"" then
dim num,gettxt
num=request("num")
if num="" or Isnumeric(num)=False then
  Call Error("天数无效！")
  end if

gettxt="Where Htm <= '"&date()-num&"'"

 '删除n天前回复
 conn.Execute"delete from relist "&gettxt&""
response.write"回复清空成功！"
else
response.write"清空N天前的回复:<br/>"
if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""relistdel.asp?sid="&sid&"&amp;saytk="&saytk&""">"
response.write"<input name='num' value='0' size='3'/>天前的回复:<br/>"
response.write "<input type=""hidden"" name=""tp"" value=""1""/>"
response.write "<input type=""submit"" name=""Submit"" value=""确定清空""></form><br/>"
else
response.write"<input name='num"&tt&"' value='0' size='3'/>天前的回复:<br/>"
response.write"<anchor>[确定清空]<go href='relistdel.asp?sid="&sid&"&amp;saytk="&saytk&"' method='post' accept-charset='utf-8'>"
response.write"<postfield name='num' value='$(num"&tt&")'/>"
response.write"<postfield name='TP' value='1'/>"
response.write"</go></anchor><br/>"end if
end if
response.write"<br/><a href='relist.asp?sid="&sid&"&amp;saytk="&saytk&"'>回复管理</a>"%>
<!--#include file="fanhui.asp"-->
<%response.write""
call headsay()%>
