delbuy01.asp

千年免费电影系统 V3.0版 在程序上借鉴了很多优秀电影系统的功能

<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>2 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    response.end
end if
%>

<%   
date01=Replace(request("date03"), "'", "''")
date02=Replace(request("date04"), "'", "''")
delid=Replace(request("delid"), "'", "''")
if date01="" and date02="" and delid="" then
   conn.execute "delete from buy WHERE baoyue=1 and now()-datetime >=2 and pay=0"
   conn.close
   set conn=nothing
   else if delid<>"" then
conn.execute "delete from buy WHERE baoyue=1 and giveme='在线支付' and pay=0"
   conn.close
   else if date01<>"" and date02<>"" then
    conn.execute "delete from buy WHERE baoyue=1 and pay=0 and datetime>='"&date01&"' and datetime<='"&date02&"' "
	  conn.close
   set conn=nothing
   end if
   end if
   end if

   response.redirect Request.ServerVariables("HTTP_REFERER")
%>