<%@ CODEPAGE=65001 %> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog '// 作 者: '// 版权所有: RainbowSoft Studio '// 技术支持: '// 程序名称: '// 程序版本: '// 单元名称: '// 开始时间: '// 最后修改: '// 备 注: '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Response.Buffer=True %> <% Call System_Initialize() 'plugin node For Each sAction_Plugin_Edit_Link_Begin in Action_Plugin_Edit_Link_Begin If Not IsEmpty(sAction_Plugin_Edit_Link_Begin) Then Call Execute(sAction_Plugin_Edit_Link_Begin) Next '检查非法链接 Call CheckReference("") '检查权限 If Not CheckRights("LinkMng") Then Call ShowError(6) Dim EditArticle BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG298 %> <%=BlogTitle%>
<%=ZC_MSG298%>
<% Response.Write "
" & Response_Plugin_LinkMng_SubMenu & "
" %>
<% Call GetBlogHint() %> <% Dim tpath Response.Write "
" tpath="./INCLUDE/navbar.asp" Response.Write "

" & ZC_MSG170 & ":

" Response.Write "

" Response.Write "

" & vbCrlf Response.Write "
" Response.Write "
" tpath="./INCLUDE/link.asp" Response.Write "

" & ZC_MSG170 & ":

" Response.Write "

" Response.Write "

" & vbCrlf Response.Write "
" Response.Write "
" tpath="./INCLUDE/favorite.asp" Response.Write "

" & ZC_MSG170 & ":

" Response.Write "

" Response.Write "

" & vbCrlf Response.Write "
" Response.Write "
" tpath="./INCLUDE/misc.asp" Response.Write "

" & ZC_MSG170 & ":

" Response.Write "

" Response.Write "

" & vbCrlf Response.Write "
" Response.Write "


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