作品展示 订阅所有作品展示的日志

评论回复(免修改数据库) For PJblog3

作者:小戒 日期:2008-07-27

字体大小: 小 中 大
作者：戒聊
首发：www.leoyung.com
For PJblog3版直接增加了博主可见可能，静态下20%无效，为什么20%，有兴趣的研究下。

如果您的PJblog原来装过评论回复For PJblog2.6的，在修改完后请先登录，然后执行压缩包update中的update.asp进行数据移植，否则请跳一跳执行update1中的update1.asp。

另外别忘了在后台增加过滤关键词[Reply_JieLiao]，否则要是有人猜到了这个玩意儿，恐怕会打不开。

后台的评论回复方法：直接在当前评论的后面加
复制内容到剪贴板程序代码程序代码
[Reply_JieLiao]回复内容[Reply_JieLiao]管理员名称[Reply_JieLiao]回复时间
   即可。

PS：由于修改或升级过程中可能会遇到一些未预料到的错误，请做好备份，另外强烈建议用DREAMWEAVER或EDITPLUS来编辑代码，因为记事本经常会造成断行或者乱码。

1.打开Class下的cls_article.asp
复制内容到剪贴板程序代码程序代码
             ShowComm = ShowComm&"<a href=""member.asp?action=view&memName="&Server.URLEncode(blog_CommAuthor)&"""><strong>"&blog_CommAuthor&"</strong></a>"
和
复制内容到剪贴板程序代码程序代码
        '底部的翻页
       ShowComm = ShowComm&"<div class=""pageContent"">"&MultiPage(comm_Num,blogcommpage,CurPage,Url_Add,aName,"float:right" ,BaseUrl,aEvent)&"</div>"
之间的代码，全部替换为：
复制内容到剪贴板程序代码程序代码
            'EDIT BY JieLiao
            'ShowComm = ShowComm&"<span class=""commentinfo"">["&DateToStr(commArr(3,Pcount),"Y-m-d H:I A")&"<span class=""ownerClassComment""> | <a href=""blogcomm.asp?action=del&commID="&blog_CommID&""" onclick=""return delCommentConfirm()""><img src=""images/del1.gif"" alt=""del"" border=""0""/></a></span>]</span>"

            
            ShowComm = ShowComm&"<span class=""commentinfo"">["&DateToStr(commArr(3,Pcount),"Y-m-d H:I A")&"</span>"
        If stat_Admin then
            Dim urlLink
            if blog_postFile = 2 then
                urlLink = "article/"&LogID&".htm"
            else
                urlLink = "?id="&LogID
            end if
            ShowComm = ShowComm&"<span class=""ownerClassComment"">| <a href="""&urlLink&"#MsgReplyContent"" onclick=""document.frm1.commID.value="&blog_CommID&";document.frm1.commID.value="&blog_CommID&";MsgReplyContent.style.display='';""><img src=""Plugins/guestbook/reply.gif"" alt=""回复"" border=""0"" style=""margin-bottom:-3px""/></a> | <a href=""blogcomm.asp?action=del&commID="&blog_CommID&""" onclick=""return delCommentConfirm()""><img src=""images/del1.gif"" alt=""del"" border=""0""/></a>]</span>"
        End If
            'EDIT BY JieLiao
        
            '评论内容
            'EDIT BY JieLiao
            ShowComm = ShowComm&"</div><div class=""commentcontent"" id=""commcontent_"&blog_CommID&""">"
            Dim Comm_content
            Comm_content = Split(blog_CommContent,"[Reply_JieLiao]")   '用[Reply_JieLiao]作分隔符,取消原来的增加字段.
            If stat_Admin or commArr(2,Pcount) = memName Then
                ShowComm = ShowComm&UBBCode(HtmlEncode(Comm_content(0)),commArr(4,Pcount),blog_commUBB,blog_commIMG,commArr(7,Pcount),commArr(9,Pcount))
            ElseIf Comm_content(1) = 1 Then
                ShowComm = ShowComm&"此评论管理员可见"
            Else
                ShowComm = ShowComm&UBBCode(HtmlEncode(Comm_content(0)),commArr(4,Pcount),blog_commUBB,blog_commIMG,commArr(7,Pcount),commArr(9,Pcount))
            End If
            ShowComm = ShowComm&"</div>"
            If UBound(Comm_content)>1 Then '显示回复,可根据自己需要调整显示方式.
                ShowComm=ShowComm&"<fieldset><legend><img src=""images/reply.gif"" border=""0"" style=""margin:0px 3px -3px 0px""/><a href=""member.asp?action=view&memName="&Comm_content(3)&"""><b>"&Comm_content(3)&"</b></a> <span class=""commentinfo"">["&DateToStr(Comm_content(4),"Y-m-d H:I:S")&"]</span></legend><div class=""commentcontent"">"&UBBCode(HtmlEncode(Comm_content(2)),commArr(4,Pcount),blog_commUBB,blog_commIMG,commArr(7,Pcount),commArr(9,Pcount))&"</div></fieldset>"
            End If
            Pcount = Pcount + 1
            ShowComm=ShowComm&"</div>"
            'EDIT BY JieLiao
        Loop



找

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

[本日志由 小戒 于 2008-08-28 02:42 AM 编辑]
收藏到QQ书签 文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 评论 回复 PJBLOG
评论: 8 | 引用: 0 | 查看次数: -
回复回复hyphon [2009-03-02 04:31 PM | del]
引用来自 jessicamiao 引用来自 jessicamiao
额？还是需要转成全静态的啊？

挺不错的~
回复回复mildnes [2008-10-30 05:07 PM | del]
修改了后,就是cls_article出错
第一处是
Microsoft VBScript 编译器错误 错误 '800a040e' <br/><br/>'loop' 语句缺少 'do' <br/><br/>/class/cls_article.asp，行 325 <br/><br/>Loop第二处是

引用内容 引用内容
Microsoft VBScript 编译器错误 错误 '800a0411'

名称重定义

/class/cls_article.asp，行 333

Dim urlLink




引用来自 小戒 小戒 于 [2008-10-30 08:09 PM] 回复
应该是修改错误。不过157版本已经自带了此功能了。如果还没升级的话建议升级。
回复回复jessicamiao [2008-08-19 08:26 PM | del]
额？还是需要转成全静态的啊？
回复回复半岛饭盒 [2008-08-13 01:33 PM | del]
哎。。为什么我改过了还是出错的呢。。。麻烦博主能把改过的文件发一份吗。。不知道是不是自己改错了。。
引用来自 小戒 小戒 于 [2008-08-13 14:51:53] 回复
请问提示什么错误？正常情况下是没有问题的。
回复回复残阳博客 [2008-08-11 06:10 PM | del]
广告挡住了很多文字  看不明白那写的什么   无法更改
引用来自 小戒 小戒 于 [2008-08-11 18:26:54] 回复
广告没有遮住文字。放心修改吧。
回复回复ilank [2008-08-10 11:19 AM | del]
很强，也很复杂，支持一下
回复回复feiyang [2008-08-04 04:36 AM | del]
恩，隐隐约约发先这个问题~


还有个问题是为什么我的游客评论不了呢？

会员正常，留言板也正常。

我可能改错了哪里，但找了很久找不到啊，

请指点一下

ilmusic.cn
引用来自 小戒 小戒 于 [04/08/2008 11:53:17] 回复
测试了,正常.
回复回复十年博客 [2008-07-28 09:03 AM | del]
不错
发表评论
昵　称:
密　码: 游客发言不需要密码.
邮　箱: 博主回复后，系统将发送通知邮件到您的邮箱，可不填.
网　址:
内　容:
验证码: 验证码
选　项:
虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.