给评论增加只有博主可见的功能

插件名称：给评论增加只有博主可见的功能FOR PJ2.6|2.7(谢谢EVIO调试2.7并指正，更新第４步)
插件作者：戒聊
发布时间：2008-04-04
版 本 号：
适用版本：V2.6
修改源码：是
插件简介：给评论增加只有博主可见的功能FOR PJ2.6   

安装方法： 

1.打开class下的cls_article.asp，找到（注意，如果加了我的评论回复功能就有两处，两处都按同样方法修改）代码:

SQL="Select comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY

在此（两）处语句中的两个FORM前（注意，每处的FORM又有两处）分别插入

代码:

,Comm_IsLegal

和

代码:

,0

此处表达可能不太清楚，用例句表示，注意看红色字部分。

例句

           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,Comm_IsLegal 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,0 FROM blog_Trackback Where blog_ID="&LogID&" orDER BY comm_PostTime "&comDesc
 

2.找到

代码:

            <div class="commentcontent" id="commcontent_<%=blog_CommID%>"><%=UBBCode(HtmlEncode(CheckStr(blog_CommContent)),commArr(4,Pcount),blog_commUBB,blog_commIMG,commArr(7,Pcount),commArr(9,Pcount))%></div>

修改为：（注意：此段代码中的数字14，要根据你的实际情况来修改，确定数字的方法：从第一步中的SQL语句中的COMM_ID数起，COMM_ID为0，数到Comm_IsLegal出现的位置，是多少就将下面代码中的14替换成多少。）

代码:

            <div class="commentcontent" id="commcontent_<%=blog_CommID%>"><%If commArr(14,Pcount)=True and not stat_Admin then%>隐藏评论，只有博主可查看<%else%><%=UBBCode(HtmlEncode(CheckStr(blog_CommContent)),commArr(4,Pcount),blog_commUBB,blog_commIMG,commArr(7,Pcount),commArr(9,Pcount))%><%end if%></div>

3.找到

代码:

<tr><td align="right" width="70" valign="top"><strong>内　容:</strong>

在其上插入如下代码：

代码:

          <tr>
            <td align="right" valign="top"><strong>隐　藏:</strong></td>
            <td style="padding:2px;"><input name="IsLegal" type="radio" id="IsLegal" value=1 />
              是
          <input name="IsLegal" type="radio" id="IsLegal" value=0 checked="checked" />
            否（是否只有博主可见）</td>
            </tr>

4.打开blogcomm.asp，找到

代码:

validate=trim(request.form("validate"))

在其上插入一行，插入如下代码：

代码:

dim IsLegal
IsLegal=request.Form("IsLegal")

找到

代码:

DBQuest "blog_Comment",AddComm,"insert"

在其上面的一行语句的末尾“)”之前插入如下代码，注意不要换行，

代码:

,Array("comm_IsLegal",IsLegal)

5.对侧栏最新评论做处理，不显示隐藏留言

6.下载附件，上传到博客根目录，执行升级数据库

<