PJBLOG留言评论邮件通知博主

如题，看到某些朋友需要，花了会儿功夫弄了出来。
作者：戒聊。
发布网址：www.muzili.com
请注意修改步骤。特别是第4.1,4.2和第8步。
如有疑问，请到http://www.muzili.com/article.asp?id=7832留言

１。打开COMMON下的FUNCTION.ASP,在最后一个
程序代码
%>
之前插入下列代码
程序代码

Function sendmail(username,post_logID,email_commid,email_log_title,comm,post_Message) '邮件发送
if trim(blog_jmail)="1" then
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = blog_smtpuser
msg.MailServerPassword = blog_smtppassword
msg.From = blog_smtpmail
msg.FromName = sitename
msg.AddRecipient blog_email,sitename
If comm=1 Then
msg.Subject = "您发表的文章《"&email_log_title&"》已有客人发表了评论"
msg.Body = "["&username&"]在您的博客中发表了评论,请点击查"&siteurl&"default.asp?id="&post_logID&"#comm_"&email_commid&"。评论内容如下："&post_Message&""
Else
msg.Subject = "您的博客已有客人留言"
msg.Body = "["&username&"]在您的博客中发表了留言,请点击查看"&siteurl&"LoadMod.asp?plugins=GuestBookForPJBlog#book_"&email_commid&"。留言内容如下："&post_Message&""
End if
msg.Send(blog_smtp)
msg.close
set msg = nothing
Else
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = blog_email
objMail.From =blog_smtpmail
If comm=1 Then
objMail.Subject = "您发表的文章《"&email_log_title&"》已有客人发表了评论"
objMail.Body = "["&username&"]在您的博客中发表了评论,请点击查看"&siteurl&"default.asp?id="&post_logID&"#comm_"&email_commid&"。评论内容如下："&post_Message&""
Else
objMail.Subject = "您的博客已有客人留言"
objMail.Body = "["&username&"]在您的博客中发表了留言,请点击查看"&siteurl&"LoadMod.asp?plugins=GuestBookForPJBlog#book_"&email_commid&"。留言内容如下："&post_Message&""
End if
objMail.Send
Set objMail = Nothing
End If
End Function

'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
on error resume next
IsObj=false
VerObj=""
set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err then
IsObj = True
VerObj = TestObj.version
if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
set TestObj=nothing
End sub

２。打开blogcomm.asp，找到
程序代码
Conn.ExeCute("update blog_Content set log_CommNums=log_CommNums+1 where log_ID="&post_logID)
由于之前我做了某些修改，也提供过修改方法，可能部分朋友已经修改过，所以这里用到了一个之前用的已经定义了的变量。请先搜索下是否有SQLcomm,log_commcomm,如有就OK，如没有，先插入一行dim SQLcomm,log_commcomm,谢谢yangjun.cn指正。
在之上插入如下代码：
程序代码
dim email_commid
SQLcomm="Select TOP 1 * FROM blog_Comment Where comm_Author='"&username&"' order By comm_ID Desc "
Set log_commcomm=conn.execute(SQLcomm)
email_commid=log_commcomm("comm_ID")
log_commcomm.Close
Set log_commcomm=Nothing
dim email_log_title
SQLcomm="Select * FROM blog_Content Where log_ID="&post_logID&""
Set log_commcomm=conn.execute(SQLcomm)
email_log_title=log_commcomm("log_Title")
log_commcomm.Close<