<%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天前的回复:
" response.write"天前的回复:
" response.write"[确定清空]" response.write"" response.write"" response.write"
" end if response.write"
回复管理"%>