mail.asp

教师评估系统

<%
sub SendMail(MailAddRecipient,MailSubject,MailBody)
if MailAddRecipient="" or MailSubject="" or MailBody="" then Exit sub
on error resume next
MailSubject="("&Cache("SiteName")&")"&MailSubject
MailBody=MailBody&"<br /><br /><br /><a target=_blank href="&Cache("SiteUrl")&"Default.asp>"&Cache("SiteName")&"</a> 管理团队"
Select case Cache("SmtpObj")
case "JMail.Message"
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.From = Cache("SmtpMail")
AddRecipientArray=split(MailAddRecipient,";")
For i=0 to Ubound(AddRecipientArray)
if AddRecipientArray(i)<>"" then JMail.AddRecipient AddRecipientArray(i)
Next
JMail.Subject = MailSubject
JMail.Body = MailBody
JMail.MailServerUserName = Cache("SmtpUser")
JMail.MailServerPassword = Cache("SmtpPass")
JMail.Send Cache("SmtpServer")
Set JMail=nothing
case "CDO.Message"
Set CDO=Server.CreateObject("CDO.Message")
CDO.From = Cache("SmtpMail")
CDO.To = MailAddRecipient
CDO.Subject = MailSubject
CDO.HtmlBody = MailBody
CDO.HTMLBodyPart.Charset="gb2312"
CDO.Send
Set CDO=Nothing
Set CDOConfig=Nothing
case "Persits.MailSender"
Set Aspemail=Server.CreateObject("Persits.MailSender")
Aspmail.Charset = "gb2312"
Aspmail.IsHTML = True
Aspmail.username = Cache("SmtpUser")	'服务器上有效的用户名
Aspmail.password = Cache("SmtpPass")	'服务器上有效的密码
Aspmail.Priority = 1
Aspmail.Host = Cache("SmtpServer")
Aspmail.From = Cache("SmtpMail")
Aspmail.AddAddress MailAddRecipient,MailAddRecipient
Aspmail.Subject = MailSubject
Aspmail.Body = Mailbody
Aspmail.Send
Set Aspmail=Nothing
end Select
if Err Then Response.Write ""&MailAddRecipient&" 邮件发送失败！错误原因：" &Err.Number&":"&Err.Description & "<br />"
On Error GoTo 0
end sub
%>