memberdatadelete_do1.asp

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

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

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

<%
  Email = Request ("Email")
  If Email = "" Then
     Conn.Close
     Session ("Message") = "您必须输入要删除会员的电子邮件地址。"
     Response.Redirect "error.asp"
  End if  
  rs.Open "Select * From member Where Email = '" & Email & "'",Conn
  If rs.EOF Then
     rs.Close
     Conn.Close
     Session ("Message") = "您输入的电子邮件地址并不存在。"
     Response.Redirect "error.asp"
  End if
  UserName = rs ("UserName")
  If UserName <> "" Then
     NoReferral = rs ("NoReferral")
     UpLine = rs ("Referral")
     If NoReferral = True Then
        BRChange = -1
        DRChange = 0
     Else
        BRChange = 0
        DRChange = -1
     End If
  End If
  rs.Close
  UnsubscribeIP = Request.serverVariables("REMOTE_ADDR")
  rs.Open "Insert Into unsubscribe(UserName, Email, UnsubscribeBy, UnsubscribeTime, UnsubscribeIP) values('" & UserName & "', '" & Email & "', 'Webmaster', Now(), '" & UnsubscribeIP & "')",Conn
  rs.Open "Delete FROM member Where Email = '" & Email & "'",Conn
  If UserName <> "" Then
     rs.Open "Update member Set Referral = '' Where Referral = '" & UserName & "'",Conn
     rs.Open "Update member Set Referral2 = '' Where Referral2 = '" & UserName & "'",Conn
     rs.Open "Update member Set Referral3 = '' Where Referral3 = '" & UserName & "'",Conn
     rs.Open "Update member Set Referral4 = '' Where Referral4 = '" & UserName & "'",Conn
     rs.Open "Update member Set Referral5 = '' Where Referral5 = '" & UserName & "'",Conn
     rs.Open "Update member Set Referral6 = '' Where Referral6 = '" & UserName & "'",Conn
     If UpLine <> "" Then
        rs.Open "Update member Set BlindReferral = BlindReferral + '" & BRChange & "', DirectReferral = DirectReferral + '" & DRChange & "' Where UserName = '" & UpLine & "'",Conn
     End If
  End If
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "会员数据删除成功。"
  Response.Redirect "success.asp"
  Response.End
%>