memberp2sdelete_do.asp

中文bux点击站源码。配合其他站点用

<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

<!--#include file="checklogin.asp"-->

<%
  DateLimit = Request ("DateLimit")
  rs.Open "Delete From memberp2s Where (Status = 'None') And (date() - P2SDate) > " & DateLimit & "",Conn
  'rs.Open "Delete From memberp2s Where (P2SID = (Select ID From p2s Where P2SPeriod = 1)) And (date() - P2SDate) > " & DateLimit & "",Conn
  Conn.close
  Set Conn = nothing
  Session ("Message") = "会员每日注册历史记录删除成功。"
  Response.Redirect "success.asp"
  Response.End
%>