redeem2.asp

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

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

<%
  rs.Open "Select * From config",Conn
  MailSever = rs ("MailSever")
  MailUser = rs ("MailUser")
  MailPW = rs ("MailPW")
  EmailAddress = rs ("EmailAddress")
  rs.Close
  Set rs = nothing
  Conn.Close
  Set Conn = nothing
  Email = Request ("Email")
  UserName = Request ("UserName")
  AdInformation = Request ("AdInformation")
  If AdInformation = "" Then
     Session ("Message") = "您必须输入您广告的详细内容。"
     Response.Redirect "error.asp"
  End if
  If UserName = "" Then
     Session ("Message") = "您必须输入您的用户名。"
     Response.Redirect "error.asp"
  End if
  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
%>
<%
  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 = "" & Email & ""
  msg.AddRecipient ("" & EmailAddress & "")
  msg.Subject = "" & UserName & " 的广告兑换申请"
  msg.Body = "电子邮件地址：" & Email & "" &_
  "<p>用户名：" & UserName & "</p>" &_
  "<p>广告内容：" & AdInformation & "</p>"
  msg.Send ("" & MailSever & "")
  Set msg = nothing
  Session ("Message") = "您的信息已经送出。我们会尽快联系您。谢谢。"
  Response.Redirect "success.asp"
%>