<%@ CODEPAGE=65001 %> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog 彩虹网志个人版 '// 作 者: 朱煊(zx.asd) '// 版权所有: RainbowSoft Studio '// 技术支持: rainbowsoft@163.com '// 程序名称: '// 程序版本: '// 单元名称: edit_fckeditor.asp '// 开始时间: 2005.04.06 '// 最后修改: '// 备 注: 编辑页 '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Response.Buffer=True %> <% Call System_Initialize() '检查非法链接 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 On Error Resume Next BlogTitle=EditArticle.HtmlUrl If Err.Number=0 Then 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]") Else GetCategory() GetUser() EditArticle.Title=EditArticle.Title EditArticle.Content=TransferHTML(EditArticle.Content,"[&]") EditArticle.Intro=TransferHTML(EditArticle.Intro,"[&]") End If Err.Clear BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG047 %> <%=BlogTitle%>
<%=ZC_MSG047%>

<%=ZC_MSG060%>:

<%=ZC_MSG012%>:

<%=ZC_MSG003%>:

<%=ZC_MSG061%>: <% Err.Clear On Error Resume Next BlogTitle=EditArticle.Istop If Err.Number=0 Then %>  <%=ZC_MSG051%> <%If EditArticle.Istop Then%> <%Else%> <%End If%> <% End If Err.Clear %>

<%=ZC_MSG062%>:---" />

<% Err.Clear On Error Resume Next BlogTitle=EditArticle.Tag If Err.Number=0 Then %>

<%=ZC_MSG138%>:"> <%=ZC_MSG139%>>>

<% End If Err.Clear %> <% Err.Clear On Error Resume Next BlogTitle=EditArticle.Alias If Err.Number=0 Then %>

<%=ZC_MSG147%>:.<%=ZC_STATIC_TYPE%> <% End If Err.Clear %> <%If CheckRights("FileSnd") Then%>

<%Else%>
<%End If%>

<%=ZC_MSG055%>:

<%=ZC_MSG016%>:

 

<% Call System_Terminate() If Err.Number<>0 then Call ShowError(0) End If %>