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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
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("PluginSapper")=False Then Call ShowError(48)
  34. Action=Request.QueryString("act")
  36. BlogTitle="Plugin 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">Plugin 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 & "/PLUGIN/")
  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 PluginSapper_CheckVersionViaXML
  76. If fso.FileExists(BlogPath & "/PLUGIN/" & f1.name & "/" & "Plugin.xml") Then
  78. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/PLUGIN/" & f1.name & "/plugin.xml","utf-8"))
  80. If fso.FileExists(BlogPath & "/PLUGIN/" & f1.name & "/" & "verchk.xml") Then
  82. objXmlVerChk.XmlDataWeb=(LoadFromFile(BlogPath & "/PLUGIN/" & 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 PluginSapper_CheckVersionViaXML
  137. If fso.FileExists(BlogPath & "/PLUGIN/" & f1.name & "/" & "Plugin.xml") Then
  139. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/PLUGIN/" & f1.name & "/plugin.xml","utf-8"))
  141. If fso.FileExists(BlogPath & "/PLUGIN/" & 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 PluginSapper_CheckVersionViaXML
  193. If fso.FileExists(BlogPath & "/PLUGIN/" & f1.name & "/" & "Plugin.xml") Then
  195. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/PLUGIN/" & f1.name & "/plugin.xml","utf-8"))
  197. If fso.FileExists(BlogPath & "/PLUGIN/" & f1.name & "/" & "verchk.xml") Then
  199. fso.DeleteFile(BlogPath & "/PLUGIN/" & 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 & "/PLUGIN/" & f1.name & "/" & "error.log") Then
  212. fso.DeleteFile(BlogPath & "/PLUGIN/" & 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
  242. If Action="check" Then
  243. Response.Write "<p id=""loading2"">正在查找更新, 请稍候... 如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  244. Response.Flush
  246. Response.Write "<p class=""status-box"">!! 查找更新的过程会消耗一些时间, 时间长短会因您安装的插件数量而异, 请耐心等候...</p>"
  247. Response.Flush
  249. i=0
  250. n=Request.QueryString("n")
  251. n=Int(n)
  252. m=True
  254. For Each f1 in fc
  256. Set objXmlVerChk=New PluginSapper_CheckVersionViaXML
  258. If fso.FileExists(BlogPath & "/PLUGIN/" & f1.name & "/" & "Plugin.xml") Then
  260. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/PLUGIN/" & f1.name & "/plugin.xml","utf-8"))
  262. If i>=n Then
  263. Response.Write "<p class=""status-box"">>>> 插件: " & objXmlVerChk.Item_Name_Local & " 正在检查中...</p>"
  264. Response.Flush
  265. Else
  266. If fso.FileExists(BlogPath & "/PLUGIN/" & f1.name & "/" & "verchk.xml") Then
  267. t="<b class=""notice"">发现新版本!</b>"
  268. ElseIf fso.FileExists(BlogPath & "/PLUGIN/" & f1.name & "/" & "error.log") Then
  269. t="<span class=""somehow"">该插件不支持在线更新.</span>"
  270. Else
  271. t="<span class=""allright"">未发现新版本.</span>"
  272. End If
  274. Response.Write "<p class=""status-box"">>>> 插件: " & objXmlVerChk.Item_Name_Local & " " & t & "</p>"
  275. Response.Flush
  276. End If
  278. If i>=n Then
  279. s=getHTTPPage(Resource_URL & f1.name & "/verchk.xml")
  281. objXmlVerChk.XmlDataWeb=(s)
  283. If objXmlVerChk.UpdateNeeded Then
  285. t="<b>" & objXmlVerChk.Item_Name_Local & "</b> 检查完毕, <b class=""notice"">发现新版本!</b>"
  287. ElseIf s=False Then
  289. t="<b>" & objXmlVerChk.Item_Name_Local & "</b> 检查完毕, <span class=""somehow"">该插件不支持在线更新.</span>"
  291. Else
  293. t="<b>" & objXmlVerChk.Item_Name_Local & "</b> 检查完毕, <span class=""allright"">未发现新版本.</span>"
  295. End If
  297. i=i+1
  299. Response.Write "<p class=""download-box"">" & t & "</p>"
  300. Response.Write "<script>setTimeout(""self.location.href='Xml_ChkVer.asp?act=check&n=" & i & "'"",3000);</script>"
  301. Response.Flush
  303. Call SaveToFile(BlogPath & "/PLUGIN/PluginSapper/Export/log.txt",f1.name,"utf-8",False)
  305. m=False
  307. Set objXmlVerChk=Nothing
  308. Exit For
  310. End If
  312. i=i+1
  314. End If
  316. Set objXmlVerChk=Nothing
  318. Next
  320. If m Then
  322. Response.Write "<p class=""status-box"">!! 所有插件已检查完成!</p>"
  324. Response.Write "<form name=""edit"" method=""get"" action=""#"" class=""status-box"">"
  325. 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>"
  326. Response.Write "</form>"
  328. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('loading2').style.display = 'none';}catch(e){};</script>"
  329. End If
  331. End If
  333. Set fso = nothing
  334. Err.Clear
  335. %>
  336. </div>
  337. </div>
  338. </div>
  339. </body>
  340. </html>
  341. <%
  342. Call System_Terminate()
  344. If Err.Number<>0 then
  345. Call ShowError(0)
  346. End If
  347. %>