<%@ 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 %> <% BlogTitle="应用中心" Dim intHighlight intHighlight=0 If Request.QueryString("action")="update" Then intHighlight=3 Dim objXmlHttp,strURL,bolPost,str,bolIsBinary,strList,bolFrame,strWrite strWrite="" bolFrame=True bolPost=IIf(Request.ServerVariables("REQUEST_METHOD")="POST",True,False) Set objXmlHttp=Server.CreateObject("MSXML2.ServerXMLHTTP") Select Case Request.QueryString("action") Case "view" strURL="view.asp?" intHighlight=-1 Case "catalog" strURL="catalog.asp?" If Request.QueryString("cate")=2 Then intHighlight=2 If Request.QueryString("cate")=1 Then intHighlight=3 Case "app" strURL="app.asp?" Case "vaildcode" Response.ContentType="image/gif" strURL="zb_system/function/c_validcode.asp?" bolIsBinary=True bolFrame=False Case "cmd" strURL="zb_system/cmd.asp?" bolFrame=False Case "install" Response.Redirect "app_download.asp?url=" & Server.URLEncode(Request.QueryString("path")) Case "update" If Request.QueryString("silent")="true" Then If disable_check="True" Then Response.Write "void" Response.End End If End If intHighlight=4 Call ReCheck strList=CheckXML() appcentre_updatelist=strList If Replace(strList,",","")<>"" Then strURL="app.asp?act=checkupdate&updatelist="&Server.URLEncode(strList)&"&" Else strURL="?" End If If Request.QueryString("silent")="true" Then If CLng(appcentre_blog_last)> BlogVersion Then Response.Write "$('.divHeader').before('

Z-Blog有新版本!请立刻升级!!! 升级

');" End If If Replace(appcentre_updatelist,",","")<>"" Then Response.Write "$('.divHeader').before('

发现"& UBound(Split(appcentre_updatelist,",")) &"个应用更新! 更新

');" End If Response.End End If If Replace(strList,",","")="" Then Call SetBlogHint_Custom("您没有可以更新的应用.") Response.Redirect "server.asp" End If Case Else strURL="?" End Select 'On Error Resume Next Randomize strURL=strURL & Request.QueryString & "&rnd="&Rnd strURL=APPCENTRE_URL & strURL objXmlHttp.Open Request.ServerVariables("REQUEST_METHOD"),strURL If bolPost Then objXmlhttp.SetRequestHeader "Content-Type","application/x-www-form-urlencoded" objXmlhttp.SetRequestHeader "User-Agent","AppCentre/"&app_version & " ZBlog/"&BlogVersion&" "&Request.ServerVariables("HTTP_USER_AGENT") &"" objXmlhttp.SetRequestHeader "Cookie","username="&vbsescape(login_un)&"; password="&vbsescape(login_pw) '为一些有趣的活动的防作弊 objXmlhttp.SetRequestHeader "Website",ZC_BLOG_HOST objXmlhttp.SetRequestHeader "AppCentre",app_version objXmlhttp.SetRequestHeader "ZBlog",BlogVersion objXmlhttp.SetRequestHeader "ClientIP",GetReallyIP() objXmlHttp.Send Request.Form.Item If objXmlHttp.ReadyState=4 Then If objXmlhttp.Status=200 Then If bolIsBinary=False Then Dim strResponse strResponse=objXmlhttp.ResponseText strResponse=Replace(strResponse,"$bloghost$",BlogHost) strResponse=Replace(strResponse,"$pluginlist$",ZC_USING_PLUGIN_LIST) strResponse=Replace(strResponse,"$zbversion$",BlogVersion) strResponse=Replace(strResponse,"$appcentre$",app_version) strResponse=Replace(strResponse,"$username_$",login_un) strResponse=Replace(strResponse,"catalog.asp?","server.asp?action=catalog&") strResponse=Replace(strResponse,APPCENTRE_URL&"app.asp?","server.asp?action=app&") strResponse=Replace(strResponse,APPCENTRE_URL&"app.asp","server.asp?action=app&") strResponse=Replace(strResponse,APPCENTRE_URL&"view.asp?","server.asp?action=view&") strResponse=Replace(strResponse,APPCENTRE_URL&"""","server.asp""") strResponse=Replace(strResponse,APPCENTRE_URL&"zb_system/function/c_validcode.asp?name=commentvalid","server.asp?action=vaildcode") strResponse=Replace(strResponse,APPCENTRE_URL&"zb_system/cmd.asp?","server.asp?action=cmd&") Dim objRegExp Set objRegExp=New RegExp 'objRegExp.Pattern="

([\d\D]+?)

" 'objRegExp.IgnoreCase=True 'strResponse=objRegExp.Replace(strResponse,"

") objRegExp.Pattern="" objRegExp.Global=True strResponse=objRegExp.Replace(strResponse,"$1") objRegExp.Pattern="([\d\D]+?)" strResponse=objRegExp.Replace(strResponse,"") Else Response.BinaryWrite objXmlHttp.ResponseBody End If Else ShowErr True,"" End If 'If objXmlHttp.GetRequestHeader("app_zbver") Else ShowErr True,"" End If If Err.Number<>0 Then ShowErr True,"" Function AddHtml(html,stat) Select Case stat Case 0 strResponse=Replace(strResponse,"",html&"") Case 1 strResponse=Replace(strResponse,"",html&"") Case 2 strResponse=Replace(strResponse,"",""&html) Case 3 strResponse=Replace(strResponse,"",""&html) End Select End Function %> <% If bolFrame Then%> <% Dim aryTest aryTest=Split(Split(strResponse,"")(0),"") Response.Write aryTest(Ubound(aryTest)) %>

<%Call GetBlogHint()%>

应用中心

<%AppCentre_SubMenu(intHighlight)%>

<%=strWrite%> <% End If aryTest=Split(Split(strResponse,"")(0),"") Response.Write aryTest(Ubound(aryTest)) Function ShowErr(isHttp,str) %> <%If isHttp Then%>

处理<%=strURL%>(method:<%=Request.ServerVariables("REQUEST_METHOD")%>)时出错：

ASP错误信息：<%=IIf(Err.Number=0,"无",Err.Number&"("&Err.Description&")")%>

HTTP状态码：<%If objXmlhttp.readyState<4 Then Response.Write "未发送请求" Else Response.Write objXmlhttp.status%>

可能的原因有：

您的服务器不允许通过HTTP协议连接到：<%=APPCENTRE_URL%>；
您进行了一个错误的请求；
服务器暂时无法连接，可能是遭到攻击或者检修中。

请点击这里刷新重试，或者到Z-Blogger论坛发帖询问。

<%Else%> <%=str%> <%End If%> <% Response.End End Function %> <%If bolFrame Then%>

<% If login_pw<>"" Then Response.Write "" End If %> <%End If Function GetReallyIP() Dim strIP strIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR") If strIP="" Or InStr(strIP,"unknown") Then strIP=Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(strIP,",") Then strIP=Split(strIP,",")(0) ElseIf InStr(strIP,";") Then strIP=Split(strIP,";")(0) End If GetReallyIP=Trim(strIP) End Function 'for 2.0 users %>