<%@ 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 LoadPluginXmlInfo("AppCentre") Call AppCentre_InitConfig If Request.QueryString("act")="save" Then enable_develop=Request.Form("app_enabledevelop") disable_check=Request.Form("app_disablecheck") check_beta=Request.Form("app_checkbeta") app_config.Write "EnableDevelop",enable_develop app_config.Write "DisableCheck",disable_check app_config.Write "CheckBeta",check_beta app_config.Save Call SetBlogHint_Custom("设置成功.") ElseIf Request.QueryString("act")="login" Then Dim strSendTB,s Dim objPing Set objPing = Server.CreateObject("MSXML2.ServerXMLHTTP") objPing.open "POST",APPCENTRE_URL & "zb_users/plugin/appcentre_server/vaild.asp",False objPing.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objPing.SetRequestHeader "Cookie","username="&vbsescape(Request.Form("app_username"))&"; password="&vbsescape(MD5(Request.Form("app_password"))) objPing.send "" s=objPing.responseText Set objPing = Nothing app_config.Write "DevelopUserName",Request.Form("app_username") app_config.Write "DevelopPassWord",s app_config.Save If s<>"" Then SetBlogHint_Custom("开发者您好,欢迎登陆到APP应用中心!") Response.Redirect "server.asp" Else SetBlogHint_Custom("用户名或密码输入错误!") Response.Redirect "setting.asp" End If ElseIf Request.QueryString("act")="logout" Then app_config.Write "DevelopUserName","" app_config.Write "DevelopPassWord","" app_config.Save Response.Redirect "setting.asp" End If %> <% BlogTitle="应用中心-设置与开发者登录" %>

<%Call GetBlogHint()%>

<%=BlogTitle%>

<%AppCentre_SubMenu(1)%>

设置
· 启用开发者模式启用开发者模式可以修改应用信息、导出应用和远程提交应用
· 禁用自动检查更新禁用自动检查后,需要手动检查应用更新和系统更新
· 检查Beta版程序若打开，则系统将检查最新测试版的Z-Blog更新

开发者登录

<% If login_pw<>"" Then %> <% Else %>

开发者请填写您在"APP应用中心"的用户名和密码并点登陆
用户名:
密码:

<% End If %>