留言评论邮件通知博主(增加后台开关)For pj3
作者:小戒 日期:2008-09-08
。打开blogcomm.asp，找到
在之上插入如下代码：
３。打开plugins\guestbook\bookaction.asp，找到如下代码
在下面插入如下代码：
４。打开common\cache.asp，找到
替换成：
找到：
在下面插入：
找到：
在下面插入：
４。１
找到：
替换成：
找到：
替换成：
' Else
' blog_Infos = Application(CookieName&"_blog_Infos")
' End If
５。打开control\c_general.asp，找到：
在
复制内容到剪贴板
程序代码
程序代码Conn.ExeCute("update blog_Content set log_CommNums=log_CommNums+1 where log_ID="&post_logID)
在之上插入如下代码：
复制内容到剪贴板 程序代码
程序代码 '评论邮件通知
Dim email_commid, SQLcomm, log_commcomm
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
If blog_Isjmail Then
call sendmail(username,post_logID,email_commid,email_log_title,1,post_Message)
End If
'评论邮件通知结束
Dim email_commid, SQLcomm, log_commcomm
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
If blog_Isjmail Then
call sendmail(username,post_logID,email_commid,email_log_title,1,post_Message)
End If
'评论邮件通知结束
３。打开plugins\guestbook\bookaction.asp，找到如下代码
复制内容到剪贴板 程序代码
程序代码Response.Cookies(CookieName)("bookLastPost")=DateToStr(now(),"Y-m-d H:I:S")
在下面插入如下代码：
复制内容到剪贴板 程序代码
程序代码 '留言邮件通知
Dim SQLcomm, log_commcomm
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
If blog_Isjmail Then
call sendmail(username,"",email_bookid,"",0,post_Message)
End If
'留言邮件通知结束
Dim SQLcomm, log_commcomm
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
If blog_Isjmail Then
call sendmail(username,"",email_bookid,"",0,post_Message)
End If
'留言邮件通知结束
４。打开common\cache.asp，找到
复制内容到剪贴板 程序代码
程序代码 "blog_wapNum,blog_wapImg,blog_wapHTML,blog_wapLogin,blog_wapComment,blog_wap,blog_wapURL" & _
替换成：
复制内容到剪贴板 程序代码
程序代码 "blog_wapNum,blog_wapImg,blog_wapHTML,blog_wapLogin,blog_wapComment,blog_wap,blog_wapURL," & _
"blog_smtp,blog_smtpuser,blog_smtppassword,blog_jmail,blog_smtpmail,blog_Isjmail" & _
"blog_smtp,blog_smtpuser,blog_smtppassword,blog_jmail,blog_smtpmail,blog_Isjmail" & _
找到：
复制内容到剪贴板 程序代码
程序代码Dim memoryCache
在下面插入：
复制内容到剪贴板 程序代码
程序代码Dim blog_smtp, blog_smtpuser, blog_smtppassword, blog_jmail, IsObj, msg, objMail, VerObj, TestObj, blog_smtpmail, blog_Isjmail
找到：
复制内容到剪贴板 程序代码
程序代码 blog_wapURL = CBool(blog_Infos(44, 0))'使用 wap 转换文章超链接
在下面插入：
复制内容到剪贴板 程序代码
程序代码 blog_smtp=trim(blog_Infos(45,0))'SMTP地址
blog_smtpuser=trim(blog_Infos(46,0))'SMTP用户名
blog_smtppassword=trim(blog_Infos(47,0))'SMTP密码
blog_jmail=trim(blog_Infos(48,0))'发送邮件组件
blog_smtpmail=trim(blog_Infos(49,0))'发送邮箱
blog_Isjmail=blog_Infos(50,0)'是否邮件通知
blog_smtpuser=trim(blog_Infos(46,0))'SMTP用户名
blog_smtppassword=trim(blog_Infos(47,0))'SMTP密码
blog_jmail=trim(blog_Infos(48,0))'发送邮件组件
blog_smtpmail=trim(blog_Infos(49,0))'发送邮箱
blog_Isjmail=blog_Infos(50,0)'是否邮件通知
４。１
找到：
复制内容到剪贴板 程序代码
程序代码 If Not IsArray(Application(CookieName&"_blog_Infos")) or action = 2 Then
替换成：
复制内容到剪贴板 程序代码
程序代码 '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
替换成：
复制内容到剪贴板 程序代码
程序代码' Else
' blog_Infos = Application(CookieName&"_blog_Infos")
' End If
５。打开control\c_general.asp，找到：
复制内容到剪贴板 程序代码
程序代码 <tr>
<td width="180"><div align="right"> 站长邮件地址 </div></td>
<td align="left"><input name="blog_email" type="text" size="50" class="text" value="<%=blog_email%>"/></td>
</tr>
<td width="180"><div align="right"> 站长邮件地址 </div></td>
<td align="left"><input name="blog_email" type="text" size="50" class="text" value="<%=blog_email%>"/></td>
</tr>
在
[本日志由 小戒 于 2008-10-10 10:53 AM 编辑]
上一篇: 让你的PJBLOG3静态下也支持侧栏插件（8/31日更新）
下一篇: 简单修改将验证码改为加减法计算
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 留言 评论 PJBLOG 
相关日志:
评论: 22 | 引用: 0 | 查看次数: -
回复
注册公司[2009-10-24 06:49 PM | 
| 
| 
]上海注册公司网：www.tianshanghang.com
blog_Isjmail=blog_Infos(50,0)'是否邮件通知
请问这个50是不是数据库的50列？ 但好像也不是 因为我数到50列的时候 也没这列
主要是因为这个跟网站首页的关键字跟介绍冲突了
keywords跟 description
cache.asp里面
blog_KeyWords = blog_Infos(45, 0)'站点首页KeyWords
blog_Description = blog_Infos(46, 0)'站点首页Description
45跟46正好冲突了 =。= 请问如何解决
请问这个50是不是数据库的50列？ 但好像也不是 因为我数到50列的时候 也没这列
主要是因为这个跟网站首页的关键字跟介绍冲突了
keywords跟 description
cache.asp里面
blog_KeyWords = blog_Infos(45, 0)'站点首页KeyWords
blog_Description = blog_Infos(46, 0)'站点首页Description
45跟46正好冲突了 =。= 请问如何解决
test02
test
戒聊，你的博客升到最终版了吗？这个功能还能用？我的怎么仔细改都不行。你是不是更新了，如果更新了不要小气，发出来呀！
小戒 于 回复
小戒 于 回复没有噢，我的还是157版本。
博主你好，我想问一下，如果当前的文章不是博主自己发的，比如给几个好友开了发表文章的权限。能不能实现向文章作者进行邮件通知的功能呢？
代码要在什么地方进行修改，还望不吝赐教，感谢！
小戒 于 回复
代码要在什么地方进行修改，还望不吝赐教，感谢！
小戒 于 回复可以的，但目前这个还达不到这个功能。
搞定，谢谢戒聊大哥。
还想请教你一个问题，
就是博主回复后，系统将发送通知邮件到您的邮箱
发给访客的这个功能怎么弄的？
小戒 于 回复
还想请教你一个问题，
就是博主回复后，系统将发送通知邮件到您的邮箱
发给访客的这个功能怎么弄的？
小戒 于 回复http://www.leoyung.com/article/7975.htm
这是160行开始的代码。If 到 end if 是改第一行吗
If DateDiff("s", Request.Cookies(CookieName)("memLastPost"), Now())<blog_commTimerout Then
ReInfo(0) = "评论发表错误信息"
ReInfo(1) = "<b>发言太快,请 "&blog_commTimerout&" 秒后再发表评论</b><br/><a href=""javascript:history.go(-1);"">单击返回</a>"
ReInfo(2) = "WarningIcon"
postcomm = ReInfo
Exit Function
End If
小戒 于 回复
If DateDiff("s", Request.Cookies(CookieName)("memLastPost"), Now())<blog_commTimerout Then
ReInfo(0) = "评论发表错误信息"
ReInfo(1) = "<b>发言太快,请 "&blog_commTimerout&" 秒后再发表评论</b><br/><a href=""javascript:history.go(-1);"">单击返回</a>"
ReInfo(2) = "WarningIcon"
postcomm = ReInfo
Exit Function
End If
小戒 于 回复修改服务器的时间格式，去掉中文。
发表评论