评论留言增加邮箱网址及博主回复通知评论留言人 For Pj3  157(11/2日修改网址判断)

温馨提示:请用Dreamweaver或EditPlus编辑修改,修改前请做好备份。
注意:此功能基于留言评论邮件通知博主(增加后台开关)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%>


找到:
复制内容到剪贴板程序代码程序代码
             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


找到:
复制内容到剪贴板程序代码程序代码
   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


[1] [2] [3] [4] [5] [6]  下一页

[本日志由 小戒 于 2008-12-08 10:17 PM 编辑]
收藏到QQ书签 文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 评论 留言 邮箱 网址 通知
评论: 43 | 引用: 0 | 查看次数: -
回复回复海天无影1 [2009-05-15 04:23 PM | del]
汗 像这两个if memName=empty and email<>"" and IsValidEmail(email)=false then判断 不应该需要memName=empty
引用来自 小戒 小戒 于 [2009-05-15 04:37 PM] 回复
好像有些道理。MEMNAME是判断是否注册用户的。

引用来自 小戒 小戒 于 [2009-05-15 04:37 PM] 回复
你可以研究下,然后自己修改下。
回复回复海天无影1 [2009-05-15 04:02 PM | del]
果真如此 有的人不注意会把网址里的http://这几个去掉,那发表后显示的网址就是错误的……具体看我下面那个测试的网址。
这个怎么解决啊。
引用来自 小戒 小戒 于 [2009-05-15 04:19 PM] 回复
那就没必要去理他了。已经帮他填好了网址又跑去删。程序并不能代替人脑,我可以判断他是否有输入HTTP,但他要是输入个HTP呢???
回复回复测试123 [2009-05-15 03:59 PM | del]
测试下~网址
回复回复风云 [2009-05-10 03:20 PM | del]
170版本的代码还需要改哪里呢? 我试了3回  没一回成功的!
引用来自 小戒 小戒 于 [2009-05-10 04:44 PM] 回复
你和秋天一棵树联系看看,他修改成功了。我还没换170,不好意思。
回复回复秋天一棵树 [2009-05-03 01:14 PM | del]
强悍,非常感谢戒聊的耐心和分享,本人的170最终版已经修改完毕。
引用来自 小戒 小戒 于 [2009-05-03 01:15 PM] 回复
恭喜恭喜。
回复回复武林博客 [2009-04-12 06:06 PM | del]
是否适用于PJ3最终版?我严格的按照步骤改了,但是好像还不行。
回复回复tcs [2009-03-27 02:53 PM | del]
戒聊大哥。我的留言版出问题了,帮忙看下。说是这个变量没有定义
错误类型:
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] 回复
你用的什么版本的?升下级吧。或者重新下载官方的。
回复回复tcs [2009-03-27 08:34 AM | del]
不好意思。我忘了升级数据库了。
引用来自 小戒 小戒 于 [2009-03-27 10:28 AM] 回复
真健忘。。。。
回复回复tcs [2009-03-27 08:31 AM | del]
完了,通知博主没错。回复通知评论人的代码加了就出错了。错误代码如下,请戒聊大哥看看。
错误类型:
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
回复回复tcs [2009-03-26 11:19 AM | del]
我用的动态页面。在最新评论里面。链接地址错误怎么修改?
article.asp?id=11#comm_16
引用来自 小戒 小戒 于 [2009-03-26 10:44 PM] 回复
动态就没错啊。
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 博主回复后,系统将发送通知邮件到您的邮箱,可不填.
网 址:
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.