留言评论邮件通知博主For pjblog2.6｜2.7
作者:小戒 日期:2007-12-11
。打开blogcomm.asp，找到由于之前我做了某些修改，也提供过修改方法，可能部分朋友已经修改过，所以这里用到了一个之前用的已经定义了的变量。请先搜索下是否有SQLcomm,log_commcomm,如有就OK，如没有，先插入一行dim SQLcomm,log_commcomm,谢谢yangjun.cn指正。
在之上插入如下代码：３。打开plugins\guestbook\bookaction.asp，找到如下代码在下面插入如下代码：４。打开common\cache.asp，找到在上面插入以下代码：并将其上一行的末尾的之前插入英文逗号。
找到在其上插入如下代码：找到在其上插入以下代码：说明：上一步修改中涉及到的blog_Infos(*,0)中间的*，请从此上一行的blog_Infos(*,0)中的*+１开始序列，依次加１。比如原blog_version="上一行的blog_Infos(*,0)中的*为１，那么刚才这一步中的*依次为2，3，4，5，6
４.１找到在其前加入注释掉。
４.２找到在
复制内容到剪贴板
程序代码
程序代码Conn.ExeCute("update blog_Content set log_CommNums=log_CommNums+1 where log_ID="&post_logID)
在之上插入如下代码：
复制内容到剪贴板 程序代码
程序代码 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
Set log_commcomm=Nothing
call sendmail(username,post_logID,email_commid,email_log_title,1,post_Message)
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
Set log_commcomm=Nothing
call sendmail(username,post_logID,email_commid,email_log_title,1,post_Message)
复制内容到剪贴板 程序代码
程序代码Response.Cookies(CookieName)("bookLastPost")=DateToStr(now(),"Y-m-d H:I:S")
复制内容到剪贴板 程序代码
程序代码 SQLcomm="Select TOP 1 * FROM blog_book Where book_Messager='"&username&"' order By book_ID Desc "
dim email_bookid
Set log_commcomm=conn.execute(SQLcomm)
email_bookid=log_commcomm("book_ID")
log_commcomm.Close
Set log_commcomm=Nothing
call sendmail(username,"",email_bookid,"",0,post_Message)
dim email_bookid
Set log_commcomm=conn.execute(SQLcomm)
email_bookid=log_commcomm("book_ID")
log_commcomm.Close
Set log_commcomm=Nothing
call sendmail(username,"",email_bookid,"",0,post_Message)
复制内容到剪贴板 程序代码
程序代码" from blog_Info"
复制内容到剪贴板 程序代码
程序代码 "blog_smtp,blog_smtpuser,blog_smtppassword,blog_jmail,blog_smtpmail" & _
复制内容到剪贴板 程序代码
程序代码" &_"
找到
复制内容到剪贴板 程序代码
程序代码'=========================日志基本信息缓存=======================
Sub getInfo(ByVal action)
Sub getInfo(ByVal action)
复制内容到剪贴板 程序代码
程序代码dim blog_smtp,blog_smtpuser,blog_smtppassword,blog_jmail,IsObj,msg,objMail,VerObj,TestObj,blog_smtpmail
复制内容到剪贴板 程序代码
程序代码blog_version="
复制内容到剪贴板 程序代码
程序代码 blog_smtp=trim(blog_Infos(*,0))'SMTP地址
blog_smtpuser=trim(blog_Infos(*,0))'SMTP用户名
blog_smtppassword=trim(blog_Infos(*,0))'SMTP密码
blog_jmail=trim(blog_Infos(*,0))'发送邮件组件
blog_smtpmail=trim(blog_Infos(*,0))'发送邮箱
blog_smtpuser=trim(blog_Infos(*,0))'SMTP用户名
blog_smtppassword=trim(blog_Infos(*,0))'SMTP密码
blog_jmail=trim(blog_Infos(*,0))'发送邮件组件
blog_smtpmail=trim(blog_Infos(*,0))'发送邮箱
４.１找到
复制内容到剪贴板 程序代码
程序代码IF Not IsArray(Application(CookieName&"_blog_Infos")) or action=2 Then
复制内容到剪贴板 程序代码
程序代码'
４.２找到
复制内容到剪贴板 程序代码
程序代码 Else
blog_Infos=Application(CookieName&"_blog_Infos")
End IF
blog_Infos=Application(CookieName&"_blog_Infos")
End IF
[本日志由 小戒 于 2008-09-18 08:48 PM 编辑]
上一篇: 评论留言加上邮箱和网址
下一篇: 给日志评论增加回复功能for pjblog (4/5凌晨更新,修改越权提交的BUG,危险)
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 留言 评论 PJBLOG 
相关日志:
评论: 5 | 引用: 0 | 查看次数: -
回复
blogcomm.asp代码段：
("&post_logID&",'"&post_Message&"','"&username&"',"&post_DisSM&","&post_DisUBB&","&post_disImg&","&post_DisURL&",'"&getIP()&"',"&post_DisKEY&")")
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent = true
。。。。。。。。。
JMail.Send("mail.loveshot.cn")
JMail.close
set JMail= nothing
Conn.ExeCute("update blog_Content set log_CommNums=log_CommNums+1 where log_ID="&post_logID)
Conn.ExeCute("update blog_Info set blog_CommNums=blog_CommNums+1")
小戒 于 回复
("&post_logID&",'"&post_Message&"','"&username&"',"&post_DisSM&","&post_DisUBB&","&post_disImg&","&post_DisURL&",'"&getIP()&"',"&post_DisKEY&")")
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent = true
。。。。。。。。。
JMail.Send("mail.loveshot.cn")
JMail.close
set JMail= nothing
Conn.ExeCute("update blog_Content set log_CommNums=log_CommNums+1 where log_ID="&post_logID)
Conn.ExeCute("update blog_Info set blog_CommNums=blog_CommNums+1")
小戒 于 回复看似没错。应该是缺少了相关变量的定义。请按照提供方法修改。
我把以下代码作为一个单独的asp文件就可以发出去，可是把它整合到blogcomm.asp就出现showmsg.asp中的空白提示框，即未出现评论发表成功等信息，查了下邮箱也未收到信，不知为什么？特来问下：
sendmail.asp
<% Set JMail = Server.CreateObject("JMail.Message")
JMail.silent = true
JMail.Logging = true
JMail.Charset = "gb2312"
JMail.MailServerUserName = "suny@loveshot.cn"
JMail.MailServerPassword = "######"
JMail.From = "suny@loveshot.cn"
JMail.FromName ="suny"
JMail.AddRecipient "zi.m.xie@gmail.com","loveshot"
JMail.Subject = "您发表的文章已有客人发表了评论"
JMail.Body = "hehe"
JMail.Send("mail.loveshot.cn")
JMail.close
set JMail= nothing
%>
sendmail.asp
<% Set JMail = Server.CreateObject("JMail.Message")
JMail.silent = true
JMail.Logging = true
JMail.Charset = "gb2312"
JMail.MailServerUserName = "suny@loveshot.cn"
JMail.MailServerPassword = "######"
JMail.From = "suny@loveshot.cn"
JMail.FromName ="suny"
JMail.AddRecipient "zi.m.xie@gmail.com","loveshot"
JMail.Subject = "您发表的文章已有客人发表了评论"
JMail.Body = "hehe"
JMail.Send("mail.loveshot.cn")
JMail.close
set JMail= nothing
%>
留言时的错误提示：
复制内容到剪贴板代码:
错误类型：
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'SQLcomm'
/Plugins/Guestbook/bookaction.asp, 第 159 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MAXTHON 2.0)
网页：
POST 148 ??? /Plugins/Guestbook/bookaction.asp
POST Data:
ChangeTime=20&username=xuting&validate=%E5%89%8D&book_face=face5&Message=+%E5%8E%85%E5%9C%A8&action=post&submit=%E5%8F%91%E8%A1%A8%E7%95%99%E8%A8%80
时间：
12 December 2007, 05:18:46
好像都是说SQLcomm未定义，请LZ帮忙解决一下，谢谢 小戒 于 回复
复制内容到剪贴板代码:
错误类型：
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'SQLcomm'
/Plugins/Guestbook/bookaction.asp, 第 159 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MAXTHON 2.0)
网页：
POST 148 ??? /Plugins/Guestbook/bookaction.asp
POST Data:
ChangeTime=20&username=xuting&validate=%E5%89%8D&book_face=face5&Message=+%E5%8E%85%E5%9C%A8&action=post&submit=%E5%8F%91%E8%A1%A8%E7%95%99%E8%A8%80
时间：
12 December 2007, 05:18:46
好像都是说SQLcomm未定义，请LZ帮忙解决一下，谢谢
小戒 于 回复２。打开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指正。
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指正。
修改完以后，发表评论时的错误提示：
复制内容到剪贴板代码:
错误类型：
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'SQLcomm'
/blogcomm.asp, 第 229 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MAXTHON 2.0)
网页：
POST 153 ??? /blogcomm.asp
POST Data:
username=xuting&Message=%E5%93%88%E5%93%88%E3%80%82%E3%80%82%E3%80%82%E3%80%82%E3%80%82&logID=34&action=post&submit2=%E5%8F%91%E8%A1%A8%E8%AF%84%E8%AE%BA
复制内容到剪贴板代码:
错误类型：
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'SQLcomm'
/blogcomm.asp, 第 229 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MAXTHON 2.0)
网页：
POST 153 ??? /blogcomm.asp
POST Data:
username=xuting&Message=%E5%93%88%E5%93%88%E3%80%82%E3%80%82%E3%80%82%E3%80%82%E3%80%82&logID=34&action=post&submit2=%E5%8F%91%E8%A1%A8%E8%AF%84%E8%AE%BA
发表评论
最后一步
不过还是谢谢版版帮我改了一个文件
cache这个文件我是改了不知道多少次了
仍然都错
麻烦你了