delshixiaoad.asp

一个综合类整站

<!--#include file="conn.asp"-->
<%if session("china_cityadmin")="" then
response.redirect "login.asp"
end if

sql="select * from china_data where stop < date()"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
 For iPage = 1 To rs.recordcount
 adid=rs("adid")
rs.delete
rs.update
sql1="delete from china_message where adid ="&adid&""    
conn.execute(sql1)
rs.movenext     
if rs.eof then exit for
next
rs.close  
set rs=nothing  
conn.close   
set conn=nothing                                
response.redirect "ok.asp"
else
response.redirect "shixiaoad.asp"
end if%>