unactivemd.asp

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

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

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

<%
  Tmp = 0
  Server.ScriptTimeout = 999
  DateLimit = Request ("DateLimit")
  UnsubscribeIP = Request.serverVariables("REMOTE_ADDR")
  If DateLimit = "14 Days" Then
     rs.Open "Select * From member Where Date() - SignupTime > 14 And Active = False",Conn
  Else If DateLimit = "7 Days" Then
          rs.Open "Select * From member Where Date() - SignupTime > 7 And Active = False",Conn
       Else If DateLimit = "0 Days" Then
               rs.Open "Select * From member Where Active = False",Conn
            End If
       End If
  End If
  While Not rs.EOF
  Tmp = Tmp + 1
  Email = rs ("Email")
  rs.Close
  rs.Open "Insert Into unsubscribe(Email, UnsubscribeBy, UnsubscribeTime, UnsubscribeIP) values('" & Email & "', 'Webmaster', Now(), '" & UnsubscribeIP & "')",Conn
  rs.Open "Delete FROM member Where Email = '" & Email & "'",Conn
  If DateLimit = "14 Days" Then
     rs.Open "Select * From member Where Date() - SignupTime > 14 And Active = False",Conn
  Else If DateLimit = "7 Days" Then
          rs.Open "Select * From member Where Date() - SignupTime > 7 And Active = False",Conn
       Else If DateLimit = "0 Days" Then
               rs.Open "Select * From member Where Active = False",Conn
            End If
       End If
  End If
  If Not rs.Eof Then
     rs.MoveNext
  End If
  Wend
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "会员删除成功。共删除 " & Tmp & " 个未激活邮件地址。"
  Response.Redirect "success.asp"
  Response.End
%>