sendemail_do.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
  MailSubject = Request ("MailSubject")
  MailBody = Request ("MailBody")
  MailFormat = Request ("MailFormat")
  MailPriority = Request ("MailPriority")
  MailValid = Request ("MailValid")
  MailOut = Request ("MailOut")
  If MailSubject = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入邮件主题。"
     Response.Redirect "error.asp"
     Response.End
  End If
  If MailBody = "" Then
     Conn.Close
     Set Conn = nothing
     Session ("Message") = "您必须输入邮件正文。"
     Response.Redirect "error.asp"
     Response.End
  End If
  MailSubject = "通知邮件-" & MailSubject & ""
  MailBody = "邮件内容开始<br>******************************************<br>" & MailBody & "<br>******************************************<br>邮件内容结束<br><br>在" & SiteTitle & "做广告，广告费低廉，有保证的点击率和暴光率。有邮件、旗帜、文字链接等多种形式的广告。<br>订购广告：<a href=http://" & DomainName & "/advertise.asp target=_blank>http://" & DomainName & "/advertise.asp</a>"
  re.Open "Insert Into mailrecord(MailSubject, MailBody, MailFormat, MailPriority, MailValid) values('" & MailSubject & "', '" & MailBody & "', '" & MailFormat & "', '" & MailPriority & "', " & MailValid & ")",Conn
  
  Tmp = 0
  If MailOut = "True" Then
  Server.ScriptTimeout = 9999
  rs.Open "Select Email From member Where Active = True And Valid = True And Vacation <> True order by ID",Conn
  While Not rs.EOF
  Tmp = Tmp + 1
  Email = rs ("Email")
  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 & MailSubject
  msg.Body = "您好，尊敬的" & SiteTitle & "会员：<br><br>这不是垃圾(SPAM）邮件，因为您是" & SiteTitle & "的会员，接受会员条款中关于阅读" & SiteTitle & "发送通知邮件的规定。如果您不希望再接收到此类邮件，请在会员区选择假期模式或者取消您自己的会员资格即可。<br><br>" & MailBody
  msg.Send ("" & MailSever & "")
  Set msg = nothing
  rs.MoveNext
  Wend
  End If
  
  Conn.Close
  Set Conn = nothing
  Session ("Message") = "站内通知邮件增加成功。同时发送了 " & Tmp & " 封站外通知邮件。"
  Response.redirect "success.asp"
  Response.End
%>