给日志评论增加回复功能for pjblog (４/８凌晨更新,修改越权提交的BUG,危险)

作者：戒聊。
发布网址：www.muzili.com
12/13增加后台管理评论回复功能。详情请见第三点。
发布出来才发现好像已经有这个了？
12/22增加回复显示日期功能，以及修改回复功能（已经有回复时再次点击回复为修改），请按照１．１，１．３，１．４，１．５，２，３步重新修改，其中１．４，１．５为新加步骤，另外重新下载附件并执行．
1/19更改后台错误,按照第4点修改.(最近店准备开张,比较忙,所以这么多朋友反应的后台出错,收到MOUSE的邮件,才仔细看了看,原来是我写漏了一步修改.SORRY.),关于后台回复时间会全部变成一样这个问题,等我空了再弄哈.
2/8更新回复时间显示错误.请注意第2步中的*** ***中间的代码.完全第一次更新请直接去掉这行两端的***,已经修改过的请直接重新更新这一行，注意去掉***就OK了.
2/9更新后台回复留言后所有之前的回复时间全部被更改，这个好像我没做过修改，是不是PJ之前本身就有的BUG?哈哈。
　　更新后台回复评论后时间无显示的BUG。经测试时间正常。
　　修改方法请注意：请认真执行第五步，小心，别搞错了。。

4/5凌晨修改越权提交的危险BUG,谢谢RISON提醒。
自从此功能发布已来，收到很多人的留言，修改不成功。主要是修改步骤太多，加上可能是我表达不清楚，呵呵，仔细看清每一步。出现什么未结束，或者超出范围之类的提示，这些都是由于修改错误，请大家多注意点我的说明，小心修改一点能成功。呵呵。实在不行请直接发送错误文件到我的QQ邮箱：６４５９６２@QQ.COM，我会在二天之内帮忙修改完成。

１。１打开class\cls_article.asp，找到

代码:

Sub ShowComm(LogID,comDesc,DisComment)

在下面插入

代码:

dim action,commID,CommReplyContent
action = trim(Request.QueryString("action"))

找到Pcount=0这行下面的SQL语句，即SQL="****"，小心修改。
如果已经做了我发布的《评论留言加上邮箱和网址(可防垃圾广告)》的朋友请直接将这句SQL语句替换为：

代码:

if action="Reply" then
commID=request("commID")
SQL="Select comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY,email,siteurl,comm_Reply,comm_Replytime FROM blog_Comment Where comm_ID="&commID&" UNION ALL Select 0,tb_Intro,tb_Title,tb_PostTime,tb_URL,tb_Site,tb_ID,0,'127.0.0.1',0,0,0,0,0 FROM blog_Trackback Where blog_ID="&LogID&" orDER BY comm_PostTime "&comDesc
else
SQL="Select comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY,email,siteurl,comm_Reply,comm_Replytime FROM blog_Comment Where blog_ID="&LogID&" UNION ALL Select 0,tb_Intro,tb_Title,tb_PostTime,tb_URL,tb_Site,tb_ID,0,'127.0.0.1',0,0,0,0,0 FROM blog_Trackback Where blog_ID="&LogID&" orDER BY comm_PostTime "&comDesc
end if

否则替换为：

代码:

if action="Reply" then
commID=request("commID")
SQL="Select comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY,comm_Reply,comm_Replytime FROM blog_Comment Where comm_ID="&commID&" UNION ALL Select 0,tb_Intro,tb_Title,tb_PostTime,tb_URL,tb_Site,tb_ID,0,'127.0.0.1',0,0,0 FROM blog_Trackback Where blog_ID="&LogID&" orDER BY comm_PostTime "&comDesc
else
SQL="Select comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY,comm_Reply,comm_Replytime FROM blog_Comment Where blog_ID="&LogID&" UNION ALL Select 0,tb_Intro,tb_Title,tb_PostTime,tb_URL,tb_Site,tb_ID,0,'127.0.0.1',0,0,0 FROM blog_Trackback Where blog_ID="&LogID&" orDER BY comm_PostTime "&comDesc
end if

１．２找到

代码:

<a href=""blogcomm.asp?action=del&commID="&blog_CommID&""" onclick=""if (!window.confirm('是否删除该评论?')) {return false}"">

在之前插入

代码:

<a href=""article.asp?action=Reply&commID="&