评论回复(免修改数据库) For PJblog3
作者:小戒 日期:2008-07-27
作者:戒聊
首发:www.leoyung.com
For PJblog3版直接增加了博主可见可能,静态下20%无效,为什么20%,有兴趣的研究下。
如果您的PJblog原来装过评论回复For PJblog2.6的,在修改完后请先登录,然后执行压缩包update中的update.asp进行数据移植,否则请跳一跳执行update1中的update1.asp。
另外别忘了在后台增加过滤关键词[Reply_JieLiao],否则要是有人猜到了这个玩意儿,恐怕会打不开。
后台的评论回复方法:直接在当前评论的后面加 即可。
PS:由于修改或升级过程中可能会遇到一些未预料到的错误,请做好备份,另外强烈建议用DREAMWEAVER或EDITPLUS来编辑代码,因为记事本经常会造成断行或者乱码。
1.打开Class下的cls_article.asp
和之间的代码,全部替换为:
找
首发: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>"
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
'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
找
评论: 8 | 引用: 0 | 查看次数: -
修改了后,就是cls_article出错
第一处是
Microsoft VBScript 编译器错误 错误 '800a040e' <br/><br/>'loop' 语句缺少 'do' <br/><br/>/class/cls_article.asp,行 325 <br/><br/>Loop第二处是
引用内容
小戒 于 [2008-10-30 08:09 PM] 回复
第一处是
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
名称重定义
/class/cls_article.asp,行 333
Dim urlLink
应该是修改错误。不过157版本已经自带了此功能了。如果还没升级的话建议升级。
额?还是需要转成全静态的啊?
哎。。为什么我改过了还是出错的呢。。。麻烦博主能把改过的文件发一份吗。。不知道是不是自己改错了。。
小戒 于 [2008-08-13 14:51:53] 回复
请问提示什么错误?正常情况下是没有问题的。
广告挡住了很多文字 看不明白那写的什么 无法更改
小戒 于 [2008-08-11 18:26:54] 回复
广告没有遮住文字。放心修改吧。
很强,也很复杂,支持一下
恩,隐隐约约发先这个问题~ 
还有个问题是为什么我的游客评论不了呢?
会员正常,留言板也正常。
我可能改错了哪里,但找了很久找不到啊,
请指点一下
ilmusic.cn
小戒 于 [04/08/2008 11:53:17] 回复
还有个问题是为什么我的游客评论不了呢?
会员正常,留言板也正常。
我可能改错了哪里,但找了很久找不到啊,
请指点一下
ilmusic.cn
测试了,正常.
不错
发表评论
上一篇
下一篇

文章来自:
Tags:
回复

挺不错的~