delbuy02.asp

来自「网上流行的MOVE站点」· ASP 代码 · 共 26 行

<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    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 and pay=1"
   conn.close
   set conn=nothing
   else if date01<>"" and date02<>"" then
    conn.execute "delete from buy WHERE baoyue=1 and pay=1 and datetime>='"&date01&"' and datetime<='"&date02&"' "
	  conn.close
   set conn=nothing
   end if
   end if

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

</body>
</html>