sendpw_do.asp

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

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

<%
  Email = Request ("Email")
  If Email = "" Then
     Session ("Message") = "您必须输入您的电子邮件地址。"
     Response.Redirect "error.asp"
  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, "@")
  UserName2 = tAry1(0)
  DomainNamed = tAry1(1)
  If (UserName2 = "") 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
     Session ("Message") = "您必须输入一个正确的电子邮件地址。"
     Response.Redirect "error.asp"
  End if
  rs.Open "Select * From config",Conn
  MailSever = "smtp.126.com"
  MailUser = "lesanc"
  MailPW = "112177"
  EmailAddress = "[e-mail]"
  rs.Close
  rs.Open "Select * From member Where Email = '" & Email & "'",Conn
  If rs.EOF Then
     rs.Close
     Conn.Close
     Session ("Message") = "<a href='signup.asp'>您输入的电子邮件地址并不存在，请点击此链接注册。</a>"
     Response.Redirect "error.asp"
     Response.End
  Else
     Active = rs ("Active")
     UserName = rs ("UserName")
     PassWord = rs ("PW")
     SignupIP = rs ("SignupIP")
     rs.Close
     Conn.Close
     If Active = True Then         
        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.FromName = "" & SiteTitle & ""
        msg.AddRecipient Request.Form("Email")
        msg.Subject = "" & SiteTitle & "注册信息"
        msg.Body = "<p>谢谢您对" & SiteTitle & "的支持！下面是您的注册信息，请妥善保存。</p>" &_
        "<p>用户名：" & UserName & "</a></p>" &_
        "<p>密  码：" & PassWord & "</p>" &_
        "<p>注册IP：" & SignupIP & "</p>" &_
        "<p>您可以使用下面的链接登录：</p>" &_
        "<p><a href='http://" & DomainName & "'>http://" & DomainName & "</a></p>" &_
        "<p>您可以介绍朋友们加入" & SiteTitle & "以赚取更多的奖励。</p>" &_
        "<p>如果您介绍朋友加入，请使用下面的介绍链接：</p>" &_
        "<p><a href='http://" & DomainName & "/index.asp?ref=" & UserName & "'>http://" & DomainName & "/index.asp?ref=" & UserName & "</a></p>" &_
        "<p>希望您能喜欢并继续支持我们的网站。</p>" &_
        "<p>谢谢！</p>"
        msg.Send ("" & MailSever & "")
        Set msg = nothing
        Session ("Message") =  "<p>一封包含您用户名和密码的电子邮件已经发送到您的电子邮件地址。您很快就会收到它。</p>"
        Response.Redirect "success.asp"
        Response.End
     Else        
        Session ("Message") = "<p><a href='http://" & DomainName & "/signup3.asp?email=" & Email & "'>您输入的电子邮件地址已经存在，但是还没有激活。请点击下面链接激活您的帐户，并继续填写您的注册信息！http://" & DomainName & "/signup3.asp?email=" & Email & "</a></p>" 
        Response.Redirect "error.asp"
        Response.End
     End if
  End if
%>