<%@ 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)
BlogTitle="应用中心"
%>
<%Call GetBlogHint()%>
<%=BlogTitle%>
<%Call AppCentre_SubMenu(2)%>
<%
Select Case Request.QueryString("act")
Case "list","":ExportPluginList
' Case "install":ExportPluginInstall
Case "detail":ExportPluginDetail
End Select
%>