Home>Network programming tutorial>ASP tutorial

ASP uses XML to package the specified folder and upload it to the WEB directory, unpack it by itself

Author：Eve Cole Update Time：2025-05-26 20:32:01

Recommended: Tips for ASP Error Objects
In VBScript, there is an On Error Resume Next statement that causes the script interpreter to ignore runtime errors and continue execution of the script code. Then the script can check the value of the Err.Number property to determine whether an error occurred. If an error occurs, a non-zero value is returned. In ASP 3.0, you can also use On Error Goto 0 to "turn back to" the default

  1.  '=================================
  2.  'File 1
  3.  'Pack.asp
  4.  'Change Cpathname this variable
  5.  'A DATA.XML file will be generated in the current directory
  6.  'Upload DATA.XML and file 2 (install.asp) to WEB root directory
  7.  'Run install.asp unpacking
  8.  'Manually delete the above two files
  9.  '=================================
  10.  <%OptionExplicit%>
  11.  <%OnErrorResumeNext%>
  12.  <%
  13.  Server.ScriptTimeout=99999999
  14.  dimCpathname
  15.  dimstartime, endtime
  17.  'Change the path to the folder to be packaged here
  18.  Cpathname=F:WEBsymr
  20.  starttime=timer()
  21.  functionbianli(path)
  22.  dimdoc
  23.  dimfso'fso object
  24.  dimobjFolder' folder object
  25.  dimobjSubFolders' subfolder collection
  26.  dimobjSubFolder's subfolder object
  27.  dimobjFiles' file collection
  28.  dimobjFile' file object
  29.  dimobjStream
  30.  dimpathname,TextStream,pp,Xfolder,Xfpath,Xfile,Xpath,Xstream
  32.  setfso=server.CreateObject(scripting.filesystemobject)
  33.  setobjFolder=fso.GetFolder(path)'Create folder object
  35.  Response.Writepath
  36.  Response.flush
  38.  Setdoc=Server.CreateObject(MSxml2.DOMDocument)
  39.  doc.loadServer.MapPath(data.xml)
  40.  doc.async=false
  42.  'Write to each folder path
  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.Writep&
  55.  Response.flush
  57.  '==================================================================
  58.  'The path to the file and the file content
  59.  setXfile=doc.SelectSingleNode(//z-blog).AppendChild(doc.CreateElement(file))
  61.  SetXpath=Xfile.AppendChild(doc.CreateElement(path))
  62.  Xpath.text=replace(pp,Cpathname,)
  64.  'Create a file stream to read the file content and write it to the XML file
  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.  'The file content is stored in two-system
  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.  'Created subfolder object
  92.  setobjSubFolders=objFolder.Subfolders
  93.  'Call recursively traverse subfolders
  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.  'Create an empty XML file to prepare for writing to the file
  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.  Page execution time: <%=FormatNumber((endtime-startime), 3)%> seconds
  119.  '=============================================
  120.  'File 2
  121.  'install.asp
  122.  'This file is changed from the z-blog installation file
  123.  '=============================================
  124.  <%@CODEPAGE=65001%>
  125.  <%OptionExplicit%>
  126.  <%OnErrorResumeNext%>
  127.  <%Response.Charset=UTF-8%>
  128.  <html>
  129.  <head>
  130.  <title>File Unpacking Program</title>
  131.  </head>
  132.  <body>
  133.  <textarename=contentcols=90rows=20style=border:0px;overflow:auto;border-width:0px;width:100%;background-color:#E8F3FF;scrolling=auto>
  134.  <%
  135.  DimstrLocalPath
  136.  'Get the physical path to the current folder
  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.WriteCreate Directory&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.  WithoutbjStream
  170.  .Type=1
  171.  .Open
  172.  .WriteobjNodeList(i).nextSibling.nodeTypedvalue
  173.  .SaveToFilestrLocalPath&objNodeList(i).text,2
  174.  Response.Write Release File &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('File Unpacked Complete!');</script>%>

Share: Useful collection of functions in ASP development (1)
A collection of useful functions in ASP development is quite useful! I hope everyone keeps it! % '****************************************************** 'Prevent external submission'****************************************** function ChkPost() dim server_v1,server_v2 chkpost=false server_v1=Cstr(Request.ServerVari

Related Articles