<%dim TP TP=request("TP") if TP="1" then dim num,book,gettxt num=request("num") book=request("book") 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 book=0 then gettxt="Where book<>1 and Ftm <= '"&date()-num&"'" else gettxt="Where Ftm <= '"&date()-num&"'" end if '删除n天前内线 conn.Execute"delete from guest "&gettxt&"" response.write"内线清空成功！" elseIF TP="2" then conn.Execute"delete from guest where fid=0" response.write"系统内线清空成功！" else response.write"清空N天前的内线:
" response.write"天前的内线:
" response.write"会员收藏信息:" response.write"保留" response.write"清空" response.write"
" response.write"[确定清空]" response.write"" response.write"" response.write"" response.write"
" response.write"[清空系统内线]" response.write"" response.write"
" end if response.write"
内线管理"%>