开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
Xml_Install.asp
资源名称：www.myworld.net.cn.rar　[点击查看]
上传用户：saigedz
上传日期：2019-10-14
资源大小：997k
文件大小：12k
源码类别：

中间件编程

开发平台：

HTML/CSS

Xml_Install.asp：源码内容
  1. <%@ CODEPAGE=65001 %>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '// 插件应用:    1.8 Pre Terminator 及以上版本, 其它版本的Z-blog未知
  5. '// 插件制作:    haphic(http://haphic.com/)
  6. '// 备    注:    插件管理插件
  7. '// 最后修改：   2008-6-28
  8. '// 最后版本:    1.2
  9. '///////////////////////////////////////////////////////////////////////////////
  10. %>
  11. <% Option Explicit %>
  12. <% On Error Resume Next %>
  13. <% Response.Charset="UTF-8" %>
  14. <% Response.Buffer=True %>
  15. <% Server.ScriptTimeout=99999999 %>
  16. <!-- #include file="../../c_option.asp" -->
  17. <!-- #include file="../../function/c_function.asp" -->
  18. <!-- #include file="../../function/c_system_lib.asp" -->
  19. <!-- #include file="../../function/c_system_base.asp" -->
  20. <!-- #include file="../../function/c_system_plugin.asp" -->
  21. <!-- #include file="c_sapper.asp" -->
  22. <!-- #include file="../p_config.asp" -->
  23. <%
  24. Call System_Initialize()
  26. '检查非法链接
  27. Call CheckReference("")
  29. '检查权限
  30. If BlogUser.Level>1 Then Call ShowError(6)
  32. If CheckPluginState("PluginSapper")=False Then Call ShowError(48)
  34. BlogTitle = "从服务器安装插件"
  35. %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  36. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="<%=ZC_BLOG_LANGUAGE%>" lang="<%=ZC_BLOG_LANGUAGE%>">
  37. <head>
  38. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  39. <meta http-equiv="Content-Language" content="<%=ZC_BLOG_LANGUAGE%>" />
  40. <meta name="robots" content="noindex,nofollow"/>
  41. <link rel="stylesheet" rev="stylesheet" href="../../CSS/admin.css" type="text/css" media="screen" />
  42. <link rel="stylesheet" rev="stylesheet" href="images/style.css" type="text/css" media="screen" />
  43. <title><%=BlogTitle%></title>
  44. </head>
  45. <body>
  46. <div id="divMain">
  47. <div class="Header">Plugin Sapper-插件安装 - 在线安装您选择的插件.</div>
  48. <%Call SapperMenu("0")%>
  49. <div id="divMain2">
  50. <div>
  51. <%
  52. Dim Install_Error
  53. Install_Error=0
  55. Dim Install_Url,Install_ID,Install_Pack,Install_Path,Install_Data
  56. Install_Url=Request.QueryString("url")
  57. Install_ID=Mid(Install_Url, InStrRev(Install_Url, "plugin=")+7)
  59. If Install_Url="" Then
  60. Response.Write "<p><font color=""red""> × 插件的下载地址为空.</font></p>"
  61. Install_Error=Install_Error+1
  63. Else
  65. '验证所要安装的插件是否存在
  66. Action=Request.QueryString("act")
  68. If Action<>"confirm" Then
  69. Response.Write "<p id=""loading"">正在验证更新, 请稍候...  如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  70. Response.Flush
  72. Set objXmlVerChk=New PluginSapper_CheckVersionViaXML
  73. objXmlVerChk.XmlDataWeb=(getHTTPPage(Resource_URL & Install_ID & "/verchk.xml"))
  74. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/PLUGIN/" & Install_ID & "/plugin.xml","utf-8"))
  76. If Action="update" Then
  77. If (LCase(objXmlVerChk.Item_ID_Web)=LCase(Install_ID)) Then
  78. Response.Write "<p class=""status-box"">您将对这个插件 <b>("& objXmlVerChk.Item_Name_Web &")</b> 进行修复或升级, 如果继续安装会将其<b>完全覆盖</b>. 请在继续前确认您已按插件说明对插件中进行必要备份.<br/><br/>"
  80. Response.Write "您当前插件版本为: <b>"& objXmlVerChk.Item_Version_Local &"</b>. 发布日期为: <b>"& objXmlVerChk.Item_PubDate_Local &"</b>. 最后修改日期为: <b>"& objXmlVerChk.Item_Modified_Local &"</b>.<br/>"
  81. Response.Write "将要安装的版本为: <b>"& objXmlVerChk.Item_Version_Web &"</b>. 发布日期为: <b>"& objXmlVerChk.Item_PubDate_Web &"</b>. 最后修改日期为: <b>"& objXmlVerChk.Item_Modified_Web &"</b><br/><br/>"
  83. If objXmlVerChk.Item_Url_Web<>Empty Then
  84. Response.Write "<a href="""& objXmlVerChk.Item_Url_Web &""" target=""_blank"" title=""查看插件的发布页面"">点此查看插件的发布信息!</a><br/><br/>"
  85. End If
  87. Response.Write objXmlVerChk.OutputResults & "<br/><br/>"
  89. Response.Write "<a href=""Xml_Install.asp?act=confirm&amp;url="& Server.URLEncode(Install_Url) &""" title=""继续安装"">[继续安装]</a> 或 <a href=""javascript:history.back(1);"" title=""返回上一页面"">[取消安装]</a><p>"
  90. Else
  91. Response.Write "<p class=""status-box"">对不起, 这个插件 <b>("& objXmlVerChk.Item_Name_Local &")</b> 不支持在线安装或升级, 请返回上一页. <br/><br/><a href=""javascript:history.back(1);"" title=""返回上一页面"">[返回上一页]</a><p>"
  92. End If
  93. Install_Error=Install_Error+1
  94. Else
  95. If (LCase(objXmlVerChk.Item_ID_Local)=LCase(Install_ID)) Then
  96. Response.Write "<p class=""status-box"">您已安装了这个插件 <b>("& objXmlVerChk.Item_Name_Local &")</b>, 如果继续安装会将其<b>完全覆盖</b>, 这可能会导致您对该插件的设置和操作及写入插件的信息等丢失, 是否继续安装?<br/><br/>"
  98. Response.Write "您当前插件版本为: <b>"& objXmlVerChk.Item_Version_Local &"</b>. 发布日期为: <b>"& objXmlVerChk.Item_PubDate_Local &"</b>. 最后修改日期为: <b>"& objXmlVerChk.Item_Modified_Local &"</b>.<br/>"
  99. Response.Write "将要安装的版本为: <b>"& objXmlVerChk.Item_Version_Web &"</b>. 发布日期为: <b>"& objXmlVerChk.Item_PubDate_Web &"</b>. 最后修改日期为: <b>"& objXmlVerChk.Item_Modified_Web &"</b><br/><br/>"
  101. If objXmlVerChk.Item_Url_Web<>Empty Then
  102. Response.Write "<a href="""& objXmlVerChk.Item_Url_Web &""" target=""_blank"" title=""查看插件的发布页面"">点此查看插件的发布信息!</a><br/><br/>"
  103. End If
  105. Response.Write objXmlVerChk.OutputResults & "<br/><br/>"
  107. Response.Write "<a href=""Xml_Install.asp?act=confirm&amp;url="& Server.URLEncode(Install_Url) &""" title=""继续安装"">[继续安装]</a> 或 <a href=""javascript:history.back(1);"" title=""返回上一页面"">[取消安装]</a><p>"
  108. Install_Error=Install_Error+1
  109. End If
  110. End If
  111. Set objXmlVerChk=Nothing
  112. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('loading').style.display = 'none';</script>"
  113. If Install_Error<>0 Then Response.End
  114. End If
  117. Response.Write "<p id=""loading"">正在安装插件, 请稍候...  如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  118. Response.Flush
  120. '下载安装插件
  121. Response.Write "<p class=""status-box"">正在下载 ZPI 插件安装包文件... <img id=""status"" align=""absmiddle"" src=""images/loading.gif"" /><p>"
  122. Response.Flush
  124. Install_Data = getHTTPPage(Install_Url)
  125. Install_Pack = BlogPath & "PLUGIN/Install.zpi"
  126. Install_Path = BlogPath & "PLUGIN/"
  128. If Install_Data = False Then
  129. Response.Write "<p><font color=""red""> × ZPI 文件下载失败.</font></p>"
  130. Install_Error=Install_Error+1
  131. Else
  132. Response.Write "<p><font color=""green""> √ ZPI 文件下载完成.</font></p>"
  133. End If
  134. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('status').style.display = 'none';</script>"
  135. Response.Flush
  137. Call SaveToFile(Install_Pack,Install_Data,"utf-8",False)
  138. Response.Write "<p><font color=""green""> √ ZPI 文件 ""PLUGIN/Install.zpi"" 已被保存到您的空间内.</font></p>"
  139. Response.Flush
  141. Response.Write "<p class=""status-box"">ZPI 文件 ""PLUGIN/Install.zpi"" 正在解包安装...<p>"
  142. Response.Flush
  145. Dim objXmlVerChkFile
  146. Dim objNodeList
  147. Dim objFSO
  148. Dim objStream
  149. Dim i,j
  151. Set objXmlVerChkFile = Server.CreateObject("Microsoft.XMLDOM")
  152. objXmlVerChkFile.async = False
  153. objXmlVerChkFile.ValidateOnParse=False
  154. objXmlVerChkFile.load(Install_Pack)
  156. If objXmlVerChkFile.readyState<>4 Then
  157. Response.Write "<p><font color=""red""> × ZPI 文件未准备就绪, 无法解包.</font></p>"
  158. Install_Error=Install_Error+1
  159. Else
  160. If objXmlVerChkFile.parseError.errorCode <> 0 Then
  161. Response.Write "<p><font color=""red""> × ZPI 文件有错误, 无法解包.</font></p>"
  162. Install_Error=Install_Error+1
  163. Else
  165. Dim Pack_ver,Pack_Type,Pack_For,Pack_ID,Pack_Name
  166. Pack_Ver = objXmlVerChkFile.documentElement.SelectSingleNode("//root").getAttributeNode("version").value
  167. Pack_Type = objXmlVerChkFile.documentElement.selectSingleNode("//root").getAttributeNode("type").value
  168. Pack_For = objXmlVerChkFile.documentElement.selectSingleNode("//root").getAttributeNode("for").value
  169. Pack_ID = objXmlVerChkFile.documentElement.selectSingleNode("id").text
  170. Pack_Name = objXmlVerChkFile.documentElement.selectSingleNode("name").text
  172. If (CDbl(Pack_Ver) > CDbl(XML_Pack_Ver)) Then
  173. Response.Write "<p><font color=""red""> × ZPI 文件的 XML 版本为 "& Pack_Ver &", 而你的解包器版本为 "& XML_Pack_Ver &", 请升级您的 PluginSapper, 安装被中止.</font></p>"
  174. Install_Error=Install_Error+1
  175. ElseIf (LCase(Pack_Type) <> LCase(XML_Pack_Type)) Then
  176. Response.Write "<p><font color=""red""> × 不是 ZPI 文件, 而可能是 "& Pack_Type &", 安装被中止.</font></p>"
  177. Install_Error=Install_Error+1
  178. ElseIf (LCase(Pack_For) <> LCase(XML_Pack_Version)) Then
  179. Response.Write "<p><font color=""red""> × ZPI 文件版本不符合, 该版本可能是 "& Pack_For &", 安装被中止.</font></p>"
  180. Install_Error=Install_Error+1
  181. Else
  183. Response.Write "<blockquote><font color=""Teal"">"
  185. Set objNodeList = objXmlVerChkFile.documentElement.selectNodes("//folder/path")
  186. Set objFSO = CreateObject("Scripting.FileSystemObject")
  188. j=objNodeList.length-1
  189. For i=0 To j
  190. If objFSO.FolderExists(Install_Path & objNodeList(i).text)=False Then
  191. objFSO.CreateFolder(Install_Path & objNodeList(i).text)
  192. End If
  193. Response.Write "创建目录" & objNodeList(i).text & "<br/>"
  194. Response.Flush
  195. Next
  196. Set objFSO = Nothing
  197. Set objNodeList = Nothing
  198. Set objNodeList = objXmlVerChkFile.documentElement.selectNodes("//file/path")
  200. j=objNodeList.length-1
  201. For i=0 To j
  202. Set objStream = CreateObject("ADODB.Stream")
  203. With objStream
  204. .Type = 1
  205. .Open
  206. .Write objNodeList(i).nextSibling.nodeTypedvalue
  207. .SaveToFile Install_Path & objNodeList(i).text,2
  208. Response.Write "释放文件" & objNodeList(i).text & "<br/>"
  209. Response.Flush
  210. .Close
  211. End With
  212. Set objStream = Nothing
  213. Next
  214. Set objNodeList = Nothing
  215. Response.Write "</font></blockquote>"
  217. End If
  219. End If
  220. End If
  222. Set objXmlVerChkFile = Nothing
  224. If Err.Number<>0 Then Install_Error=Install_Error+1
  225. Err.Clear
  227. Response.Write "<p>"
  228. Install_Error = Install_Error + DeleteFile(BlogPath & "PLUGIN/" & "Install.zpi")
  229. Response.Write "</p>"
  231. If Install_Error = 0 Then
  232. Response.Write "<p>"
  233. Install_Error = Install_Error + DeleteFile(BlogPath & "PLUGIN/" & Pack_ID & "/verchk.xml")
  234. Response.Write "</p>"
  235. End If
  237. Response.Flush
  239. End If
  241. If Install_Error = 0 Then
  242. Response.Write "<p class=""status-box""> √ 插件安装完成. 如果您的浏览器没能自动跳转, 请 <a href=""PluginDetail.asp?Plugin=" & Server.URLEncode(Pack_ID) & "&amp;Pluginname=" & Server.URLEncode(Pack_Name) & """>[点击这里]</a>.</p>"
  243. Response.Write "<script>setTimeout(""self.location.href='PluginDetail.asp?Plugin=" & Server.URLEncode(Pack_ID) & "&Pluginname=" & Server.URLEncode(Pack_Name) & "'"",3000);</script>"
  244. Else
  245. Response.Write "<p class=""status-box""><font color=""red""> × 插件安装失败. "
  246. Response.Write "<a href=""javascript:window.location.reload();"" title=""返回上一个页面""><span>[点此重试]</span></a> 或 <a href=""Xml_List.asp"" title=""返回资源列表页""><span>[点此返回资源列表页]</span></a></font></p>"
  247. End If
  249. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('loading').style.display = 'none';</script>"
  250. %>
  251. </div>
  252. </div>
  253. </div>
  254. </body>
  255. </html>
  256. <%
  257. Call System_Terminate()
  259. If Err.Number<>0 Then
  260. Call ShowError(0)
  261. End If
  262. %>