mail.asp

感谢您使用BBSXP

<%
if instr(Mailaddress,"@")=0 then error2("E-Mail地址填写错误！")
on error resume next

if SiteSettings("SelectMailMode")="JMail.Message" then
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.AddRecipient Mailaddress
JMail.Subject = MailTopic
JMail.Body = body
JMail.From = SiteSettings("SmtpServerMail")
JMail.SmtpServerUserName = SiteSettings("SmtpServerUserName")
JMail.SmtpServerPassword = SiteSettings("SmtpServerPassword")
JMail.Send SiteSettings("SmtpServer")
Set JMail=nothing

elseif SiteSettings("SelectMailMode")="CDONTS.NewMail" then
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.Send SiteSettings("SmtpServerMail"),Mailaddress,MailTopic,body
Set MailObject=nothing
end if

If Err Then Response.Write "邮件发送失败！错误原因：" & Err.Description & "<br>"
%>