www.gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\inc\Email.asp
<% '================================================= '我的论坛Dv7.0Jmail发送邮件组件: ' Edit By YangZheng '================================================= Dim SendMail Sub Jmail(Email,Topic,Mailbody) On Error Resume Next Dim JMail Set JMail = Server.CreateObject("JMail.Message") JMail.silent=true JMail.Logging = True JMail.Charset = "gb2312" If Not(Mybbs.Forum_info(12) = "" Or Mybbs.Forum_info(13) = "") Then JMail.MailServerUserName = Mybbs.Forum_info(12) '您的邮件服务器登录名 JMail.MailServerPassword = Mybbs.Forum_info(13) '登录密码 End If JMail.ContentType = "text/html" JMail.Priority = 1 JMail.From = Mybbs.Forum_info(5) JMail.FromName = Mybbs.Forum_info(0) JMail.AddRecipient Email JMail.Subject = Topic JMail.Body = Mailbody JMail.Send (Mybbs.Forum_info(4)) Set JMail = Nothing SendMail = "OK" If Err Then SendMail = "False" End Sub Sub Cdonts(Email,Topic,Mailbody) On Error Resume Next Dim ObjCDOMail Set ObjCDOMail = Server.CreateObject("CDONTS.NewMail") ObjCDOMail.From = Mybbs.Forum_info(5) ObjCDOMail.To = Email ObjCDOMail.Subject = Topic ObjCDOMail.BodyFormat = 0 ObjCDOMail.MailFormat = 0 ObjCDOMail.Body = Mailbody ObjCDOMail.Send Set ObjCDOMail = Nothing SendMail = "OK" If Err Then SendMail = "False" End Sub Sub Aspemail(Email,Topic,Mailbody) On Error Resume Next Dim Mailer Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Charset = "gb2312" Mailer.IsHTML = True Mailer.username = Mybbs.Forum_info(12) '服务器上有效的用户名 Mailer.password = Mybbs.Forum_info(13) '服务器上有效的密码 Mailer.Priority = 1 Mailer.Host = Mybbs.Forum_info(4) Mailer.Port = 25 ' 该项可选.端口25是默认值 Mailer.From = Mybbs.Forum_info(5) Mailer.FromName = Mybbs.Forum_info(0) ' 该项可选 Mailer.AddAddress Email,Email Mailer.Subject = Topic Mailer.Body = Mailbody Mailer.Send SendMail = "OK" If Err Then SendMail = "False" End Sub %>