评论回复(免修改数据库) For PJblog3

[Reply_JieLiao]回复内容[Reply_JieLiao]管理员名称[Reply_JieLiao]回复时间

             ShowComm = ShowComm&"<a href=""member.asp?action=view&memName="&Server.URLEncode(blog_CommAuthor)&"""><strong>"&blog_CommAuthor&"</strong></a>"

        '底部的翻页
       ShowComm = ShowComm&"<div class=""pageContent"">"&MultiPage(comm_Num,blogcommpage,CurPage,Url_Add,aName,"float:right" ,BaseUrl,aEvent)&"</div>"

            'EDIT BY JieLiao
            'ShowComm = ShowComm&"<span class=""commentinfo"">["&DateToStr(commArr(3,Pcount),"Y-m-d H:I A")&"<span class=""ownerClassComment""> | <a href=""blogcomm.asp?action=del&commID="&blog_CommID&""" onclick=""return delCommentConfirm()""><img src=""images/del1.gif"" alt=""del"" border=""0""/></a></span>]</span>"

            
            ShowComm = ShowComm&"<span class=""commentinfo"">["&DateToStr(commArr(3,Pcount),"Y-m-d H:I A")&"</span>"
        If stat_Admin then
            Dim urlLink
            if blog_postFile = 2 then
                urlLink = "article/"&LogID&".htm"
            else
                urlLink = "?id="&LogID
            end if
            ShowComm = ShowComm&"<span class=""ownerClassComment"">| <a href="""&urlLink&"#MsgReplyContent"" onclick=""document.frm1.commID.value="&blog_CommID&";document.frm1.commID.value="&blog_CommID&";MsgReplyContent.style.display='';""><img src=""Plugins/guestbook/reply.gif"" alt=""回复"" border=""0"" style=""margin-bottom:-3px""/></a> | <a href=""blogcomm.asp?action=del&commID="&blog_CommID&""" onclick=""return delCommentConfirm()""><img src=""images/del1.gif"" alt=""del"" border=""0""/></a>]</span>"
        End If
            'EDIT BY JieLiao
        
            '评论内容
            'EDIT BY JieLiao
            ShowComm = ShowComm&"</div><div class=""commentcontent"" id=""commcontent_"&blog_CommID&""">"
            Dim Comm_content
            Comm_content = Split(blog_CommContent,"[Reply_JieLiao]")   '用[Reply_JieLiao]作分隔符,取消原来的增加字段.
            If stat_Admin or commArr(2,Pcount) = memName Then
                ShowComm = ShowComm&UBBCode(HtmlEncode(Comm_content(0)),commArr(4,Pcount),blog_commUBB,blog_commIMG,commArr(7,Pcount),commArr(9,Pcount))
            ElseIf Comm_content(1) = 1 Then
                ShowComm = ShowComm&"此评论管理员可见"
            Else
                ShowComm = ShowComm&UBBCode(HtmlEncode(Comm_content(0)),commArr(4,Pcount),blog_commUBB,blog_commIMG,commArr(7,Pcount),commArr(9,Pcount))
            End If
            ShowComm = ShowComm&"</div>"
            If UBound(Comm_content)>1 Then '显示回复,可根据自己需要调整显示方式.
                ShowComm=ShowComm&"<fieldset><legend><img src=""images/reply.gif"" border=""0"" style=""margin:0px 3px -3px 0px""/><a href=""member.asp?action=view&memName="&Comm_content(3)&"""><b>"&Comm_content(3)&"</b></a> <span class=""commentinfo"">["&DateToStr(Comm_content(4),"Y-m-d H:I:S")&"]</span></legend><div class=""commentcontent"">"&UBBCode(HtmlEncode(Comm_content(2)),commArr(4,Pcount),blog_commUBB,blog_commIMG,commArr(7,Pcount),commArr(9,Pcount))&"</div></fieldset>"
            End If
            Pcount = Pcount + 1
            ShowComm=ShowComm&"</div>"
            'EDIT BY JieLiao
        Loop

        Call showCommentPost(logID,DisComment)

'================================
' 输出评论回复框  EDIT BY JieLiao
'================================
%>
<div id="MsgReplyContent" name="MsgReplyContent" style="width:94%; display:none;"><div id="MsgHead">发表回复</div><div id="MsgBody">
<%
        If Not stat_Admin Then
            response.Write ("你没有权限发表回复！")
            response.Write ("</div></div>")
        Else
        %>
              <form name="frm1" id="frm1" action="blogcomm.asp" method="post" onsubmit="return checkCommentPost()" style="margin:0px;">      
                      <input name="commID" id="commID" type="hidden"/>
              <table width="100%" cellpadding="0" cellspacing="0">      
              <tr><td align="right" width="70" valign="top"><strong>内　容:</strong><br/>
              </td><td style="padding:2px;"><label>
              <textarea name="Comm_replycontent" id="Comm_replycontent" cols="45" rows="5">
<%
            Comm_content = Split(blog_CommContent,"[Reply_JieLiao]")   '用[Reply_JieLiao]作分隔符,取消原来的增加字段.
If UBound(Comm_content)>1 Then '显示回复,可根据自己需要调整显示方式.
    response.write Comm_content(2)
end if
%>
</textarea>
              </label></td>
              </tr>
                  <tr>
                    <td colspan="2" align="center" style="padding:3px;">
                      <input name="logID" type="hidden" value="<%=LogID%>"/>
                      <input name="action" type="hidden" value="postReply"/>
                      <input name="submit2" type="submit" class="userbutton" value="发表回复" accesskey="S"/>
                      <input name="button" type="reset" class="userbutton" value="重写"/></td>
                  </tr>
              </table>
              </form>
              </div></div>
    <%
        End If
'EDIT BY JieLiao

                     <label for="label7"><input name="log_DisKey" type="checkbox" id="label7" value="1" />禁止自动转换关键字</label>

                     <label for="label8"><input name="Comm_IsLegal" type="checkbox" id="label8" value="1" />
                     是否管理员可见</label>

Dim password

Dim password,Comm_IsLegal

<%
Else
    response.Write ("非法操作!!")
End If

<%
ElseIf Request.Form("action") = "postReply" Then
    Dim PostReplyBComm
    PostReplyBComm = postReplycomm
%>
   <div style="text-align:center;">
    <div id="MsgContent" style="width:300px">
      <div id="MsgHead"><%=PostReplyBComm(0)%></div>
      <div id="MsgBody">
         <div class="<%=PostReplyBComm(2)%>"></div>
         <div class="MessageText"><%=PostReplyBComm(1)%></div>
      </div>
    </div>
  </div>

%>

'====================== 评论回复发表函数 ===========================================================

Function postReplycomm
    Dim post_logID, post_Message, post_commID
    Dim ReInfo
    ReInfo = Array("错误信息", "", "MessageIcon")
    post_logID = CLng(CheckStr(request.Form("logID")))
    post_commID = CLng(CheckStr(request.Form("commID")))
    post_Message = CheckStr(request.Form("Comm_replycontent"))

    If Not stat_Admin Then
        ReInfo(0) = "评论回复错误信息"
        ReInfo(1) = "<b>你没有权限回复评论</b><br/><a href=""javascript:history.go(-1);"">单击返回</a>"
        ReInfo(2) = "ErrorIcon"
        postReplycomm = ReInfo
        Exit Function
    End If

    If Len(post_Message)<1 Then
        ReInfo(0) = "评论回复错误信息"
        ReInfo(1) = "<b>不允许回复空评论</b><br/><a href=""javascript:history.go(-1);"">单击返回</a>"
        ReInfo(2) = "ErrorIcon"
        postReplycomm = ReInfo
        Exit Function
    End If
    '修改数据
    Dim Comm_content1,Comm_Reply
    Set Comm_Reply = Conn.Execute("select comm_Content from blog_Comment where comm_ID="&post_commID&"")
    If Not Comm_Reply.EOF Then
        Comm_content1 = Split(Comm_Reply("comm_Content"),"[Reply_JieLiao]")   '用[Reply_JieLiao]作分隔符,取消原来的增加字段.
    Else
        ReInfo(0) = "评论回复错误信息"
        ReInfo(1) = "<b>该评论不存在或者已经被删除!</b><br/><a href=""javascript:history.go(-1);"">单击返回</a>"
        ReInfo(2) = "ErrorIcon"
        postReplycomm = ReInfo
        Exit Function
    End If
        conn.Execute("update blog_Comment set comm_Content='"&Comm_content1(0)&"'&'[Reply_JieLiao]'&'"&Comm_content1(1)&"'&'[Reply_JieLiao]'&'"&post_Message&"'&'[Reply_JieLiao]'&'"&memName&"'&'[Reply_JieLiao]'&'"&now()&"' where comm_ID="&post_commID&"")

    getInfo(2)
    ReInfo(0) = "评论回复成功"
    ReInfo(1) = "<b>你成功地回复了该评论</b><br/><a href=""default.asp?id="&post_logID&"#"&post_commID&""">单击返回该日志</a>"
    ReInfo(2) = "MessageIcon"
    Session("GetCode") = Empty
    Session(CookieName&"_LastDo") = "AddComment"
    postReplycomm = ReInfo
    PostArticle post_logID, False
    call newEtag
End Function

    post_DisKEY = request.Form("log_DisKey")

    Comm_IsLegal = request.Form("Comm_IsLegal")

    If post_DisKEY = 1 Then post_DisKEY = 0 Else post_DisKEY = 1

    '是否管理员可见
    If Comm_IsLegal = 1 Then Comm_IsLegal = 1 Else Comm_IsLegal = 0

    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))

    AddComm = Array(Array("blog_ID", post_logID), Array("comm_Content", post_Message&"[Reply_JieLiao]"&Comm_IsLegal), 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))

                      <input name="log_DisKey" type="checkbox" id="label7" value="1" />
                      禁止自动转换关键字</label>

                    <label for="label8"><input name="Comm_IsLegal" type="checkbox" id="label8" value="1" />是否管理员可见</label>

    If action<>2 Then
        Dim Comment_Item_Len
        If UBound(blog_Comment, 1) = 0 Then
            NewComment = ""
            Exit Function
        End If
        Comment_Item_Len = UBound(blog_Comment, 2)
        dim url
        For i = 0 To Comment_Item_Len
            If blog_postFile = 2 Then
                   url = SiteURL&"article/"&blog_Comment(1, i)&".htm#comm_"&blog_Comment(0, i)
              else
                   url = SiteURL&"article.asp?id="&blog_Comment(1, i)&"#comm_"&blog_Comment(0, i)
            end if
            NewComment = NewComment&"<a class=""sideA"" href="""&url&""" title="""&blog_Comment(2, i)&" 于 "&blog_Comment(4, i)&" 发表评论"&Chr(10)&CCEncode(CutStr(DelQuote(blog_Comment(3, i)), 100))&""">"&CCEncode(CutStr(DelQuote(blog_Comment(3, i)), 25))&"</a>"
      
        Next

        For i = 0 To Comment_Item_Len

        Next

Dim Comm_content

            Comm_content = Split(blog_Comment(3, i),"[Reply_JieLiao]")   '用[Reply_JieLiao]作分隔符,取消原来的增加字段.
            
            If blog_postFile = 2 Then
                   url = SiteURL&"article/"&blog_Comment(1, i)&".htm#comm_"&blog_Comment(0, i)
              else
                   url = SiteURL&"article.asp?id="&blog_Comment(1, i)&"#comm_"&blog_Comment(0, i)
            end if
            If Comm_content(1)=1 then
                NewComment = NewComment&"<a class=""sideA"" href="""&url&""" title="""&blog_Comment(2, i)&" 于 "&blog_Comment(4, i)&" 发表评论"&Chr(10)&CCEncode(CutStr(DelQuote(Comm_content(0)), 100))&""">博主可见</a>"
            Else
                NewComment = NewComment&"<a class=""sideA"" href="""&url&""" title="""&blog_Comment(2, i)&" 于 "&blog_Comment(4, i)&" 发表评论"&Chr(10)&CCEncode(CutStr(DelQuote(Comm_content(0)), 100))&""">"&CCEncode(CutStr(DelQuote(Comm_content(0)), 25))&"</a>"
            End If