上一篇
下一篇
评论留言增加邮箱网址及博主回复通知评论留言人 For Pj3 157（11/2日修改网址判断）
作者:小戒 日期:2008-11-02
温馨提示：请用Dreamweaver或EditPlus编辑修改，修改前请做好备份。
注意：此功能基于留言评论邮件通知博主(增加后台开关)For pj3(http://www.leoyung.com/article/7964.htm)，否则发送不了邮件。
打开class/cls_article.asp，找到：
在上面插入：
找到：
在下面插入：
找到：
替换为：
打
注意：此功能基于留言评论邮件通知博主(增加后台开关)For pj3(http://www.leoyung.com/article/7964.htm)，否则发送不了邮件。
打开class/cls_article.asp，找到：
复制内容到剪贴板
程序代码
程序代码 <%if memName=empty or blog_validate=true then%><tr><td align="right" width="70"><strong>验证码:</strong></td><td align="left" style="padding:3px;"><input name="validate" type="text" size="4" class="userpass" maxlength="4" onfocus="this.select()"/> <%=getcode()%></td></tr><%end if%>
在上面插入：
复制内容到剪贴板程序代码
程序代码 <%if memName=empty then%><tr><td align="right" width="70"><strong>邮 箱:</strong></td><td align="left" style="padding:3px;"><input name="myblogemail" type="text" size="18" class="userpass" maxlength="24"/> 请填写您的邮箱.</td></tr><%end if%>
<%if memName=empty then%><tr><td align="right" width="70"><strong>网 址:</strong></td><td align="left" style="padding:3px;"><input name="myblogsiteurl" type="text" class="userpass" value="http://" size="18" maxlength="24"/> 请填写您的网址.</td></tr><%end if%>
<%if memName=empty then%><tr><td align="right" width="70"><strong>网 址:</strong></td><td align="left" style="padding:3px;"><input name="myblogsiteurl" type="text" class="userpass" value="http://" size="18" maxlength="24"/> 请填写您的网址.</td></tr><%end if%>
找到：
复制内容到剪贴板程序代码
程序代码 ShowComm = ShowComm&"<a href=""member.asp?action=view&memName="&Server.URLEncode(blog_CommAuthor)&"""><strong>"&blog_CommAuthor&"</strong></a>"
在下面插入：
复制内容到剪贴板程序代码
程序代码 if trim(commArr(10,Pcount))<>"" then
ShowComm = ShowComm&" <a href=mailto:"&trim(commArr(10,Pcount))&" target=_blank><img src=images/email1.gif border=0></a>"
else
ShowComm = ShowComm&" <img src=images/noemail1.gif>"
end if
if trim(commArr(11,Pcount))<>"" and trim(commArr(11,Pcount))<>"http://" then
ShowComm = ShowComm&" <a href="&trim(commArr(11,Pcount))&" target=_blank><img src=images/url1.gif border=0></a>"
else
ShowComm = ShowComm&" <img src=images/nourl1.gif>"
end if
ShowComm = ShowComm&" <a href=mailto:"&trim(commArr(10,Pcount))&" target=_blank><img src=images/email1.gif border=0></a>"
else
ShowComm = ShowComm&" <img src=images/noemail1.gif>"
end if
if trim(commArr(11,Pcount))<>"" and trim(commArr(11,Pcount))<>"http://" then
ShowComm = ShowComm&" <a href="&trim(commArr(11,Pcount))&" target=_blank><img src=images/url1.gif border=0></a>"
else
ShowComm = ShowComm&" <img src=images/nourl1.gif>"
end if
找到：
复制内容到剪贴板程序代码
程序代码 SQL = "Select comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY FROM blog_Comment Where blog_ID="&LogID&" orDER BY comm_PostTime "&comDesc
替换为：
复制内容到剪贴板程序代码
程序代码 SQL = "Select comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY,email,siteurl FROM blog_Comment Where blog_ID="&LogID&" orDER BY comm_PostTime "&comDesc
打
文章来自: 
引用通告: 
Tags: 评论: 43 | 引用: 0 | 查看次数: -
回复
海天无影1 
[2009-05-15 04:23 PM | 
]汗 像这两个if memName=empty and email<>"" and IsValidEmail(email)=false then判断 不应该需要memName=empty
小戒 于 [2009-05-15 04:37 PM] 回复
小戒 于 [2009-05-15 04:37 PM] 回复
小戒 于 [2009-05-15 04:37 PM] 回复好像有些道理。MEMNAME是判断是否注册用户的。
小戒 于 [2009-05-15 04:37 PM] 回复你可以研究下，然后自己修改下。
果真如此 有的人不注意会把网址里的http://这几个去掉，那发表后显示的网址就是错误的……具体看我下面那个测试的网址。
这个怎么解决啊。
小戒 于 [2009-05-15 04:19 PM] 回复
这个怎么解决啊。
小戒 于 [2009-05-15 04:19 PM] 回复那就没必要去理他了。已经帮他填好了网址又跑去删。程序并不能代替人脑，我可以判断他是否有输入HTTP，但他要是输入个HTP呢？？？
测试下~网址
170版本的代码还需要改哪里呢？ 我试了3回 没一回成功的！
小戒 于 [2009-05-10 04:44 PM] 回复
小戒 于 [2009-05-10 04:44 PM] 回复你和秋天一棵树联系看看，他修改成功了。我还没换170,不好意思。
强悍，非常感谢戒聊的耐心和分享，本人的170最终版已经修改完毕。
小戒 于 [2009-05-03 01:15 PM] 回复
小戒 于 [2009-05-03 01:15 PM] 回复恭喜恭喜。
是否适用于PJ3最终版？我严格的按照步骤改了，但是好像还不行。
戒聊大哥。我的留言版出问题了，帮忙看下。说是这个变量没有定义
错误类型：
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'MsgID'
/Plugins/GuestBook/bookaction.asp, 第 145 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; http://bsalsa.com) ; User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; http://bsalsa.com) (Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)); CIBA; .NET CLR 2.0.50727)
网页：
POST 164 ??? /Plugins/GuestBook/bookaction.asp
小戒 于 [2009-03-27 09:42 PM] 回复
错误类型：
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'MsgID'
/Plugins/GuestBook/bookaction.asp, 第 145 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; http://bsalsa.com) ; User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; http://bsalsa.com) (Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)); CIBA; .NET CLR 2.0.50727)
网页：
POST 164 ??? /Plugins/GuestBook/bookaction.asp
小戒 于 [2009-03-27 09:42 PM] 回复你用的什么版本的？升下级吧。或者重新下载官方的。
不好意思。我忘了升级数据库了。 
小戒 于 [2009-03-27 10:28 AM] 回复
小戒 于 [2009-03-27 10:28 AM] 回复真健忘。。。。
完了，通知博主没错。回复通知评论人的代码加了就出错了。错误代码如下，请戒聊大哥看看。
错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/class/cls_article.asp, 第 258 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; http://bsalsa.com) ; User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; http://bsalsa.com) (Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)); CIBA; .NET CLR 2.0.50727)
网页：
GET /article.asp
错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/class/cls_article.asp, 第 258 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; http://bsalsa.com) ; User-agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; http://bsalsa.com) (Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)); CIBA; .NET CLR 2.0.50727)
网页：
GET /article.asp
我用的动态页面。在最新评论里面。链接地址错误怎么修改？
article.asp?id=11#comm_16
小戒 于 [2009-03-26 10:44 PM] 回复
article.asp?id=11#comm_16
小戒 于 [2009-03-26 10:44 PM] 回复动态就没错啊。
发表评论
