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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
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("ThemeSapper")=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">Theme 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, "theme=")+6)
  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 ThemeSapper_CheckVersionViaXML
  73. objXmlVerChk.XmlDataWeb=(getHTTPPage(Resource_URL & Install_ID & "/verchk.xml"))
  74. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/THEMES/" & Install_ID & "/Theme.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/><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 "您还可以跳过安装步骤, 直接查看已安装的主题, 并在该页面中选择应用它. <b>(推荐)</b><br/><br/>"
  109. 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> 或 <span class=""notice""><a href=""ThemeDetail.asp?theme=" & Server.URLEncode(Install_ID) & """ title=""直接查看已安装过的("& Install_ID &")主题"">[直接查看已安装过的 """& Install_ID &""" 主题]</a></span><p>"
  110. Install_Error=Install_Error+1
  111. End If
  112. End If
  113. Set objXmlVerChk=Nothing
  114. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('loading').style.display = 'none';</script>"
  115. If Install_Error<>0 Then Response.End
  116. End If
  119. Response.Write "<p id=""loading"">正在安装主题, 请稍候...  如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  120. Response.Flush
  122. '下载安装主题
  123. Response.Write "<p class=""status-box"">正在下载 ZTI 主题安装包文件... <img id=""status"" align=""absmiddle"" src=""images/loading.gif"" /><p>"
  124. Response.Flush
  126. Install_Data = getHTTPPage(Install_Url)
  127. Install_Pack = BlogPath & "THEMES/Install.zti"
  128. Install_Path = BlogPath & "THEMES/"
  130. If Install_Data = False Then
  131. Response.Write "<p><font color=""red""> × ZTI 文件下载失败.</font></p>"
  132. Install_Error=Install_Error+1
  133. Else
  134. Response.Write "<p><font color=""green""> √ ZTI 文件下载完成.</font></p>"
  135. End If
  136. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('status').style.display = 'none';</script>"
  137. Response.Flush
  139. Call SaveToFile(Install_Pack,Install_Data,"utf-8",False)
  140. Response.Write "<p><font color=""green""> √ ZTI 文件 ""THEMES/Install.zti"" 已被保存到您的空间内.</font></p>"
  141. Response.Flush
  143. Response.Write "<p class=""status-box"">ZTI 文件 ""THEMES/Install.zti"" 正在解包安装...<p>"
  144. Response.Flush
  147. Dim objXmlVerChkFile
  148. Dim objNodeList
  149. Dim objFSO
  150. Dim objStream
  151. Dim i,j
  153. Set objXmlVerChkFile = Server.CreateObject("Microsoft.XMLDOM")
  154. objXmlVerChkFile.async = False
  155. objXmlVerChkFile.ValidateOnParse=False
  156. objXmlVerChkFile.load(Install_Pack)
  158. If objXmlVerChkFile.readyState<>4 Then
  159. Response.Write "<p><font color=""red""> × ZTI 文件未准备就绪, 无法解包.</font></p>"
  160. Install_Error=Install_Error+1
  161. Else
  162. If objXmlVerChkFile.parseError.errorCode <> 0 Then
  163. Response.Write "<p><font color=""red""> × ZTI 文件有错误, 无法解包.</font></p>"
  164. Install_Error=Install_Error+1
  165. Else
  167. Dim Pack_ver,Pack_Type,Pack_For,Pack_ID,Pack_Name
  168. Pack_Ver = objXmlVerChkFile.documentElement.SelectSingleNode("//root").getAttributeNode("version").value
  169. Pack_Type = objXmlVerChkFile.documentElement.selectSingleNode("//root").getAttributeNode("type").value
  170. Pack_For = objXmlVerChkFile.documentElement.selectSingleNode("//root").getAttributeNode("for").value
  171. Pack_ID = objXmlVerChkFile.documentElement.selectSingleNode("id").text
  172. Pack_Name = objXmlVerChkFile.documentElement.selectSingleNode("name").text
  174. If (CDbl(Pack_Ver) > CDbl(XML_Pack_Ver)) Then
  175. Response.Write "<p><font color=""red""> × ZTI 文件的 XML 版本为 "& Pack_Ver &", 而你的解包器版本为 "& XML_Pack_Ver &", 请升级您的 ThemeSapper, 安装被中止.</font></p>"
  176. Install_Error=Install_Error+1
  177. ElseIf (LCase(Pack_Type) <> LCase(XML_Pack_Type)) Then
  178. Response.Write "<p><font color=""red""> × 不是 ZTI 文件, 而可能是 "& Pack_Type &", 安装被中止.</font></p>"
  179. Install_Error=Install_Error+1
  180. ElseIf (LCase(Pack_For) <> LCase(XML_Pack_Version)) Then
  181. Response.Write "<p><font color=""red""> × ZTI 文件版本不符合, 该版本可能是 "& Pack_For &", 安装被中止.</font></p>"
  182. Install_Error=Install_Error+1
  183. Else
  185. Response.Write "<blockquote><font color=""Teal"">"
  187. Set objNodeList = objXmlVerChkFile.documentElement.selectNodes("//folder/path")
  188. Set objFSO = CreateObject("Scripting.FileSystemObject")
  190. j=objNodeList.length-1
  191. For i=0 To j
  192. If objFSO.FolderExists(Install_Path & objNodeList(i).text)=False Then
  193. objFSO.CreateFolder(Install_Path & objNodeList(i).text)
  194. End If
  195. Response.Write "创建目录" & objNodeList(i).text & "<br/>"
  196. Response.Flush
  197. Next
  198. Set objFSO = Nothing
  199. Set objNodeList = Nothing
  200. Set objNodeList = objXmlVerChkFile.documentElement.selectNodes("//file/path")
  202. j=objNodeList.length-1
  203. For i=0 To j
  204. Set objStream = CreateObject("ADODB.Stream")
  205. With objStream
  206. .Type = 1
  207. .Open
  208. .Write objNodeList(i).nextSibling.nodeTypedvalue
  209. .SaveToFile Install_Path & objNodeList(i).text,2
  210. Response.Write "释放文件" & objNodeList(i).text & "<br/>"
  211. Response.Flush
  212. .Close
  213. End With
  214. Set objStream = Nothing
  215. Next
  216. Set objNodeList = Nothing
  217. Response.Write "</font></blockquote>"
  219. End If
  221. End If
  222. End If
  224. Set objXmlVerChkFile = Nothing
  226. If Err.Number<>0 Then Install_Error=Install_Error+1
  227. Err.Clear
  229. Response.Write "<p>"
  230. Install_Error = Install_Error + DeleteFile(BlogPath & "THEMES/" & "Install.zti")
  231. Response.Write "</p>"
  233. If Install_Error = 0 Then 
  234. Response.Write "<p>"
  235. Install_Error = Install_Error + DeleteFile(BlogPath & "THEMES/" & Pack_ID & "/verchk.xml")
  236. Response.Write "</p>"
  237. End If
  239. Response.Flush
  241. End If
  243. If Install_Error = 0 Then
  244. Response.Write "<p class=""status-box""> √ 主题安装完成. 如果您的浏览器没能自动跳转, 请 <a href=""ThemeDetail.asp?theme=" & Server.URLEncode(Pack_ID) & "&amp;themename=" & Server.URLEncode(Pack_Name) & """>[点击这里]</a>.</p>"
  245. Response.Write "<script>setTimeout(""self.location.href='ThemeDetail.asp?theme=" & Server.URLEncode(Pack_ID) & "&themename=" & Server.URLEncode(Pack_Name) & "'"",3000);</script>"
  246. Else
  247. Response.Write "<p class=""status-box""><font color=""red""> × 主题安装失败. "
  248. Response.Write "<a href=""javascript:window.location.reload();"" title=""返回上一个页面""><span>[点此重试]</span></a> 或 <a href=""Xml_List.asp"" title=""返回资源列表页""><span>[点此返回资源列表页]</span></a></font></p>"
  249. End If
  251. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('loading').style.display = 'none';</script>"
  252. %>
  253. </div>
  254. </div>
  255. </div>
  256. </body>
  257. </html>
  258. <%
  259. Call System_Terminate()
  261. If Err.Number<>0 Then
  262. Call ShowError(0)
  263. End If
  264. %>