www.gusucode.com > 盐城分类信息网asp源码程序 > admin/del_all.asp
<!--#include file=conn.asp--> <!--#include file=cookies.asp--> <!--#include file="../config.asp"--> <% dim rs,sql,tupian,sql1,rs1,sql2 if ""&del_xx&""<>1 then response.write "<script language=JavaScript>" & chr(13) & "alert('没有开启自动删除信息的功能!');" & "history.back()" & "</script>" response.end else set rs=server.createobject("adodb.recordset") sql="delete * from [xinxi] where DateDiff('D',fbsj,now())>="&s_y&"" rs.open sql,conn,1,3 sql1="delete * from [shoucang] where DateDiff('D',scsj,now())>="&s_y&" " rs.open sql1,conn,1,3 sql2="delete * from [hf] where DateDiff('D',hfsj,now())>="&s_y&" " rs.open sql2,conn,1,3 response.write "<script language=JavaScript>" & chr(13) & "alert('删除信息成功!');" & "history.back()" & "</script>" response.end rs.close set rs=nothing closedb end if %>