%@ 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 'Response.Write Request.Form("app_sidebars") 'Response.End If ID="" Then Call CreateNewTheme(Request.Form("app_id")) End If Call SaveThemeXmlInfo(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_price=0 app_version="1.0" Else Call LoadThemeXmlInfo(ID) If app_price="" Then app_price=0 app_modified=AppCentre_GetLastModifiTime(app_path) End If %>