<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog 彩虹网志个人版
'// 作 者: 朱煊(zx.asd) & Sipo
'// 版权所有: RainbowSoft Studio
'// 技术支持: rainbowsoft@163.com
'// 程序名称:
'// 程序版本:
'// 单元名称: edit_comment.asp
'// 开始时间: 2006.12.30
'// 最后修改:
'// 备 注: 评论编辑页
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<%
Call System_Initialize()
'检查非法链接
Call CheckReference("")
'检查权限
If Not CheckRights("CommentEdt") Then Call ShowError(6)
Dim EditComment
Set EditComment=New TComment
If Not IsEmpty(Request.QueryString("id")) Then
If EditComment.LoadInfoByID(Request.QueryString("id"))=False Then Call ShowError(12)
End If
BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG066
%>
<%=BlogTitle%>
<%
Call System_Terminate()
If Err.Number<>0 then
Call ShowError(0)
End If
%>