[卡国17天传说17]ASP会员管理第十七章JMail发信组

作者: 分类: 人像知名 发布于:2020-06-09 348次浏览 16条评论


第十七章 Jmail寄信组件
许多网站都有注册完成后自动发信,用来确认Email信箱是否正确的机制。在这个章节我们示範如何使用ASP来做到自动发信的功能。
ASP上的发信功能中使用到的组件是JMail,它是在ASP上最常被使用到的发信组件。它之所以会如此受欢迎,除了功能强大之外,还有就是它是免费的,并且国内外绝大部份的空间都有支援。当然,在使用它之前我们要先进行安装,你可以在这个地方取得免费版本,在使用JMail之前先确定你的主机支援SMTP。

接下来先介绍JMail的使用方法
Set jmail=Server.CreateObject '建立Jmail物件
jmail.silent '是否返回错误代码
jmail.Logging '是否使用日誌
jmail.Charset'邮件编码
jmail.ContentType'邮件格式
jmail.MailServerUserName'登入帐号
jmail.MailServerPassword'登入密码
jmail.From'寄件人信箱
jmail.FromName'寄件人名称
jmail.AddRecipient'收件人
jmail.Subjec'主旨
jmail.HTMLBody'内文
jmail.Send'SMTP Server
了解使用方法后,把它写成Function 并且加上SMTP的登入帐号,密码以及SMTP Server主机位址
'Jmail寄信组件
Function Jmail'
'邮件伺服器资料
MailLoginId = "service@XXXXX.com"'登入帐号
MailLoginPw = "123456"'登入密码
SmtpServer = "exsrv.XXXXX.com"'SMTP伺服器
Sender = "17天不朽传说 by Srv0915"'寄件者名称
Set jmail=Server.CreateObject '建立Jmail物件
jmail.silent=true '不返回错误代码
jmail.Logging = true '是否使用日誌
jmail.Charset = "BIG5"'邮件编码
jmail.ContentType = "text/html"'邮件格式
jmail.MailServerUserName = MailLoginId'登入帐号
jmail.MailServerPassword = MailLoginPw'登入密码
jmail.From = MailLoginId'寄件人信箱
jmail.FromName = Sender'寄件人名称
jmail.AddRecipient ContactEmail'收件人
jmail.Subject = HeadLine'主旨
jmail.HTMLBody = Content'内文
jmail.Send SmtpServer'SMTP Server
set jmail = nothing
End Function
接下来我们只要给它 收件者,标题,内容 这3个参数就可以了。
在CheckSave.asp中新增完员资料后,加上
if EMail <> "" then
Title = "不朽传说 测试信件"
Content = "亲爱的 " & UserName &" 先生/小姐 您好:" & "
" & chr
Content = Content & "感谢您加入「17天不朽传说」,您的资料已建立完毕" & "
" & chr
Content = Content & "这是系统自动发出的信件,请勿直接回覆!" & "
" & chr
Call Jmail
end if
意思是如果会员的Email不为空,那就把定义好的主旨及邮件内容发送到会员的信箱。
测试一下新增会员时填入Email
[卡国17天传说17]ASP会员管理第十七章JMail发信组
送出,没几分钟就收到了一封信件,来看看内容
[卡国17天传说17]ASP会员管理第十七章JMail发信组
[卡国17天传说17]ASP会员管理第十七章JMail发信组

这样就完成了~

<<上一篇: