现在位置: 首页 / 网站建设 / pjblog / 正文

pjblog修改评论留言楼层设置与评论审核状态关闭时评论审核状态通过

pjblog4一直处于难产状态中，虽然说是在内测组内，但从未获得一点有用的信息，所以不再保持高度的期待状态了，好好打点下pj352，也足够使用需求了。

下午进行了两处的功能修改，一个为：默认评论时，不管是否开启评论审核，评论审核状态一直默认为未审核，这样当打开审核时，原来显示的评论也看不到了。另一个为：为了互动性，设置评论留言者的楼层设置，一来方便查阅，二来增加互动性乐趣。

这里发布修改方法，一方面供自己备份查询，另一方面给同用352版本的pjer作为参考。其他pj版本可参考修改。此修改在半静态下进行。

1、评论审核打开时，发表评论自动审核通过
方法：
打开文件blogcomm.asp，查找代码：
 

Post_WebSite = Trim(CheckStr(request.Form("WebSite")))

在其下面添加：
 

'评论非审核状态则自动审核通过所有评论
 dim Post_IsAudit
 If blog_AuditOpen Then Post_IsAudit=False Else Post_IsAudit=True

查找代码：
 

    AddComm = Array(Array("blog_ID", post_logID), Array("comm_Content", post_Message), Array("comm_Author", username), Array("comm_DisSM", post_DisSM), Array("comm_DisUBB", post_DisUBB), Array("comm_DisIMG", post_disImg), Array("comm_AutoURL", post_DisURL), Array("comm_PostIP", getIP), Array("comm_AutoKEY", post_DisKEY),comm_IsAudit Array("comm_Email", Post_Email), Array("comm_WebSite", Post_WebSite))

修改为：

    AddComm = Array(Array("blog_ID", post_logID), Array("comm_Content", post_Message), Array("comm_Author", username), Array("comm_DisSM", post_DisSM), Array("comm_DisUBB", post_DisUBB), Array("comm_DisIMG", post_disImg), Array("comm_AutoURL", post_DisURL), Array("comm_PostIP", getIP), Array("comm_AutoKEY", post_DisKEY), Array("comm_Email", Post_Email),comm_IsAudit Array("comm_Email", Post_Email), Array("comm_WebSite", Post_WebSite))

2、设置楼层显示：占楼抢沙发设置
打开文件class/cls_article.asp,查找代码：

  '顶部翻页

在其上面添加如下代码：
 

 '抢沙发设置      
  Dim Lou_sum
    ' If log_ViewArr(6, 0) Then comDesc = "Desc" Else comDesc = "Asc" End If
  If comDesc="Desc" Then Lou_sum=comm_Num Else Lou_sum=1
  If comDesc="Desc" Then Lou_sum=Lou_sum-blogcommpage*(CurPage-1) Else Lou_sum=Lou_sum+blogcommpage*(CurPage-1)

查找代码：

   Pcount = Pcount + 1

在其下面添加如下代码：
 

   If comDesc="Desc" Then Lou_sum=Lou_sum-1 Else Lou_sum=Lou_sum+1

查找代码：
 

       ShowComm = ShowComm&"<a name=""comm_"&blog_CommID&""" href=""javascript:addQuote('"&blog_CommAuthor&"','commcontent_"&blog_CommID&"')""><img border=""0"" src=""images/icon_quote.gif"" alt="""" style=""margin:0px 4px -3px 0px""/></a>"

修改为：

   Dim Lou_show
   Select Case Lou_sum
   Case 1
    Lou_show="沙发"
   Case 2
    Lou_show="板凳" 
   Case 3
    Lou_show="地板"
   Case Else  
    Lou_show=Lou_sum&"楼"
   End Select
       ShowComm = ShowComm&"<span style=""float:right;cursor:pointer""><a name=""comm_"&blog_CommID&""" href=""javascript:addQuote('"&blog_CommAuthor&"','commcontent_"&blog_CommID&"')""><img border=""0"" src=""images/icon_quote.gif"" alt=""回复引用该发言"" style=""margin:0px 4px -3px 0px""/>引用该留言</a> "&Lou_show&"</span>"