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

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