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
%>