留言评论邮件通知博主(增加后台开关)For pj3
作者:小戒 日期:2008-09-08
下面插入：
<tr>
<td><div align="right">是否评论留言邮件通知</div></td>
<td align="left"><input name="blog_Isjmail" type="checkbox" value="1" <%if blog_Isjmail then response.write ("checked=""checked""")%>/></td>
</tr>
<tr>
<td width="180"><div align="right"> 邮件发送组件 </div></td>
<td align="left"><select name="blog_jmail">
<option value="1" <%if trim(blog_jmail)="1" then response.write "selected"%>>
<%
ObjTest("JMail.SmtpMail")
If IsObj then
response.write "支持JMail.SmtpMail"
Else
response.write "不支持JMail.SmtpMail"
End If
%>
</option>
<option value="0" <%if trim(blog_jmail)="0" then response.write "selected"%>>
<%
ObjTest("CDONTS.NewMail")
If IsObj then
response.write "支持CDONTS.NewMail"
Else
response.write "不支持CDONTS.NewMail"
End If
%>
</option>
</select>请选择您的服务器所支持的邮件发送组件</td>
</tr>
<tr>
<td width="180"><div align="right"> SMTP服务器 </div></td>
<td align="left"><input name="blog_smtp" type="text" size="50" class="text" value="<%=blog_smtp%>"/></td>
</tr>
<tr>
<td width="180"><div align="right">发件信箱 </div></td>
<td align="left"><input name="blog_smtpmail" type="text" size="50" class="text" value="<%=blog_smtpmail%>"/></td>
</tr>
<tr>
<td width="180"><div align="right"> SMTP用户名 </div></td>
<td align="left"><input name="blog_smtpuser" type="text" size="50" class="text" value="<%=blog_smtpuser%>"/></td>
</tr>
<tr>
<td width="180"><div align="right"> SMTP密码 </div></td>
<td align="left"><input name="blog_smtppassword" type="password" size="50" class="text" value="<%=blog_smtppassword%>"/></td>
</tr>
６。打开control\Action.asp，找到：
在下面插入：
６。下载附件，解压，上传update.asp到博客所在目录执行升级数据库。
７。后台更新缓存。
８。还原４.１步。即取消注释。（这一步必须在这里才能打开，否则网站会打不开。）
９。请确定后台的基本设置中的BLOG 地址是否为http://***.*/
复制内容到剪贴板
程序代码
程序代码<tr>
<td><div align="right">是否评论留言邮件通知</div></td>
<td align="left"><input name="blog_Isjmail" type="checkbox" value="1" <%if blog_Isjmail then response.write ("checked=""checked""")%>/></td>
</tr>
<tr>
<td width="180"><div align="right"> 邮件发送组件 </div></td>
<td align="left"><select name="blog_jmail">
<option value="1" <%if trim(blog_jmail)="1" then response.write "selected"%>>
<%
ObjTest("JMail.SmtpMail")
If IsObj then
response.write "支持JMail.SmtpMail"
Else
response.write "不支持JMail.SmtpMail"
End If
%>
</option>
<option value="0" <%if trim(blog_jmail)="0" then response.write "selected"%>>
<%
ObjTest("CDONTS.NewMail")
If IsObj then
response.write "支持CDONTS.NewMail"
Else
response.write "不支持CDONTS.NewMail"
End If
%>
</option>
</select>请选择您的服务器所支持的邮件发送组件</td>
</tr>
<tr>
<td width="180"><div align="right"> SMTP服务器 </div></td>
<td align="left"><input name="blog_smtp" type="text" size="50" class="text" value="<%=blog_smtp%>"/></td>
</tr>
<tr>
<td width="180"><div align="right">发件信箱 </div></td>
<td align="left"><input name="blog_smtpmail" type="text" size="50" class="text" value="<%=blog_smtpmail%>"/></td>
</tr>
<tr>
<td width="180"><div align="right"> SMTP用户名 </div></td>
<td align="left"><input name="blog_smtpuser" type="text" size="50" class="text" value="<%=blog_smtpuser%>"/></td>
</tr>
<tr>
<td width="180"><div align="right"> SMTP密码 </div></td>
<td align="left"><input name="blog_smtppassword" type="password" size="50" class="text" value="<%=blog_smtppassword%>"/></td>
</tr>
６。打开control\Action.asp，找到：
复制内容到剪贴板 程序代码
程序代码 weblog("blog_email") = checkURL(CheckStr(Request.Form("blog_email")))
在下面插入：
复制内容到剪贴板 程序代码
程序代码 '评论留言邮件通知
weblog("blog_smtp")=trim(Request.form("blog_smtp"))
weblog("blog_smtpuser")=trim(Request.form("blog_smtpuser"))
weblog("blog_smtppassword")=trim(Request.form("blog_smtppassword"))
weblog("blog_jmail")=trim(Request.form("blog_jmail"))
weblog("blog_smtpmail")=trim(Request.form("blog_smtpmail"))
If Int(Request.Form("blog_Isjmail")) = 1 Then
weblog("blog_Isjmail")=1
Else
weblog("blog_Isjmail")=0
End If
'评论留言邮件通知结束
weblog("blog_smtp")=trim(Request.form("blog_smtp"))
weblog("blog_smtpuser")=trim(Request.form("blog_smtpuser"))
weblog("blog_smtppassword")=trim(Request.form("blog_smtppassword"))
weblog("blog_jmail")=trim(Request.form("blog_jmail"))
weblog("blog_smtpmail")=trim(Request.form("blog_smtpmail"))
If Int(Request.Form("blog_Isjmail")) = 1 Then
weblog("blog_Isjmail")=1
Else
weblog("blog_Isjmail")=0
End If
'评论留言邮件通知结束
６。下载附件，解压，上传update.asp到博客所在目录执行升级数据库。
７。后台更新缓存。
８。还原４.１步。即取消注释。（这一步必须在这里才能打开，否则网站会打不开。）
９。请确定后台的基本设置中的BLOG 地址是否为http://***.*/
[本日志由 小戒 于 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
小戒 于 回复修改服务器的时间格式，去掉中文。
发表评论