delbuy02ji.asp

来自「千年免费电影系统 V3.1版 修正了V3.0版后台无法登陆的问题」· ASP 代码 · 共 26 行

<!--#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=0 and now()-datetime >=30 and pay=1"
   conn.close
   set conn=nothing
   else if date01<>"" and date02<>"" then
    conn.execute "delete from buy WHERE baoyue=0 and pay=1 and datetime>='"&date01&"' and datetime<='"&date02&"' "
	  conn.close
   set conn=nothing
   end if
   end if

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