给PJ博客加评论回复的简单方法

Wed, 13 Feb 2008 06:03:04 +0000

所谓给PJ博客加评论回复功能的简单方法就是直接替换需要替换的文件即可，现在把所需修改的文件修改后的源码发布：
一、class目录里的cls_article.asp文件
修改后的源码：
<%
'==================================
'  日志类文件
'    更新时间: 2006-1-22
'==================================

'SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag FROM blog_Content Where log_ID="&id&" and log_IsDraft=false"
'row序号:          0     ,1         ,2         ,3        ,4           ,5         ,6           ,7             ,8          ,9           ,10          ,11          ,12           ,13         ,14         ,15       ,16        ,17         ,18       ,19

'*******************************************
'  显示日志内容
'*******************************************

    sub updateViewNums(logID,vNums)
     if not blog_postFile then exit sub
     dim LoadArticle,splitStr,getA,i,tempStr
     splitStr="<"&"%ST(A)%"&">"
     tempStr=""
     LoadArticle=LoadFromFile("cache/"&LogID&".asp")
     if LoadArticle(0)=0 then
       getA=split(LoadArticle(1),splitStr)
       getA(2)=vNums
       for i=1 to ubound(getA)
         tempStr=tempStr&splitStr&getA(i)
       next
       call SaveToFile (tempStr,"cache/" & LogID & ".asp")
       end if
    end sub

sub ShowArticle(LogID)
         If (log_ViewArr(5,0)=memName And log_ViewArr(3,0)=False) or stat_Admin or log_ViewArr(3,0)=true then
           else
           showmsg "错误信息","该日志为隐藏日志，没有权限查看该日志！
单击返回","ErrorIcon",""
       End if
       If (Not getCate.cate_Secret) or (log_ViewArr(5,0)=memName And getCate.cate_Secret) or stat_Admin or (getCate.cate_Secret and stat_ShowHiddenCate) Then
           else
           showmsg "错误信息","该日志分类为保密类型，无法查看该日志！
单击返回","ErrorIcon",""
       end if

     if log_ViewArr(6,0) then comDesc="Desc" else comDesc="Asc" end If

       '从文件读取日志
       if blog_postFile then
         dim LoadArticle,TempStr,TempArticle
         LoadArticle=LoadFromFile("post/"&LogID&".asp")

         if LoadArticle(0)=0 then
              TempArticle=LoadArticle(1)
            TempStr=""
            if stat_EditAll or (stat_Edit and memName=log_ViewArr(5,0)) then
             TempStr=TempStr&" "
          end if

          if stat_DelAll or (stat_Del and memName=log_ViewArr(5,0)) then
             TempStr=TempStr&""
          end if

            TempArticle=Replace(TempArticle,"<"&"%ST(A)%"&">","")
            TempArticle=Replace(TempArticle,"<$EditAndDel$>",TempStr)
            TempArticle=Replace(TempArticle,"<$log_ViewNums$>",log_ViewArr(4,0))

          response.write TempArticle
              ShowComm LogID,comDesc,log_ViewArr(7,0)
            call updateViewNums(id,log_ViewArr(4,0))
         else
          response.write "读取日志出错.
" & LoadArticle(0) & " : " &  LoadArticle(1)
         end if
           exit sub
        end If

       '从数据库读取日志
       'on error resume Next
    set preLog=Conn.Execute("Select TOP 1 log_Title,log_ID FROM blog_Content Where log_PostTime<#"&DateToStr(log_ViewArr(9,0),"Y-m-d H:I:S")&"# and log_IsShow=true and log_IsDraft=false orDER BY log_PostTime DESC")
    set nextLog=Conn.Execute("Select TOP 1 log_Title,log_ID FROM blog_Content Where log_PostTime>#"&DateToStr(log_ViewArr(9,0),"Y-m-d H:I:S")&"# and log_IsShow=true and log_IsDraft=false orDER BY log_PostTime ASC")
    SQLQueryNums=SQLQueryNums+2

%>

               <%
                 if not preLog.eof then
                     response.write (" 上一篇")
                    else
                     response.write ("上一篇")
                  end if
                  if not nextLog.eof then
                     response.write (" | 下一篇")
                    else
                     response.write (" | 下一篇")
                  end if
                  preLog.close
                  nextLog.close
                  set preLog=nothing
                  set nextLog=nothing
               %>

" style="margin:0px 2px -4px 0px" alt=""/> <%=getCate.cate_Name%> 的日志" style="margin-bottom:-1px"/>

<%=HtmlEncode(log_ViewArr(2,0))%>

作者:<%=log_ViewArr(5,0)%> 日期:<%=DateToStr(log_ViewArr(9,0),"Y-m-d")%>

字体大小: 小中大

.gif" style="margin:0px 2px -6px 0px" alt=""/>.gif" alt=""/> .gif" style="margin:0px 2px -1px 0px" alt=""/>
                <%if stat_EditAll or (stat_Edit and log_ViewArr(5,0)=memName) then %>　<%end if%>
                  <%if stat_DelAll or (stat_Del and log_ViewArr(5,0)=memName)  then %>　<%end if%>

            <%
              keyword=CheckStr(Request.QueryString("keyword"))
            if log_ViewArr(10,0)=1 then
             response.write (highlight(UnCheckStr(UBBCode(HtmlEncode(log_ViewArr(8,0)),mid(log_ViewArr(11,0),1,1),mid(log_ViewArr(11,0),2,1),mid(log_ViewArr(11,0),3,1),mid(log_ViewArr(11,0),4,1),mid(log_ViewArr(11,0),5,1))),keyword))
            else
             response.write (highlight(UnCheckStr(log_ViewArr(8,0)),keyword))
            end if  %>

              <%if len(log_ViewArr(16,0))>0 then response.write (log_ViewArr(16,0)&"
")%>
            文章来自: <%=log_ViewArr(18,0)%>

            引用通告: " target="_blank">查看所有引用 | 我要引用此文章

               <%dim getTag
              set getTag=new tag
            %>
             Tags: <%=getTag.filterHTML(log_ViewArr(19,0))%>

评论: <%=log_ViewArr(12,0)%> | 引用: <%=log_ViewArr(13,0)%> | 查看次数: <%=log_ViewArr(4,0)%>

<%                     set getTag=nothing
     ShowComm LogID,comDesc,log_ViewArr(7,0) '显示评论内容
end sub

'*******************************************
'  显示日志评论内容
'*******************************************
Sub ShowComm(LogID,comDesc,DisComment)
       dim action,commID,CommReplyContent
          action = trim(Request.QueryString("action"))
     response.write ("")
     dim blog_Comment,Pcount,comm_Num,blog_CommID,blog_CommAuthor,blog_CommContent,Url_Add,commArr,commArrLen
     Set blog_Comment=Server.CreateObject("Adodb.RecordSet")
     Pcount=0
     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
     blog_Comment.Open SQL,Conn,1,1
     SQLQueryNums=SQLQueryNums+1
    IF blog_Comment.EOF AND blog_Comment.BOF Then
      else
     blog_Comment.PageSize=blogcommpage
     blog_Comment.AbsolutePage=CurPage
     comm_Num=blog_Comment.RecordCount

     commArr=blog_Comment.GetRows(comm_Num)
       blog_Comment.close
       set blog_Comment = nothing
       commArrLen=Ubound(commArr,2)

     Url_Add="?id="&LogID&"&"%>

<%=MultiPage(comm_Num,blogcommpage,CurPage,Url_Add,"#comm_top","float:right")%>

     <%
     Do Until Pcount = commArrLen + 1 or Pcount=blogcommpage
     blog_CommID=commArr(0,Pcount)
     blog_CommAuthor=commArr(2,Pcount)
     blog_CommContent=commArr(1,Pcount)
     dim CommReplyConten
CommReplyContent=commArr(10,Pcount)
     %>

<%IF blog_CommID=0 Then%>

<%=(""&commArr(5,Pcount)&"")%> [<%=DateToStr(commArr(3,Pcount),"Y-m-d H:I A")%><%if stat_Admin=true then response.write (" | ") end if%>]

    标题: <%=blog_CommAuthor%>

    链接: <%=(""&commArr(4,Pcount)&"")%>

    摘要: <%=checkURL(HTMLDecode(blog_CommContent))%>

<%else%>

" alt="" style="margin:0px 4px -3px 0px"/><%=blog_CommAuthor%> [<%=DateToStr(commArr(3,Pcount),"Y-m-d H:I A")%> <%if stat_Admin then response.write (" | "&commArr(8,Pcount)) end if%><%if stat_Admin=true or (stat_CommentDel=true and memName=blog_CommAuthor) then response.write (" | ") end if%>]

<%=UBBCode(HtmlEncode(blog_CommContent),commArr(4,Pcount),blog_commUBB,blog_commIMG,commArr(7,Pcount),commArr(9,Pcount))%>

<%if len(commArr(10,Pcount))>0 then %>

<%=blog_master%>回复 [<%=DateToStr(commArr(11,Pcount),"Y-m-d H:I A")%>]

<%=UBBCode(HtmlEncode(commArr(10,Pcount)),0,0,0,1,1)%>

<%end if%>
<%end if%>

    <%
     Pcount=Pcount+1
     loop
       %>

<%=MultiPage(comm_Num,blogcommpage,CurPage,Url_Add,"#comm_top","float:right")%>

       <%
       end if
     if not DisComment then
    %>

<%
          if action="Reply" then
                  response.write "回复评论"
          else
                  response.write "发表评论"
          end if
%>

      <%
       if not stat_CommentAdd then
        response.write ("你没有权限发表留言！")
        response.write ("

")
        exit sub
       end if
      %>

      <%if memName=empty then%><%end if%>
    <%if memName=empty or blog_validate=true then%><%end if%>

昵　称:	/>
密　码:	游客发言不需要密码.
验证码:	<%=getcode()%>
内　容:	<% UBB_TextArea_Height="150px;" UBB_Tools_Items="bold,italic,underline" UBB_Tools_Items=UBB_Tools_Items&"\|\|image,link,mail,quote,smiley" if action="Reply" then UBB_Msg_Value=UBBFilter(UnCheckStr(CommReplyContent)) end if UBBeditor("Message") %>
选　项:	禁止表情转换禁止自动转换链接禁止自动转换关键字
<% if action="Reply" then %> <% else %> <% end if %>
<%if memName=empty then%>虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号. <%end if%> 字数限制 <%=blog_commLength%> 字 \| UBB代码 <%if (blog_commUBB=0) then response.write ("开启") else response.write ("关闭") %> \| [img]标签 <%if (blog_commIMG=0) then response.write ("开启") else response.write ("关闭") %>

     <%
       response.write ("")
    end if
end sub
%>

一次发布不完，请继续第二篇第三篇
Tags - pj博客 , 评论

[评论] 给PJ博客加评论回复的简单方法

Thu, 01 Jan 1970 00:00:00 +0000

静怡家园

给PJ博客加评论回复的简单方法

<%=HtmlEncode(log_ViewArr(2,0))%>

作者:<%=log_ViewArr(5,0)%> 日期:<%=DateToStr(log_ViewArr(9,0),"Y-m-d")%>

[评论] 给PJ博客加评论回复的简单方法