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

        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