delbuy.asp

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

<!--#include file="../checkpost.asp"-->
<!--#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=request("date03")
date02=request("date04")
if date01="" and date02="" then
   conn.execute "delete from buy WHERE baoyue=1 and now()-datetime >=30"
   conn.close
   set conn=nothing
   else if date01<>"" and date02<>"" then
    conn.execute "delete from buy WHERE baoyue=1 and datetime>=#"&date01&"# and datetime<=#"&date02&"# "
	  conn.close
   set conn=nothing
   end if
   end if
   response.redirect Request.ServerVariables("HTTP_REFERER")
%>