<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<%
Call System_Initialize()
'检查非法链接
Call CheckReference("")
'检查权限
If BlogUser.Level>1 Then Call ShowError(6)
If CheckPluginState("AppCentre")=False Then Call ShowError(48)
Call AppCentre_InitConfig
Dim ID
ID=Request.QueryString("id")
BlogTitle="应用中心-插件编辑"
If Request.Form.Count>0 Then
If ID="" Then
Call CreateNewPlugin(Request.Form("app_id"))
End If
Call SavePluginXmlInfo(Request.Form("app_id"))
End If
If ID="" Then
app_pubdate=FormatDateTime(Now,vbShortDate)
app_modified=FormatDateTime(Now,vbShortDate)
app_author_name=BlogUser.FirstName
app_author_email=BlogUser.EMail
app_author_url=BlogUser.HomePage
app_plugin_path="main.asp"
app_plugin_include="include.asp"
app_price=0
app_version="1.0"
Else
Call LoadPluginXmlInfo(ID)
If app_price="" Then app_price=0
app_modified=AppCentre_GetLastModifiTime(app_path)
End If
%>
<%Call GetBlogHint()%>
<%=BlogTitle%>
<%If ID="" Then Call AppCentre_SubMenu(6) Else Call AppCentre_SubMenu(-1):Response.Write "导出当前插件" End If%>
<%
If login_pw<>"" Then
Response.Write ""
End If
%>