给评论增加只有博主可见的功能FOR PJ2.6
作者:小戒 日期:2008-04-04
插件名称：给评论增加只有博主可见的功能FOR PJ2.6
插件作者：戒聊
发布时间：2008-04-04
版 本 号：
适用版本：V2.6
修改源码：是
MD5验证：
下载地址：http://www.muzili.com/attachments/month_0804/120084415432.rar
插件演示：http://www.muzili.com/article.asp?id=7887
插件简介：给评论增加只有博主可见的功能FOR PJ2.6
安装方法：
1.打开class下的cls_article.asp，找到（注意，如果加了我的评论回复功能就有两处，两处都按同样方法修改）
在此（两）处语句中的两个FORM前（注意，每处的FORM又有两处）分别插入和
此处表达可能不太清楚，用例句表示，注意看红色字部分。例句
2.找到
修改为：（注意：此段代码中的数字14，要根据你的实际情况来修改，确定数字的方法：从第一步中的SQL语句中的COMM_ID数起，COMM_ID为0，数到Comm_IsLegal出现的位置，是多少就将下面代码中的14替换成多少。）
3.找到
在其上插入如下代码：
4.打开blogcomm.asp，找到
在其上插入一行，插入如下代码：
dim IsLegal
IsLegal=request.Form("IsLegal")
找到
在其上面的一行语句的末尾“)”之前插入如下代码，注意不要换行，
5.下载附件，上传到博客根目录，执行升级数据库
点击下载此文件
插件作者：戒聊
发布时间：2008-04-04
版 本 号：
适用版本：V2.6
修改源码：是
MD5验证：
下载地址：http://www.muzili.com/attachments/month_0804/120084415432.rar
插件演示：http://www.muzili.com/article.asp?id=7887
插件简介：给评论增加只有博主可见的功能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[color=White][color=Red],Comm_IsLegal FROM [/color][/color]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><br/>
在其上插入如下代码：
复制内容到剪贴板 程序代码
程序代码 <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>
<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，找到
复制内容到剪贴板 程序代码
程序代码 ReInfo=Array("错误信息","","MessageIcon")
在其上插入一行，插入如下代码：
复制内容到剪贴板 程序代码
程序代码dim IsLegal
IsLegal=request.Form("IsLegal")
找到
复制内容到剪贴板 程序代码
程序代码 DBQuest "blog_Comment",AddComm,"insert"
在其上面的一行语句的末尾“)”之前插入如下代码，注意不要换行，
复制内容到剪贴板 程序代码
程序代码,Array("comm_IsLegal",IsLegal)
5.下载附件，上传到博客根目录，执行升级数据库
点击下载此文件[本日志由 小戒 于 2008-08-28 02:44 AM 编辑]
上一篇: 简单记事：今早在我身边发生的事
下一篇: 《越狱》里玫瑰花的制作方法（超详细）
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: PJBLOG 评论 
相关日志:
评论: 2 | 引用: 0 | 查看次数: -
回复
pj3333[2008-09-05 10:34 PM | 
| 
| 
]
发表评论