<%@ 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() 'plugin node For Each sAction_Plugin_Edit_Fckeditor_Begin in Action_Plugin_Edit_Fckeditor_Begin If Not IsEmpty(sAction_Plugin_Edit_Fckeditor_Begin) Then Call Execute(sAction_Plugin_Edit_Fckeditor_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 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%>
<% Response.Write "
" & Response_Plugin_ArticleEdt_SubMenu & "
" %>
<% Call GetBlogHint() %>

<%=ZC_MSG060%>:

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

<%=ZC_MSG012%>:  <%=ZC_MSG138%>:"> (<%=ZC_MSG296%>) <%=ZC_MSG139%>»

<% End If Err.Clear %> <% If Response_Plugin_Edit_Form<>"" Then %>
<%=Response_Plugin_Edit_Form%>
<% End If %>
<%If CheckRights("FileSnd") Then%>

<%Else%> <%End If%>

<%=ZC_MSG055%>:()

;" onclick="this.style.display='none';document.getElementById('divIntro').style.display='block';AutoIntro();">

[<%=ZC_MSG310%>]

;">

<%=ZC_MSG016%>:[<%=ZC_MSG310%>]

<% If Response_Plugin_Edit_Form2<>"" Then %>
<%=Response_Plugin_Edit_Form2%>
<% End If %>

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