首页>网络编程教程>ASP教程

ASP利用XML打包指定文件夹 并上传到WEB目录中，自行解包

作者：Eve Cole 更新时间：2025-05-26 20:32:01

推荐：ASP Error对象的技巧
在VBScript中，有一个On Error Resume Next语句，它使脚本解释器忽略运行期错误并继续脚本代码的执行。接着该脚本可以检查Err.Number属性的值，判别是否出现了错误。如果出现错误，返回一个非零值。在ASP 3.0中，也可以使用On Error Goto 0“转回到”缺省的

  1. '========================
  2. '文件１
  3. 'Pack.asp
  4. '更改　Cpathname　这一变量
  5. '将在当前目录生成一个DATA.XML文件
  6. '将DATA.XML及文件２（install.asp)上传至ＷＥＢ根目录
  7. '运行install.asp解包
  8. '手动删除以上两个文件
  9. '========================
  10. <%OptionExplicit%>
  11. <%OnErrorResumeNext%>
  12. <%
  13. Server.ScriptTimeout=99999999
  14. dimCpathname
  15. dimstartime,endtime
  17. '在此更改要打包文件夹的路径
  18. Cpathname=F:WEBsymr
  20. startime=timer()
  21. functionbianli(path)
  22. dimdoc
  23. dimfso'fso对象
  24. dimobjFolder'文件夹对象
  25. dimobjSubFolders'子文件夹集合
  26. dimobjSubFolder'子文件夹对象
  27. dimobjFiles'文件集合
  28. dimobjFile'文件对象
  29. dimobjStream
  30. dimpathname,TextStream,pp,Xfolder,Xfpath,Xfile,Xpath,Xstream
  32. setfso=server.CreateObject(scripting.filesystemobject)
  33. setobjFolder=fso.GetFolder(path)'创建文件夹对象
  35. Response.Writepath
  36. Response.flush
  38. Setdoc=Server.CreateObject(MSxml2.DOMDocument)
  39. doc.loadServer.MapPath(data.xml)
  40. doc.async=false
  42. '写入每个文件夹路径
  43. setXfolder=doc.SelectSingleNode(//z-blog).AppendChild(doc.CreateElement(folder))
  44. SetXfpath=Xfolder.AppendChild(doc.CreateElement(path))
  45. Xfpath.text=replace(path,Cpathname,)
  47. setobjFiles=objFolder.Files
  48. foreachobjFileinobjFiles
  49. Response.Write
  50. ---
  51. pp=path&&objFile.name
  53. Response.Writepp&
  55. Response.flush
  57. '================================================
  58. '写入文件的路径及文件内容
  59. setXfile=doc.SelectSingleNode(//z-blog).AppendChild(doc.CreateElement(file))
  61. SetXpath=Xfile.AppendChild(doc.CreateElement(path))
  62. Xpath.text=replace(pp,Cpathname,)
  64. '创建文件流读入文件内容，并写入XML文件中
  65. SetobjStream=Server.CreateObject(ADODB.Stream)
  66. objStream.Type=1
  67. objStream.Open()
  68. objStream.LoadFromFile(pp)
  69. objStream.position=0
  71. SetXstream=Xfile.AppendChild(doc.CreateElement(stream))
  72. Xstream.SetAttributexmlns:dt,urn:schemas-microsoft-com:datatypes
  73. '文件内容采用二制方式存放
  74. Xstream.dataType=bin.base64
  75. Xstream.nodeTypedValue=objStream.Read()
  77. setobjStream=nothing
  78. setXpath=nothing
  79. setXstream=nothing
  80. setXfile=nothing
  82. '================================================
  83. next
  84. Response.Write<p>
  86. doc.saveserver.mappath(data.xml)
  87. setXfpath=nothing
  88. setXfolder=nothing
  89. setdoc=nothing
  91. '创建的子文件夹对象
  92. setobjSubFolders=objFolder.Subfolders
  93. '调用递归遍历子文件夹
  94. foreachobjSubFolderinobjSubFolders
  95. pathpathname=path++objSubFolder.name
  96. bianli(pathname)
  97. next
  99. setobjFolder=nothing
  100. setobjSubFolders=nothing
  101. setfso=nothing
  102. endfunction
  104. dimdoc,objPI
  105. '创建一个空的XML文件，为写入文件作准备
  106. Setdoc=Server.CreateObject(MSxml2.DOMDocument)
  107. doc.async=false
  108. setobjPI=doc.createProcessingInstruction(xml,version='1.0'encoding='UTF-8')
  109. doc.insertBeforeobjPI,doc.childNodes(0)
  110. doc.appendChild(doc.CreateElement(z-blog))
  111. doc.saveserver.mappath(data.xml)
  112. setobjPI=nothing
  113. setdoc=nothing
  114. bianli(Cpathname)
  115. endtime=timer()
  116. %>
  117. 页面执行时间：<%=FormatNumber((endtime-startime),3)%>秒
  119. '=================================
  120. '文件２
  121. 'install.asp
  122. '此文件改自z-blog安装文件
  123. '=================================
  124. <%@CODEPAGE=65001%>
  125. <%OptionExplicit%>
  126. <%OnErrorResumeNext%>
  127. <%Response.Charset=UTF-8%>
  128. <html>
  129. <head>
  130. <title>文件解包程序</title>
  131. </head>
  132. <body>
  133. <textareaname=contentcols=90rows=20style=border:0px;overflow:auto;border-width:0px;width:100%;background-color:#E8F3FF;scrolling=auto>
  134. <%
  135. DimstrLocalPath
  136. '得到当前文件夹的物理路径
  137. strLocalPath=Left(Request.ServerVariables(PATH_TRANSLATED),InStrRev(Request.ServerVariables(PATH_TRANSLATED),))
  139. DimstrDbPath
  140. DimobjXmlFile
  141. DimobjNodeList
  142. DimobjFSO
  143. DimobjStream
  144. Dimi,j
  146. SetobjXmlFile=Server.CreateObject(Microsoft.XMLDOM)
  147. objXmlFile.load(Server.MapPath(data.xml))
  149. IfobjXmlFile.readyState=4Then
  150. IfobjXmlFile.parseError.errorCode=0Then
  152. SetobjNodeList=objXmlFile.documentElement.selectNodes(//folder/path)
  153. SetobjFSO=CreateObject(Scripting.FileSystemObject)
  155. j=objNodeList.length-1
  156. Fori=0Toj
  157. IfobjFSO.FolderExists(strLocalPath&objNodeList(i).text)=FalseThen
  158. objFSO.CreateFolder(strLocalPath&objNodeList(i).text)
  159. EndIf
  160. Response.Write创建目录&objNodeList(i).text&vbCrlf
  161. Response.Flush
  162. Next
  164. SetobjNodeList=objXmlFile.documentElement.selectNodes(//file/path)
  166. j=objNodeList.length-1
  167. Fori=0Toj
  168. SetobjStream=CreateObject(ADODB.Stream)
  169. WithobjStream
  170. .Type=1
  171. .Open
  172. .WriteobjNodeList(i).nextSibling.nodeTypedvalue
  173. .SaveToFilestrLocalPath&objNodeList(i).text,2
  174. Response.Write释放文件&objNodeList(i).text&vbCrlf
  175. Response.Flush
  176. .Close
  177. EndWith
  178. SetobjStream=Nothing
  179. Next
  180. EndIf
  181. EndIf
  182. %>
  183. </textarea>
  184. <%response.write<script>alert('文件解包完毕!');</script>%>

分享：ASP开发中有用的函数(function)集合(1)
ASP开发中有用的function集合,挺有用处的！希望大家保留！ % '************************************* '防止外部提交 '************************************* function ChkPost() dim server_v1,server_v2 chkpost=false server_v1=Cstr(Request.ServerVari

相关文章