<%
子Jmail(电子邮件)
昏暗的 JMail、SendMail
设置 JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType =“文本/html”
JMail.ServerAddress=SMTP服务器
JMail.Sender=系统电子邮件
JMail.Subject=主题
JMail.Body=邮件正文
JMail.AddRecipient电子邮件
JMail.Priority=3
JMail.执行
设置 JMail=无
如果错了那么
SendMail=err.描述
错误清除
别的
发送邮件=“确定”
结束如果
结束子
子CDonts（电子邮件）
昏暗的 objCDOMail
设置 objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =系统电子邮件
objCDOMail.To =电子邮件
objCDOMail.Subject =主题
objCDOMail.Body =邮件正文
objCDOMail.Send
设置 objCDOMail = 无
如果错了那么
SendMail=err.描述
错误清除
别的
发送邮件=“确定”
结束如果
结束子子
aspemail(电子邮件)
设置 mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
收件人=电子邮件
发件人=系统邮箱
主题=主题
消息=邮件正文
邮件服务器=SMTP服务器
结果=mailer.SendMail（邮件服务器，收件人，发件人，主题，消息）
如果错了那么
SendMail=err.描述
错误清除
别的
发送邮件=“确定”
结束如果
结束子
%>