<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog 彩虹网志个人版
'// 作 者: 朱煊(zx.asd)
'// 版权所有: RainbowSoft Studio
'// 技术支持: rainbowsoft@163.com
'// 程序名称:
'// 程序版本:
'// 单元名称: edit.asp
'// 开始时间: 2004.07.27
'// 最后修改:
'// 备 注: 编辑页
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<%
Call System_Initialize()
'plugin node
For Each sAction_Plugin_Edit_Begin in Action_Plugin_Edit_Begin
If Not IsEmpty(sAction_Plugin_Edit_Begin) Then Call Execute(sAction_Plugin_Edit_Begin)
Next
'检查非法链接
Call CheckReference("")
'检查权限
If Not CheckRights("ArticleEdt") Then Call ShowError(6)
Dim EditArticle
Set EditArticle=New TArticle
If Not IsEmpty(Request.QueryString("id")) Then
If EditArticle.LoadInfobyID(Request.QueryString("id")) Then
If EditArticle.AuthorID<>BlogUser.ID Then
If CheckRights("Root")=False Then
Call ShowError(6)
End If
End If
Else
Call ShowError(9)
End If
Else
EditArticle.AuthorID=BlogUser.ID
End If
BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG047
EditArticle.Title=TransferHTML(EditArticle.Title,"[html-japan]")
EditArticle.Content=TransferHTML(EditArticle.Content,"[html-japan]")
EditArticle.Intro=TransferHTML(EditArticle.Intro,"[html-japan]")
EditArticle.Title=TransferHTML(EditArticle.Title,"[html-format]")
EditArticle.Content=TransferHTML(EditArticle.Content,"[textarea]")
EditArticle.Intro=TransferHTML(EditArticle.Intro,"[textarea]")
%>
<%=BlogTitle%>