signup2.asp

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

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

<%
  rs.Open "Select * From config",Conn
  MailSever = rs ("MailSever")
  MailUser = rs ("MailUser")
  MailPW = rs ("MailPW")
  EmailAddress = rs ("EmailAddress")
  rs.Close
  Randomize
  ActiveNumber = Int(Rnd (10) * 1000000)
  Email = Request ("Email")
  SignupIP = Request.serverVariables("REMOTE_ADDR")
  ProxyIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  If ProxyIP <> "" Then
     SignupIP = ProxyIP
  End If

  Referral = Request("ref")

  rs.Open "Select * from member Where Email = '" & Email & "' And Active = True",Conn
  If Not rs.EOF Then
     Conn.Close
     Session ("Message") = "您输入的电子邮件地址已经存在，并且帐户已经激活。请不要注册多重帐户。"
     Response.Redirect "error.asp"
     Response.End
  End if
  rs.Close
  rs.Open "Select * from member Where SignupIP = '" & SignupIP & "' And Active = True",Conn
  If Not rs.EOF Then
     Conn.Close
     Session ("Message") = "您的IP地址已经存在，并且帐户已经激活。请不要使用相同IP地址注册多重帐户。"
     Response.Redirect "error.asp"
     Response.End
  End if
  rs.Close
  rs.Open "Select * From member Where Email = '" & Email & "'",Conn
  If Not rs.EOF Then
    Referral = rs ("Referral")
    ActiveNumber = rs ("ActiveNumber")
    rs.Close
    Conn.Close
    Set msg = Server.CreateObject("JMail.Message")
    msg.Silent = true
    msg.Logging = true
    msg.Charset = "gb2312"
    msg.ContentType = "text/html"
    msg.MailServerUserName = "" & MailUser & ""
    msg.MailServerPassword = "" & MailPW & ""
    msg.From = "" & EmailAddress & ""
    msg.AddRecipient Request.Form("Email")
    msg.Subject = "" & SiteTitle & "注册确认信"
    msg.Body = "感谢您注册成为" & SiteTitle & "会员！" &_
    "<p>您必须点击下面链接完成注册：</p>" &_
    "<p><a href='http://" & DomainName & "/signup3.asp?email=" & Email & "&ref="&Referral&"'>http://" & DomainName & "/signup3.asp?email=" & Email & "</a></p>"
    msg.Send ("" & MailSever & "")
    Set msg = nothing
    Session ("Message") = "<p>请点击下面链接激活您的帐户，并继续填写您的注册信息！<br><a href='http://" & DomainName & "/signup3.asp?email=" & Email & "&ref=" & Referral & "'>http://" & DomainName & "/signup3.asp?email=" & Email & "</a></p>" 
    Response.Redirect "success.asp"
    Response.End
  End if
  rs.Close
  If Email = "" Then
     Conn.Close
     Session ("Message") = "您必须输入您的电子邮件地址。"
     Response.Redirect "error.asp"
     Response.End
  End if
  Function IsValidEmail(Email)
  ValidFlag = False
  If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
  atCount = 0
  SpecialFlag = False
  For atLoop = 1 To Len(Email)
  atChr = Mid(Email, atLoop, 1)
  If atChr = "@" Then atCount = atCount + 1
  If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
  If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
  If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
  If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
  Next
  If (atCount = 1) And (SpecialFlag = False) Then
  BadFlag = False
  tAry1 = Split(Email, "@")
  UserName = tAry1(0)
  DomainNamed = tAry1(1)
  If (UserName = "") Or (DomainNamed = "") Then BadFlag = True
  If Mid(DomainNamed, 1, 1) = "." then BadFlag = True
  If Mid(DomainNamed, Len(DomainNamed), 1) = "." then BadFlag = True
  ValidFlag = True
  End If
  End If
  If BadFlag = True Then ValidFlag = False
  IsValidEmail = ValidFlag
  End Function  
  If IsValidEmail(Request ("Email")) <> "True" Then
     Conn.Close
     Session ("Message") = "您必须输入一个正确的电子邮件地址。"
     Response.Redirect "error.asp"
     Response.End
  End if
  
  If Referral <> "" Then
     rs.Open "Select * From member Where UserName = '"&Referral&"'",Conn
     If rs.EOF Then
        Referral = ""
     End If
     rs.Close
  End if
  
  If Referral = "" Then
    Tmp = 0
    NoReferral = True
    rs.Open "Select Count(*) AS Total From member Where MemberShip <> 0",Conn
    Total = rs ("Total")
    If Total = 0 Then
       Referral = ""
    Else
       Randomize
       Num = Int((Total - 1+ 1) * Rnd + 1)
      rs.close
      rs.Open "Select * From member Where MemberShip <> 0",Conn
       While Not rs.EOF
      Tmp = Tmp + 1
       If Tmp = Num Then
          Referral = (rs("UserName"))        
       End if
      rs.MoveNext
      Wend
    End if
    rs.Close
  Else
     NoReferral = False
  End if
  rs.Open "Insert Into member(Email, NoReferral, Referral, ActiveNumber, SignupTime) values ('" & Email & "', " & NoReferral & ", '" & Referral & "', '" & ActiveNumber & "', Now())",Conn
  Conn.Close
  Set msg = Server.CreateObject("JMail.Message")
  msg.Silent = true
  msg.Logging = true
  msg.Charset = "gb2312"
  msg.ContentType = "text/html"
  msg.MailServerUserName = "" & MailUser & ""
  msg.MailServerPassword = "" & MailPW & ""
  msg.From = "" & EmailAddress & ""
  msg.AddRecipient Request.Form("Email")
  msg.Subject = "" & SiteTitle & "注册确认信"
  msg.Body = "感谢您注册成为" & SiteTitle & "会员！" &_
  "<p>您必须点击下面链接完成注册：</p>" &_
  "<p><a href='http://" & DomainName & "/signup3.asp?email=" & Email & "&ref=" & Referral & "'>http://" & DomainName & "/signup3.asp?email=" & Email & "</a></p>"
  msg.Send ("" & MailSever & "")
  Set msg = nothing
  Session ("Message") =  "<p>感谢您注册成功！请点击下面链接激活您的帐户，并继续填写您的注册信息！<br><a href='http://" & DomainName & "/signup3.asp?email=" & Email & "&ref=" & Referral & "'>http://" & DomainName & "/signup3.asp?email=" & Email & "</a></p>"
  Response.Redirect "success.asp"
  Response.End
%>