<%dim TP TP=request("TP") if TP="1" then dim num,bbsid,gettxt num=request("num") bbsid=request("bbsid") if num="" or Isnumeric(num)=False then Call Error("天数无效！") end if if bbsid="" or Isnumeric(bbsid)=False then Call Error("论坛ID无效！") end if bbsid=abs(bbsid) if bbsid>0 then '检查论坛是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM ydbbs where id="&bbsid,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("论坛不存在！") end if rs.close set rs=Nothing end if if bbsid=0 then gettxt="Where tm <= '"&date()-num&"'" else gettxt="Where bbsid="&bbsid&" and tm <= '"&date()-num&"'" end if '删除n天前日志 conn.Execute"delete from board "&gettxt&"" response.write"日志清空成功！" elseif TP="2" then conn.Execute"delete from board " response.write"全部日志清空成功！" else response.write"清空论坛N天前的日志:
" response.write"天前的日志:
" response.write "请选择版块日志
" response.write "" response.write "=选择版块=" set rs=server.createobject("ADODB.Recordset") rs.open"select id,name from ydbbs where lx=1 order by pid asc",conn,1,1 dim j j=1 do while not rs.eof dim names names=rs("name") if len(names)>8 then names=left(names,8) Response.write ""&ubb(names)&"" j=j+1 rs.movenext loop rs.close set rs=nothing Response.write "
" response.write"[确定所选]" response.write"" response.write"" response.write"" response.write"
" response.write"[全部清空]" response.write"" response.write"
" end if response.write"
日志管理"%>