sendcm.asp

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

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

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

<%
  rs.Open "Select * From config",Conn
  MailSever = rs ("MailSever")
  MailUser = rs ("MailUser")
  MailPW = rs ("MailPW")
  EmailAddress = rs ("EmailAddress")
  rs.Close
  Tmp = 0
  Server.ScriptTimeout = 9999
  rs.Open "Select * From member Where Active <> True",Conn
  While Not rs.EOF
  Tmp = Tmp + 1
  Email = rs ("Email")
  Referral = rs ("Referral")
  ActiveNumber = rs ("ActiveNumber")
  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 (Email)
  msg.Subject = "" & SiteTitle & "注册确认信"
  msg.Body = "感谢您注册成为" & SiteTitle & "会员！" &_
  "<p>您必须点击下面链接完成注册：</p>" &_
  "<p><a href='http://" & DomainName & "/signup3.asp?email=" & Email & "&ref=" & Referral & "&activenumber=" & ActiveNumber & "'>http://" & DomainName & "/signup3.asp?email=" & Email & "&ref=" & Referral & "&activenumber=" & ActiveNumber & "</a></p>"
  msg.Send ("" & MailSever & "")
  Set msg = nothing
  rs.MoveNext
  Wend
  rs.Close
  Set rs = nothing
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "一共发送 " & Tmp & " 封确认信。"
  Response.Redirect "success.asp"
  Response.End
%>