mail.asp

来自「最流行的HTTP服务器软件之一。快速、可靠、可通过简单的API扩展」· ASP 代码 · 共 21 行

<%
set cai_jmail=conn.execute("select cai_mail,cai_smtp,cai_username,cai_password from cai_const ")

on error resume next
body=" "&content&" "&vbCrlf&""&vbCrlf&""&vbCrlf&"-----------------------------------------------------------------"&vbCrlf&"在线发送邮件系统,设计制作：时代设计，Http://www.1ni.cn"

Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.AddRecipient Mailaddress
JMail.Subject = title
JMail.Body = body
JMail.From = cai_jmail(0)
JMail.MailServerUserName = cai_jmail(2)
JMail.MailServerPassword = cai_jmail(3)
JMail.Send cai_jmail(1)
Set JMail=nothing

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