博客添加“回复留言评论时发送邮件提醒”功能For ASblog
ps.代码更新于 2011年1月21日 9:14
前段时间在ifu25网站留言或评论后，总能收到博主的回复邮件，感觉这是个很不错的功能！结合自己的一些经验考虑，在访问别人的网站时，80%是 搜索引擎引导过去的，除非是非常不错的易记的域名，大多都无法再次回访，至于在其网站上的留言或评论也都无法去查看博主的回复了，很是郁闷！
现在看到这个邮件提醒功能，于是就很想给自己的网站也加上这个。就去看了一下Zblog的相关插件，感觉写的很不错，于是拿来做了部分修改，去掉多 余的添加需要的功能后，添加了一个回复时是否发送邮件的开关：IsEmail="1"，然后在前台和数据库中也添加了留言评论时可选填Email这一项， 于是本站就顺利开通了回复留言评论时对来访者发送提醒邮件，这样即使别人记不住域名，也能回访，很不错哦！
最后谢谢ifu25发送的邮件的提示以及zblog提醒邮件的插件制作者！你们都是好样的哈哈！
分享一下我的这个功能主要应用的代码，将下列代码保存为send_comm_email.asp放在根目录下，并在Ajax.asp文件中包含此文件：
<%
' ============================================
' 调用方法：sendEmail(Title,MSG,USER,url)
' 有新评论、留言时发送邮件提醒站长
' ============================================
Const Send_Charset = "GB2312" '邮件的文字编码
Const Send_MailServerName = "smtp.qq.com"
Const Send_MailServerUserName = "web@nuodou.com" '登录邮件服务器所需的用户名
Const Send_MailServerUserPwd = "******" '登录邮件服务器所需的密码
Const Send_MailFromAddress = "web@nuodou.com" '发件人的E-MAIL地址
Const Send_MailFromName = "诺豆网站长提醒" '发件人的姓名
Const Send_MailServerAlternate = "" '备用发信服务器
Dim Title,MSG,USER,url,Email_Body,RecEmail
RecEmail = "web@nuodou.com" '收件人Email地址
Function SendEmail(Title,MSG,USER,url)
'标题，内容，发表者，日志URL
On Error Resume Next
'===========定义回复邮件内容的样式 开始===========
' Email_Body = "请根据自己的需要自制样式"
Email_Body = "一条"& Title & "<br/>大名: "& USER & "<br/><br/>内容: " & MSG & "<br/><br/><a href="""&url&""">点此查看详细信息</a><br/><br/>时间: " & Now()
'===========定义回复邮件内容的样式 结束===========
Dim jmail
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.Clear()
'jmail.Logging = True '记录发送日志
jmail.silent = True '屏蔽例外错误，返回FALSE跟TRUE两值
jmail.Charset = Send_Charset '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为纯文本, 如text/html则为html格式，此时若有附件，则附件会出现乱码，解决办法是删除此句
If LCase(strToAddress)<>"null" Then jmail.AddRecipient RecEmail '邮件收件人的地址
jmail.From = Send_MailFromAddress '发件人的E-MAIL地址
jmail.FromName = Send_MailFromName '发件人的姓名
jmail.ReplyTo = RecEmail '回复地址
jmail.MailServerUserName = Send_MailServerUserName '登录邮件服务器所需的用户名
jmail.MailServerPassword = Send_MailServerUserPwd '登录邮件服务器所需的密码
JMail.Subject = "A New Massage From NuoDou Blog" '邮件的标题
JMail.HTMLBody = Email_Body '邮件的内容
jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send(Send_MailServerName) '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
Set jmail=Nothing
Err.Clear
End Function
%>
后记：诺豆网已经加入了wordpress家族，仍有ASblog的童鞋需要这段代码的使用方法，整理一下分享给大家吧！
首先找到Ajax.asp文件的函数 SaveComment()，对比查看此函数末尾的如下几段代码：
Response.Write(SaveCommentMsg) Response.End End Sub
将新评论发送邮件提示的调用函数加入进来，修改如下：
Response.Write(SaveCommentMsg)
'===== 发送邮件提醒 begin =====
If Part = "1" then
SendEmail "新评论",CommentContent,CommentAuthor,"https://yangjunwei.com/"&FromID&".html#comment" '发送新评论邮件提醒
End if
'===== 发送邮件提醒 end =====
Response.End
End Sub
记住一定是加在 response.end之前，否则可能造成发送邮件失败并占用很大的内存而假死！
最后，同样原理，可在后台回复评论的时候做相应的调用来实现回复评论时，发送邮件至评论者所填写的邮箱，主要涉及后台管理目录的Manage_Comment.asp文件中的 SaveEdit() 函数。
