<%@ 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() '检查非法链接 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%>
<%=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 %>

<%=ZC_MSG059%>:

  • <h1>
  • <h2>
  • <h3>
  • <h4>
  • <h5>
  • <h6>
  • <a>
  • <p>
  • <br>
  • <b>
  • <s>
  • <u>
  • <i>
  • <img>
  • <ul>
  • <ol>
  • <li>
  • &nbsp;
  • &lt;
  • &gt;
  • <!-->

<%=ZC_MSG037%>:

<%If CheckRights("FileSnd") Then%>

<%Else%>
<%End If%>

<%=ZC_MSG055%>:

<%=ZC_MSG016%>:

 

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