手动修改给PJblog加上审核功能

 

想给博客加上评论留言审核功能,在论坛寻找到了一想千开的帖子,只提供了覆盖版的,可是我的博客修改了太多,昨天晚上研究了一个晚上,终于手动修改出了审核功能,想肯定有很多博友也想给自己博客加上此功能,所以发布出手动修改办法希望能帮到大家.
演示:www.gyh.ha.cn
原文:http://www.badfish.cn/article.asp?id=98

首先还是要用到一想千开的数据库更新文件,上传至根目录,更新数据库后,登陆BLOG后台,“站点基本设置”-“初始化数据”更新网站缓存。
update.rar (2.23 KB)

接下来就是修改了,修改的文件有blogcomm.asp,comcontent.asp,trackback.asp,cls_article.asp,cls_article.asp,cls_control.asp,cache.asp这5个文件,修改的数据比较大,请修改前先做好备份.
一.修改blogcomm.asp

1.1搜索

复制内容到剪贴板

代码:

else
response.write ("非法操作!!")
end if

在上面插入如下代码

复制内容到剪贴板

代码:

elseif Request.QueryString("action")="Stat" then
Dim StatBcomm
StatBcomm=commStat
%>
   <div style="text-align:center;">
    <div id="MsgContent" style="width:300px">
      <div id="MsgHead"><%=StatBcomm(0)%></div>
      <div id="MsgBody">
                 <div class="<%=StatBcomm(2)%>"></div>
         <div class="MessageText"><%=StatBcomm(1)%></div>
          </div>
        </div>
  </div>
<%

1.2
在====================== 评论发表函数 ======================上插入

复制内容到剪贴板

代码:

'============================ 审核评论函数 =================================================
function commStat
dim post_commID,blog_Comm,blog_CommAuthor,logid,comm_Stat
dim ReInfo
  ReInfo=Array("错误信息","","MessageIcon")
  post_commID=clng(CheckStr(request.QueryString("commID")))
  set blog_Comm=Conn.ExeCute("select top 1 comm_ID,blog_ID,comm_Author from blog_Comment where comm_ID="&post_commID)
  if blog_Comm.eof or blog_Comm.bof then
         ReInfo(0)="错误信息"
         ReInfo(1)="<b>不存在此评论,或该评论已经被删除!</b>
<a href=""javascript:history.go(-1);"">单击返回</a>"
         ReInfo(2)="WarningIcon"
         delcomm=ReInfo
         exit function
  end if
  blog_CommAuthor=blog_Comm("comm_Author")
  if stat_Admin=true then
         ReInfo(0)="评论审核成功"
         ReInfo(1)="<b>评论已经成功通过审核!</b>
<a href=""default.asp?id="&blog_Comm("blog_ID")&""">单击返回</a>"
         ReInfo(2)="MessageIcon"
     logid=Conn.ExeCute("select blog_ID from blog_Comment where comm_ID="&post_commID)(0)
     Conn.ExeCute("update blog_Comment set comm_Stat=-1 Where comm_ID="&post_commID)
     PostArticle logid
     getInfo(2)
     NewComment(2)
         commStat=ReInfo
         Session(CookieName&"_LastDo")="commStat"
  else
         ReInfo(0)="错误信息"
         ReInfo(1)="<b>你没有权限审核评论</b>
<a href=""javascript:history.go(-1);"">单击返回</a>"
         ReInfo(2)="WarningIcon"
         commStat=ReInfo
  end if
end function

1.3搜索

复制内容到剪贴板

代码:

function postcomm
dim username,post_logID,post_From,post_FromURL,post_disImg,post_DisSM,post_DisURL,
post_DisKEY,post_DisUBB,post_Message,validate

在最后插入

复制内容到剪贴板

代码:

,commStat

1.4搜索

复制内容到剪贴板

代码:

post_Message=CheckStr(request.form("Message"))

换行插入

复制内容到剪贴板

代码:

commStat=stat_CommentStat

1.5搜索

复制内容到剪贴板

代码:

            '基本过滤规则
          if filterSpam(post_Message,"spam.xml") then
                    ReInfo(0)="评论发表错误信息"
                  ReInfo(1)="<b>评论中包含被屏蔽的字符</b>
<a href=""javascript:history.go(-1);"">返回</a>"
                  ReInfo(2)="WarningIcon"
                  postcomm=ReInfo
              exit function

换行插入

复制内容到剪贴板

代码:

          end If
        &n

bsp;   '敏感

Leave a comment

You must be logged in to post a comment.