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

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

中间件编程

开发平台：

HTML/CSS

Xml_ChkVer.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. Action=Request.QueryString("act")
  36. BlogTitle="Theme Sapper"
  38. %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  39. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="<%=ZC_BLOG_LANGUAGE%>" lang="<%=ZC_BLOG_LANGUAGE%>">
  40. <head>
  41. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  42. <meta http-equiv="Content-Language" content="<%=ZC_BLOG_LANGUAGE%>" />
  43. <meta name="robots" content="noindex,nofollow"/>
  44. <link rel="stylesheet" rev="stylesheet" href="../../CSS/admin.css" type="text/css" media="screen" />
  45. <link rel="stylesheet" rev="stylesheet" href="images/style.css" type="text/css" media="screen" />
  46. <title><%=BlogTitle%></title>
  47. </head>
  48. <body>
  49. <div id="divMain">
  50. <div class="Header">Theme Sapper - 查看主题的可用更新. <a href="help.asp#checkupdate" title="查看主题的可用更新帮助">[页面帮助]</a></div>
  51. <%Call SapperMenu("5")%>
  52. <div id="divMain2">
  53. <%Call GetBlogHint()%>
  54. <div>
  55. <%
  56. Dim fso, f, f1, fc, s, t, i, n, m
  58. Set fso = CreateObject("Scripting.FileSystemObject")
  59. Set f = fso.GetFolder(BlogPath & "/THEMES/")
  60. Set fc = f.SubFolders
  62. If Action="" Then
  63. Response.Write "<p id=""loading"">正在载入页面, 请稍候... 如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  64. Response.Flush
  66. Response.Write "<p class=""status-box"" id=""found"" style=""display:none;"">!! 以下列出了您需要更新的主题:</p>"
  67. Response.Write "<p class=""status-box"" id=""notfound"" style=""display:none;"">!! 暂时没有找到需要更新的主题.</p>"
  68. Response.Flush
  70. m=False
  72. For Each f1 in fc
  74. Set objXmlVerChk=New ThemeSapper_CheckVersionViaXML
  76. If fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "Theme.xml") Then
  78. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/THEMES/" & f1.name & "/Theme.xml","utf-8"))
  80. If fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "verchk.xml") Then
  82. objXmlVerChk.XmlDataWeb=(LoadFromFile(BlogPath & "/THEMES/" & f1.name & "/" & "verchk.xml","utf-8"))
  84. Response.Write "<p class=""download-box"">"
  85. Response.Write "主题: <b>"& objXmlVerChk.Item_Name_Local &"</b> <b class=""notice"">发现可用的新版本!</b><br/><br/>"
  87. Response.Write "当前主题版本为: <b>"& objXmlVerChk.Item_Version_Local &"</b>. 发布日期为: <b>"& objXmlVerChk.Item_PubDate_Local &"</b>. 最后修改日期为: <b>"& objXmlVerChk.Item_Modified_Local &"</b>.<br/>"
  88. Response.Write "最新可用版本为: <b>"& objXmlVerChk.Item_Version_Web &"</b>. 发布日期为: <b>"& objXmlVerChk.Item_PubDate_Web &"</b>. 最后修改日期为: <b>"& objXmlVerChk.Item_Modified_Web &"</b><br/><br/>"
  90. If objXmlVerChk.Item_Url_Web<>Empty Then
  91. Response.Write "<a href="""& objXmlVerChk.Item_Url_Web &""" target=""_blank"" title=""查看主题的发布页面"">[点此查看主题的发布信息!]</a> "
  92. End If
  94. Response.Write "<a href=""Xml_Install.asp?act=confirm&amp;url=" & Server.URLEncode(Update_URL & f1.name) & """ title=""升级此主题"">[升级此主题]</a>"
  96. Response.Write "</p>"
  97. Response.Flush
  99. m=True
  101. End If
  103. End If
  105. Set objXmlVerChk=Nothing
  107. Next
  109. If m Then
  110. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('found').style.display = 'block';}catch(e){};</script>"
  111. Else
  112. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('notfound').style.display = 'block';}catch(e){};</script>"
  113. End If
  115. Response.Write "<form name=""edit"" method=""get"" action=""#"" class=""status-box"">"
  116. Response.Write "<p><input onclick=""window.scrollTo(0,0);"" type=""button"" class=""button"" value=""TOP"" title=""返回页面顶部"" /> <input onclick=""self.location.href='Xml_ChkVer.asp?act=check&n=0';"" type=""button"" class=""button"" value=""查找更新"" title=""查找主题的可用更新"" /> <input onclick=""self.location.href='Xml_ChkVer.asp?act=unsupport';"" type=""button"" class=""button"" value=""列出不支持在线更新的主题"" title=""列出不支持在线更新的插件"" /> <input onclick=""self.location.href='Xml_ChkVer.asp?act=clear';"" type=""button"" class=""button"" value=""清除更新提示"" title=""清除更新提示"" /></p>"
  117. Response.Write "</form>"
  119. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('loading').style.display = 'none';}catch(e){};</script>"
  120. End If
  123. If Action="unsupport" Then
  124. Response.Write "<p id=""loading"">正在载入页面, 请稍候... 如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  125. Response.Flush
  127. Response.Write "<p class=""status-box"" id=""found"" style=""display:none;"">!! 以下列出了不支持在线更新的主题:</p>"
  128. Response.Write "<p class=""status-box"" id=""notfound"" style=""display:none;"">!! 暂时没发现不支持在线更新的主题.</p>"
  129. Response.Flush
  131. m=False
  133. For Each f1 in fc
  135. Set objXmlVerChk=New ThemeSapper_CheckVersionViaXML
  137. If fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "Theme.xml") Then
  139. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/THEMES/" & f1.name & "/Theme.xml","utf-8"))
  141. If fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "error.log") Then
  143. Response.Write "<p class=""download-box"">"
  144. Response.Write "主题: <b>"& objXmlVerChk.Item_Name_Local &"</b> <b class=""somehow"">可能不支持在线更新!</b><br/><br/>"
  146. Response.Write "当前主题版本为: <b>"& objXmlVerChk.Item_Version_Local &"</b>. 发布日期为: <b>"& objXmlVerChk.Item_PubDate_Local &"</b>. 最后修改日期为: <b>"& objXmlVerChk.Item_Modified_Local &"</b>.<br/><br/>"
  148. If objXmlVerChk.Item_Url_Local<>Empty Then
  149. Response.Write "<a href="""& objXmlVerChk.Item_Url_Local &""" target=""_blank"" title=""查看主题的发布页面"">[点此查看主题的发布信息!]</a> "
  150. End If
  152. Response.Write "</p>"
  153. Response.Flush
  155. m=True
  157. End If
  159. End If
  161. Set objXmlVerChk=Nothing
  163. Next
  165. If m Then
  166. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('found').style.display = 'block';}catch(e){};</script>"
  167. Else
  168. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('notfound').style.display = 'block';}catch(e){};</script>"
  169. End If
  171. Response.Write "<form name=""edit"" method=""get"" action=""#"" class=""status-box"">"
  172. Response.Write "<p><input onclick=""window.scrollTo(0,0);"" type=""button"" class=""button"" value=""TOP"" title=""返回页面顶部"" /> <input onclick=""self.location.href='Xml_ChkVer.asp?act=check&n=0';"" type=""button"" class=""button"" value=""查找更新"" title=""查找主题的可用更新"" /> <input onclick=""self.location.href='Xml_ChkVer.asp?act=unsupport';"" type=""button"" class=""button"" value=""列出不支持在线更新的主题"" title=""列出不支持在线更新的插件"" /> <input onclick=""self.location.href='Xml_ChkVer.asp?act=clear';"" type=""button"" class=""button"" value=""清除更新提示"" title=""清除更新提示"" /></p>"
  173. Response.Write "</form>"
  175. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('loading').style.display = 'none';}catch(e){};</script>"
  176. End If
  179. If Action="clear" Then
  180. Response.Write "<p id=""loading"">正在载入页面, 请稍候... 如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  181. Response.Flush
  183. Response.Write "<p class=""status-box"" id=""found"" style=""display:none;"">!! 已清除以下主题的更新提示:</p>"
  184. Response.Write "<p class=""status-box"" id=""notfound"" style=""display:none;"">!! 没有更新提示可清除.</p>"
  185. Response.Flush
  187. m=False
  189. For Each f1 in fc
  191. Set objXmlVerChk=New ThemeSapper_CheckVersionViaXML
  193. If fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "Theme.xml") Then
  195. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/THEMES/" & f1.name & "/Theme.xml","utf-8"))
  197. If fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "verchk.xml") Then
  199. fso.DeleteFile(BlogPath & "/THEMES/" & f1.name & "/" & "verchk.xml")
  201. Response.Write "<p class=""status-box"">"
  202. Response.Write "主题: <b>"& objXmlVerChk.Item_Name_Local &"</b> <b class=""allright"">的新版提示已清除!</b>"
  203. Response.Write "</p>"
  204. Response.Flush
  206. m=True
  208. End If
  210. If fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "error.log") Then
  212. fso.DeleteFile(BlogPath & "/THEMES/" & f1.name & "/" & "error.log")
  214. Response.Write "<p class=""status-box"">"
  215. Response.Write "主题: <b>"& objXmlVerChk.Item_Name_Local &"</b> <b class=""allright"">的不支持更新提示已清除!</b>"
  216. Response.Write "</p>"
  217. Response.Flush
  219. m=True
  221. End If
  223. End If
  225. Set objXmlVerChk=Nothing
  227. Next
  229. If m Then
  230. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('found').style.display = 'block';}catch(e){};</script>"
  231. Else
  232. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('notfound').style.display = 'block';}catch(e){};</script>"
  233. End If
  235. Response.Write "<form name=""edit"" method=""get"" action=""#"" class=""status-box"">"
  236. Response.Write "<p><input onclick=""window.scrollTo(0,0);"" type=""button"" class=""button"" value=""TOP"" title=""返回页面顶部"" /> <input onclick=""self.location.href='Xml_ChkVer.asp?act=check&n=0';"" type=""button"" class=""button"" value=""查找更新"" title=""查找主题的可用更新"" /> <input onclick=""self.location.href='Xml_ChkVer.asp?act=unsupport';"" type=""button"" class=""button"" value=""列出不支持在线更新的主题"" title=""列出不支持在线更新的插件"" /> <input onclick=""self.location.href='Xml_ChkVer.asp?act=clear';"" type=""button"" class=""button"" value=""清除更新提示"" title=""清除更新提示"" /></p>"
  237. Response.Write "</form>"
  239. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('loading').style.display = 'none';}catch(e){};</script>"
  240. End If
  243. If Action="check" Then
  244. Response.Write "<p id=""loading2"">正在查找更新, 请稍候... 如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  245. Response.Flush
  247. Response.Write "<p class=""status-box"">!! 查找更新的过程会消耗一些时间, 时间长短会因您安装的主题数量而异, 请耐心等候...</p>"
  248. Response.Flush
  250. i=0
  251. n=Request.QueryString("n")
  252. n=Int(n)
  253. m=True
  255. For Each f1 in fc
  257. Set objXmlVerChk=New ThemeSapper_CheckVersionViaXML
  259. If fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "Theme.xml") Then
  261. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/THEMES/" & f1.name & "/Theme.xml","utf-8"))
  263. If i>=n Then
  264. Response.Write "<p class=""status-box"">>>> 主题: " & objXmlVerChk.Item_Name_Local & " 正在检查中...</p>"
  265. Response.Flush
  266. Else
  267. If fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "verchk.xml") Then
  268. t="<b class=""notice"">发现新版本!</b>"
  269. ElseIf fso.FileExists(BlogPath & "/THEMES/" & f1.name & "/" & "error.log") Then
  270. t="<span class=""somehow"">该主题不支持在线更新.</span>"
  271. Else
  272. t="<span class=""allright"">未发现新版本.</span>"
  273. End If
  275. Response.Write "<p class=""status-box"">>>> 主题: " & objXmlVerChk.Item_Name_Local & " " & t & "</p>"
  276. Response.Flush
  277. End If
  279. If i>=n Then
  280. s=getHTTPPage(Resource_URL & f1.name & "/verchk.xml")
  282. objXmlVerChk.XmlDataWeb=(s)
  284. If objXmlVerChk.UpdateNeeded Then
  286. t="<b>" & objXmlVerChk.Item_Name_Local & "</b> 检查完毕, <b class=""notice"">发现新版本!</b>"
  288. ElseIf s=False Then
  290. t="<b>" & objXmlVerChk.Item_Name_Local & "</b> 检查完毕, <span class=""somehow"">该主题不支持在线更新.</span>"
  292. Else
  294. t="<b>" & objXmlVerChk.Item_Name_Local & "</b> 检查完毕, <span class=""allright"">未发现新版本.</span>"
  296. End If
  298. i=i+1
  300. Response.Write "<p class=""download-box"">" & t & "</p>"
  301. Response.Write "<script>setTimeout(""self.location.href='Xml_ChkVer.asp?act=check&n=" & i & "'"",3000);</script>"
  302. Response.Flush
  304. Call SaveToFile(BlogPath & "/PLUGIN/ThemeSapper/Export/log.txt",f1.name,"utf-8",False)
  306. m=False
  308. Set objXmlVerChk=Nothing
  309. Exit For
  311. End If
  313. i=i+1
  315. End If
  317. Set objXmlVerChk=Nothing
  319. Next
  321. If m Then
  323. Response.Write "<p class=""status-box"">!! 所有主题已检查完成!</p>"
  325. Response.Write "<form name=""edit"" method=""get"" action=""#"" class=""status-box"">"
  326. Response.Write "<p><input onclick=""window.scrollTo(0,0);"" type=""button"" class=""button"" value=""TOP"" title=""返回页面顶部"" /> <input onclick=""self.location.href='Xml_ChkVer.asp';"" type=""button"" class=""button"" value=""查看需要更新的主题"" title=""查看更新结果"" /></p>"
  327. Response.Write "</form>"
  329. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('loading2').style.display = 'none';}catch(e){};</script>"
  330. End If
  332. End If
  334. Set fso = nothing
  335. Err.Clear
  336. %>
  337. </div>
  338. </div>
  339. </div>
  340. </body>
  341. </html>
  342. <%
  343. Call System_Terminate()
  345. If Err.Number<>0 then
  346. Call ShowError(0)
  347. End If
  348. %>