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

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

中间件编程

开发平台：

HTML/CSS

Xml_Upload.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. <%
  25. Call System_Initialize()
  27. '检查非法链接
  28. Call CheckReference("")
  30. '检查权限
  31. If BlogUser.Level>1 Then Call ShowError(6)
  33. If CheckPluginState("ThemeSapper")=False Then Call ShowError(48)
  35. BlogTitle = "从本地导入主题"
  37. %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  38. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="<%=ZC_BLOG_LANGUAGE%>" lang="<%=ZC_BLOG_LANGUAGE%>">
  39. <head>
  40. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  41. <meta http-equiv="Content-Language" content="<%=ZC_BLOG_LANGUAGE%>" />
  42. <meta name="robots" content="noindex,nofollow"/>
  43. <link rel="stylesheet" rev="stylesheet" href="../../CSS/admin.css" type="text/css" media="screen" />
  44. <link rel="stylesheet" rev="stylesheet" href="images/style.css" type="text/css" media="screen" />
  45. <title><%=BlogTitle%></title>
  46. </head>
  47. <body>
  49. <div id="divMain">
  50. <div class="Header">Theme Sapper - 从本地上传 ZTI 文件并导入主题到 Blog. <a href="help.asp#importzti"  title="关于导入主题">[页面帮助]</a></div>
  51. <%Call SapperMenu("3")%>
  52. <div id="divMain2">
  53. <%
  55. '*********************************************************
  56. ' 目的：    定义TUpLoadFile类
  57. ' 输入：    无
  58. ' 返回：    无
  59. '*********************************************************
  60. Class TUpLoadFile2
  62. Public ID
  63. Public AuthorID
  65. Public FileSize
  66. Public FileName
  67. Public PostTime
  68. Public Stream
  70. Private FUploadType
  71. Public Property Let UploadType(strUploadType)
  72. If (strUploadType="Stream") Then
  73. FUploadType=strUploadType
  74. Else
  75. FUploadType="Form"
  76. End If
  77. End Property
  78. Public Property Get UploadType
  79. If IsEmpty(FUploadType)=True Then
  80. UploadType="Form"
  81. Else
  82. UploadType = FUploadType
  83. End If
  84. End Property
  86. Function UpLoad_Form()
  88. Dim i,j
  89. Dim x,y,z
  90. Dim intFormSize
  91. Dim binFormData
  92. Dim strFileName
  94. intFormSize = Request.TotalBytes
  95. binFormData = Request.BinaryRead(intFormSize)
  97. If Instr(CStr(Request.ServerVariables("HTTP_USER_AGENT")),"Opera")>0 Then
  98. i=0
  99. i=InstrB(binFormData,ChrB(13)&ChrB(10)&ChrB(13)&ChrB(10))
  100. If i>0 Then i=i+3
  101. j=InstrB(binFormData,ChrB(13)&ChrB(10)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45))
  102. ElseIf  Instr(CStr(Request.ServerVariables("HTTP_USER_AGENT")),"AppleWebKit")>0 Then
  103. i=0
  104. i=InstrB(binFormData,ChrB(13)&ChrB(10)&ChrB(13)&ChrB(10))
  105. If i>0 Then i=i+3
  106. j=InstrB(binFormData,ChrB(13)&ChrB(10)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45))
  107. Else
  108. i=InstrB(binFormData,ChrB(13)&ChrB(10)&ChrB(13)&ChrB(10))
  109. i=i+3
  110. j=InStrB(binFormData,ChrB(13)&ChrB(10)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45)&ChrB(45))
  111. End If 
  114. If Len(Request.QueryString("filename"))>0 Then
  115. strFileName=Request.QueryString("filename")
  116. Else
  117. x=InstrB(binFormData,ChrB(&H66)&ChrB(&H69)&ChrB(&H6C)&ChrB(&H65)&ChrB(&H6E)&ChrB(&H61)&ChrB(&H6D)&ChrB(&H65)&ChrB(&H3D)&ChrB(&H22))
  118. y=InstrB(x+11,binFormData,ChrB(&H22))
  119. For z=1 to y-x-10
  120. strFileName=strFileName & Chr(AscB(MidB(binFormData,x+z+9,1)))
  121. Next
  122. End If
  124. Dim objStreamUp
  125. Set objStreamUp = Server.CreateObject("ADODB.Stream")
  127. With objStreamUp
  128. .Type = adTypeBinary
  129. .Mode = adModeReadWrite
  130. .Open
  131. .Position = 0
  132. .Write binFormData
  133. .Position = i
  134. Stream=.Read(j-i-1)
  135. .Close
  136. End With
  138. FileSize=LenB(Stream)
  140. End Function
  143. Function UpLoad_Stream()
  145. FileSize=LenB(Stream)
  147. End Function
  150. Public Function UpLoad(bolAutoName)
  152. If UploadType="Form" Then
  153. Call UpLoad_Form()
  154. ElseIf UploadType="Stream" Then
  155. Call UpLoad_Stream()
  156. End If
  158. If bolAutoName=True Then
  159. End If
  161. Dim objStreamFile
  162. Set objStreamFile = Server.CreateObject("ADODB.Stream")
  164. objStreamFile.Type = adTypeBinary
  165. objStreamFile.Mode = adModeReadWrite
  166. objStreamFile.Open
  167. objStreamFile.Write Stream
  168. objStreamFile.SaveToFile FileName,adSaveCreateOverWrite
  169. objStreamFile.Close
  172. UpLoad=True
  174. End Function
  177. Public Function Del()
  179. Dim fso
  180. Set fso = CreateObject("Scripting.FileSystemObject")
  182. If fso.FileExists(FileName) Then
  183. fso.DeleteFile(FileName)
  184. End If
  186. Del=True
  188. End Function
  191. End Class
  192. '*********************************************************
  193. %>
  194. <!--以下是显示页面-->
  195. <%
  196. Action=Request.QueryString("act")
  197. SelectedTheme=Request.QueryString("theme")
  198. SelectedThemeName=Request.QueryString("themename")
  199. If SelectedThemeName = "" Then SelectedThemeName = SelectedTheme
  201. If Action="" Then
  202. Call GetBlogHint()
  204. Response.Write "<div>"
  205. %>
  206. <form border="1" name="edit" id="edit" method="post" enctype="multipart/form-data" action="Xml_Upload.asp?act=FileUpload"><p>选择本地的 ZTI 主题安装包文件,TS 将从该文件导入主题并安装到 THEMES 目录下: </p><p><input type="file" id="edtFileLoad" name="edtFileLoad" size="25">  <input type="submit" class="button" value="提交" name="B1" /> <input class="button" type="reset" value="重置" name="B2" /> <input onclick="self.location.href='ThemeList.asp'" type="button" class="button" value="返回主题管理" title="返回主题管理页" /></p>
  207. <br />
  208. </form>
  209. <p><a href="help.asp#aboutzti" title="什么是 ZTI 主题安装包文件?">[什么是 ZTI 主题安装包文件?]</a></p>
  210. <%
  212. Response.Write "</div>"
  213. End If
  215. Dim Install_Error
  216. Install_Error=0
  218. Dim Install_Pack,Install_Path
  219. Install_Pack = BlogPath & "THEMES/Install.zti"
  220. Install_Path = BlogPath & "THEMES/"
  223. '从本地上传
  224. If Action="FileUpload" Then
  226. Response.Write "<p id=""loading"">正在导入主题, 请稍候... 如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  227. Response.Flush
  229. Response.Write "<p class=""status-box"">正在上传 ZTI 主题安装包文件... <img id=""status"" align=""absmiddle"" src=""images/loading.gif"" /></p>"
  230. Response.Flush
  232. Dim objUpLoadFile
  233. Set objUpLoadFile=New TUpLoadFile2
  235. objUpLoadFile.FileName=Install_Pack
  236. objUpLoadFile.Del
  238. If objUpLoadFile.Upload(false)=False Then
  239. Response.Write "<p><font color=""red""> × ZTI 文件上传失败.</font></p>"
  240. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('status').style.display = 'none';</script>"
  241. Install_Error=Install_Error+1
  242. Else
  243. Response.Write "<p><font color=""green""> √ ZTI 文件 ""THEMES/Install.zti"" 已被保存到您的空间内.</font></p>"
  244. Response.Write "<script language=""JavaScript"" type=""text/javascript"">document.getElementById('status').style.display = 'none';</script>"
  245. Response.Flush
  246. End If
  248. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('loading').style.display = 'none';}catch(e){};</script>"
  250. Set objUpLoadFile=Nothing
  252. Call Check_Install()
  254. Call Install_Theme()
  256. End If
  258. If Action="continue" Then
  259. Call Install_Theme()
  260. End If
  262. If Action="cancel" Then
  263. Call DeleteFile(Install_Pack)
  264. Response.Write "<p class=""status-box"">主题安装已取消. 如果您的浏览器没能自动跳转, 请 <a href=""xml_Upload.asp"">[点击这里]</a>.</p>"
  265. Response.Write "<script>setTimeout(""self.location.href='xml_Upload.asp'"",1000);</script>"
  266. End If
  268. '*********************************************************
  269. Sub Check_Install()
  270. On Error Resume Next
  272. Dim Alert
  273. Alert=False
  275. Response.Write "<p id=""loading2"">正在校验主题, 请稍候... 如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  276. Response.Flush
  278. Set objXmlVerChk=New ThemeSapper_CheckVersionViaXML
  279. objXmlVerChk.XmlDataWeb=(LoadFromFile(Install_Pack,"utf-8"))
  280. objXmlVerChk.XmlDataLocal=(LoadFromFile(BlogPath & "/THEMES/"& objXmlVerChk.Item_ID_Web &"/Theme.xml","utf-8"))
  282. If LCase(objXmlVerChk.Item_ID_Web)=LCase(objXmlVerChk.Item_ID_Local) Then
  283. Response.Write "<p class=""status-box"">您已安装了这个主题 <b>("& objXmlVerChk.Item_Name_Local &")</b>, 是否用 ZTI 文件里的主题 <b>("& objXmlVerChk.Item_Name_Web &")</b> <b>完全覆盖</b>已安装的主题?<br/><br/>"
  285. Response.Write "您当前主题版本为: <b>"& objXmlVerChk.Item_Version_Local &"</b>. 发布日期为: <b>"& objXmlVerChk.Item_PubDate_Local &"</b>. 最后修改日期为: <b>"& objXmlVerChk.Item_Modified_Local &"</b>.<br/>"
  286. Response.Write "将要覆盖的版本为: <b>"& objXmlVerChk.Item_Version_Web &"</b>. 发布日期为: <b>"& objXmlVerChk.Item_PubDate_Web &"</b>. 最后修改日期为: <b>"& objXmlVerChk.Item_Modified_Web &"</b><br/><br/>"
  288. If objXmlVerChk.Item_Url_Web<>Empty Then
  289. Response.Write "<a href="""& objXmlVerChk.Item_Url_Web &""" target=""_blank"" title=""查看主题的发布页面"">点此查看主题的发布信息!</a><br/><br/>"
  290. End If
  292. Response.Write objXmlVerChk.OutputResults & "<br/><br/>"
  294. Response.Write "<a href=""Xml_upload.asp?confirm=yes&amp;act=continue"" title=""确认安装"">[确认覆盖]</a> 或 <a href=""Xml_upload.asp?confirm=yes&amp;act=cancel"" title=""取消安装"">[取消]</a><p>"
  295. Alert=True
  296. End If
  298. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('loading2').style.display = 'none';}catch(e){};</script>"
  300. Set objXmlVerChk=Nothing
  302. If Alert=True Then Response.End
  304. End Sub
  307. Sub Install_Theme()
  308. On Error Resume Next
  310. Response.Write "<p id=""loading3"">正在解包主题, 请稍候... 如果长时间停止响应, 请 <a href=""javascript:window.location.reload();"" title=""点此重试"">[点此重试]</a></p>"
  311. Response.Flush
  313. Response.Write "<p class=""status-box"">ZTI 文件 ""THEMES/Install.zti"" 正在解包安装...<p>"
  314. Response.Flush
  316. Dim objXmlFile
  317. Dim objNodeList
  318. Dim objFSO
  319. Dim objStream
  320. Dim i,j
  322. Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
  323. objXmlFile.async = False
  324. objXmlFile.ValidateOnParse=False
  325. objXmlFile.load(Install_Pack)
  327. If objXmlFile.readyState<>4 Then
  328. Response.Write "<p><font color=""red""> × ZTI 文件未准备就绪, 无法解包.</font></p>"
  329. Install_Error=Install_Error+1
  330. Else
  331. If objXmlFile.parseError.errorCode <> 0 Then
  332. Response.Write "<p><font color=""red""> × ZTI 文件有错误, 无法解包.</font></p>"
  333. Install_Error=Install_Error+1
  334. Else
  336. Dim Pack_ver,Pack_Type,Pack_For,Pack_ID,Pack_Name
  337. Pack_Ver = objXmlFile.documentElement.SelectSingleNode("//root").getAttributeNode("version").value
  338. Pack_Type = objXmlFile.documentElement.selectSingleNode("//root").getAttributeNode("type").value
  339. Pack_For = objXmlFile.documentElement.selectSingleNode("//root").getAttributeNode("for").value
  340. Pack_ID = objXmlFile.documentElement.selectSingleNode("id").text
  341. Pack_Name = objXmlFile.documentElement.selectSingleNode("name").text
  343. If (CDbl(Pack_Ver) > CDbl(XML_Pack_Ver)) Then
  344. Response.Write "<p><font color=""red""> × ZTI 文件的 XML 版本为 "& Pack_Ver &", 而你的解包器版本为 "& XML_Pack_Ver &", 请升级您的 ThemeSapper, 安装被中止.</font></p>"
  345. Install_Error=Install_Error+1
  346. ElseIf (LCase(Pack_Type) <> LCase(XML_Pack_Type)) Then
  347. Response.Write "<p><font color=""red""> × 不是 ZTI 文件, 而可能是 "& Pack_Type &", 安装被中止.</font></p>"
  348. Install_Error=Install_Error+1
  349. ElseIf (LCase(Pack_For) <> LCase(XML_Pack_Version)) Then
  350. Response.Write "<p><font color=""red""> × ZTI 文件版本不符合, 该版本可能是 "& Pack_For &", 安装被中止.</font></p>"
  351. Install_Error=Install_Error+1
  352. Else
  354. Response.Write "<blockquote><font color=""Teal"">"
  356. Set objNodeList = objXmlFile.documentElement.selectNodes("//folder/path")
  357. Set objFSO = CreateObject("Scripting.FileSystemObject")
  359. j=objNodeList.length-1
  360. For i=0 To j
  361. If objFSO.FolderExists(Install_Path & objNodeList(i).text)=False Then
  362. objFSO.CreateFolder(Install_Path & objNodeList(i).text)
  363. End If
  364. Response.Write "创建目录" & objNodeList(i).text & "<br/>"
  365. Response.Flush
  366. Next
  367. Set objFSO = Nothing
  368. Set objNodeList = Nothing
  369. Set objNodeList = objXmlFile.documentElement.selectNodes("//file/path")
  371. j=objNodeList.length-1
  372. For i=0 To j
  373. Set objStream = CreateObject("ADODB.Stream")
  374. With objStream
  375. .Type = 1
  376. .Open
  377. .Write objNodeList(i).nextSibling.nodeTypedvalue
  378. .SaveToFile Install_Path & objNodeList(i).text,2
  379. Response.Write "释放文件" & objNodeList(i).text & "<br/>"
  380. Response.Flush
  381. .Close
  382. End With
  383. Set objStream = Nothing
  384. Next
  385. Set objNodeList = Nothing
  386. Response.Write "</font></blockquote>"
  388. End If
  390. End If
  391. End If
  393. Set objXmlFile = Nothing
  395. If Err.Number<>0 Then Install_Error=Install_Error+1
  396. Err.Clear
  398. Response.Write "<p>"
  399. Install_Error = Install_Error + DeleteFile(Install_Pack)
  400. Response.Write "</p>"
  402. If Install_Error = 0 Then 
  403. Response.Write "<p>"
  404. Install_Error = Install_Error + DeleteFile(BlogPath & "THEMES/" & Pack_ID & "/verchk.xml")
  405. Response.Write "</p>"
  406. End If
  408. Response.Flush
  411. If Install_Error = 0 Then
  412. Response.Write "<p class=""status-box""> √ 主题导入完成. 如果您的浏览器没能自动跳转, 请 <a href=""ThemeDetail.asp?theme=" & Server.URLEncode(Pack_ID) & "&amp;themename=" & Server.URLEncode(Pack_Name) & """>[点击这里]</a>.</p>"
  413. Response.Write "<script>setTimeout(""self.location.href='ThemeDetail.asp?theme=" & Server.URLEncode(Pack_ID) & "&themename=" & Server.URLEncode(Pack_Name) & "'"",3000);</script>"
  414. Else
  415. Response.Write "<p class=""status-box""><font color=""red""> × 主题导入失败. "
  416. Response.Write "请 <a href=""javascript:window.location.reload();"" title=""刷新此页""><span>[点此重试]</span></a> 或 <a href=""xml_Upload.asp"" title=""重新上传""><span>[重新上传]</span></a></font></p>"
  417. End If
  419. Response.Write "<script language=""JavaScript"" type=""text/javascript"">try{document.getElementById('loading3').style.display = 'none';}catch(e){};</script>"
  421. End Sub
  422. '*********************************************************
  423. %>
  424. </div>
  425. <script>
  428. </script>
  429. </body>
  430. </html>
  431. <%
  432. Call System_Terminate()
  434. If Err.Number<>0 then
  435.   Call ShowError(0)
  436. End If
  437. %>