<%@ 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 %>
<%Call GetBlogHint()%>
<%=BlogTitle%>
   

· 主题ID
  主题ID为主题的目录名,且不能重复.

  />

· 主题名称

 

· 主题发布页面

 

· 主题简介

 

· 适用的最低要求 Z-Blog 版本

 

· 主题版本号

 

· 主题首发时间
  日期格式为2012-12-12

 

· 主题最后修改时间
  系统自动检查目录内文件的最后修改日期

 

· 作者名称

 

· 作者邮箱

 

· 作者网站

 

· 源作者名称 (可选)

 

· 源作者邮箱 (可选)

 

· 源作者网站 (可选)

 

· 依赖插件(以|分隔)(可选)

 

· 内置插件管理页 (可选)
  默认为main.asp

 

· 内置插件嵌入页 (可选)
  默认为include.asp

 

· 内置插件管理权限 (可选)

 

· 【高级】启用后统一电脑与手机版主题(可选)

 

· 【高级】内置插件重写系统函数列表(以|分隔)(可选)

 

· 【高级】内置插件冲突插件列表(以|分隔)(可选)

 

· 主题定价

 

· 详细说明 (可选)

 

· 侧栏配置导出 (可选)

                               

· 主题模块及内容导出 (可选)

<% Call GetFunction() Dim fun For Each fun In Functions If IsObject(fun)=True Then If fun.Source="theme_"&app_id Then If app_ishasfunctions=True Then Execute "fun.Content=app_function_"&fun.filename End If %>

名称:<%= fun.name %>      文件名:<%= fun.filename %>    类型:<%= fun.ftype %>

<% End If End If Next %>

提示:主题的缩略图是名为ScreenShot.png的300x240px大小的png文件,放在插件的目录下.


 

<% If login_pw<>"" Then Response.Write "" End If %>