首頁>網絡編程教程>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

相關文章