Beranda>Tutorial Pemrograman Jaringan>tutorial ASP

ASP menggunakan XML untuk mengemas folder yang ditentukan dan mengunggahnya ke direktori web, buka dengan sendirinya

Penulis：Eve Cole Waktu Pembaruan：2025-05-26 20:32:01

Direkomendasikan: Tips untuk Objek Kesalahan ASP
Dalam VBScript, ada pernyataan resume ON error berikutnya yang menyebabkan penerjemah skrip mengabaikan kesalahan runtime dan melanjutkan eksekusi kode skrip. Kemudian skrip dapat memeriksa nilai properti err.number untuk menentukan apakah kesalahan terjadi. Jika kesalahan terjadi, nilai tidak nol dikembalikan. Di ASP 3.0, Anda juga dapat menggunakan kesalahan GOTO 0 untuk "kembali ke" default

  1.  '==================================
  2.  'File 1
  3.  'Pack.asp
  4.  'Ubah cpathname variabel ini
  5.  'File data.xml akan dihasilkan di direktori saat ini
  6.  'Unggah data.xml dan file 2 (install.asp) ke Web Root Directory
  7.  'Jalankan install.asp membongkar
  8.  'Hapus dua file di atas secara manual
  9.  '==================================
  10.  <%OptionExplicit%>
  11.  <%OnerRorresUMenext%>
  12.  <%
  13.  Server.ScriptTimeout = 99999999
  14.  DIMCPATHNAME
  15.  DimstarTime, endtime
  17.  'Ubah jalur ke folder yang akan dikemas di sini
  18.  Cpathname = f: websymr
  20.  startTime = timer ()
  21.  functionbianli (jalur)
  22.  Dimdoc
  23.  objek dimfso'fso
  24.  objek folder dimobjfolder
  25.  Koleksi subfolder dimobjsubfolder
  26.  Objek subfolder dimoBjsubfolder
  27.  Koleksi File DimoBjFiles
  28.  Objek File DimoBjFile '
  29.  dimobjstream
  30.  DiMPathName, TextStream, PP, Xfolder, Xfpath, XFile, XPath, Xstream
  32.  setFSO = server.CreateObject (scripting.filesystemObject)
  33.  setoBjOfLer = fso.getFolder (path) 'Buat objek folder
  35.  Response.WriteTepath
  36.  Response.flush
  38.  SetDoc = server.CreateObject (msxml2.domdocument)
  39.  doc.loadserver.mappath (data.xml)
  40.  doc.async = false
  42.  'Tulis ke setiap jalur folder
  43.  setxfolder = doc.selectsinglenode (// z-blog) .AppendChild (doc.createelement (folder)))
  44.  Setxfpath = xfolder.appendChild (doc.createelement (path))
  45.  Xfpath.text = ganti (path, cpathname,)
  47.  setobjfiles = objolder.files
  48.  foreachobjfileinobjfiles
  49.  Respons.write
  50.  ---
  51.  pp = path && objfile.name
  53.  Response.writep &
  55.  Response.flush
  57.  '====================================================================
  58.  'Path ke file dan konten file
  59.  setxfile = doc.selectsinglenode (// z-blog) .AppendChild (doc.createelement (file))
  61.  Setxpath = xfile.appendChild (doc.createelement (path))
  62.  Xpath.text = ganti (pp, cpathname,)
  64.  'Buat aliran file untuk membaca konten file dan menulisnya ke file 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, guci: schemas-microsoft-com: tipe data
  73.  'Konten file disimpan dalam sistem dua
  74.  XStream.dataType = bin.base64
  75.  Xstream.nodetypedValue = objstream.read ()
  77.  setobjstream = tidak ada
  78.  setxpath = tidak ada
  79.  setxstream = tidak ada
  80.  setxfile = tidak ada
  82.  '====================================================================
  83.  Berikutnya
  84.  Response.write <p>
  86.  doc.saveserver.mappath (data.xml)
  87.  setxfpath = tidak ada
  88.  setxfolder = tidak ada
  89.  setDoc = tidak ada
  91.  'Membuat objek subfolder
  92.  setobjsubfolders = objolder.subfolders
  93.  'Hubungi Subfolder Traverse Rekursif
  94.  foreachobjsubfolderinobjsubfolders
  95.  pathpathname = path ++ objsubfolder.name
  96.  Bianli (Pathname)
  97.  Berikutnya
  99.  setobjfolder = tidak ada
  100.  setobjsubfolders = tidak ada
  101.  setfso = tidak ada
  102.  fungsi endfungsi
  104.  DIMDOC, OBJPI
  105.  'Buat file XML kosong untuk mempersiapkan menulis ke 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 = tidak ada
  113.  setDoc = tidak ada
  114.  Bianli (cpathname)
  115.  endtime = timer ()
  116.  %>
  117.  Waktu Eksekusi Halaman: <%= formatNumber ((endtime-startime), 3)%> detik
  119.  '===============================================
  120.  'File 2
  121.  'Install.asp
  122.  'File ini diubah dari file instalasi Z-Blog
  123.  '===============================================
  124.  <%@Codepage = 65001%>
  125.  <%OptionExplicit%>
  126.  <%OnerRorresUMenext%>
  127.  <%Response.charset = UTF-8%>
  128.  <Html>
  129.  <head>
  130.  <title> file program pembongkaran </iteme>
  131.  </head>
  132.  <body>
  133.  <textareName = contentCols = 90rows = 20Style = Border: 0px; overflow: auto; perbatasan-lebar: 0px; lebar: 100%; latar belakang-warna:#e8f3ff; scrolling = auto>
  134.  <%
  135.  Dimstrlocalpath
  136.  'Dapatkan jalur fisik ke folder saat ini
  137.  strlocalpath = kiri (request.serverVariable (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.  Berikutnya
  164.  Setobjnodelist = objxmlfile.documentelement.selectnodes (// file/path)
  166.  j = objnodelist.length-1
  167.  Fori = 0toJ
  168.  Setobjstream = createObject (adodb.stream)
  169.  TanpaBJStream
  170.  .Type = 1
  171.  .Membuka
  172.  .Writeobjnodelist (i) .nextsibling.nodetypedValue
  173.  .Savetofilestrlocalpath & objnodelist (i) .text, 2
  174.  Response.write File rilis & objnodelist (i) .text & vbcrlf
  175.  Response.flush
  176.  .Menutup
  177.  Endwith
  178.  Setobjstream = tidak ada
  179.  Berikutnya
  180.  Endif
  181.  Endif
  182.  %>
  183.  </textarea>
  184.  <%response.write <script> alert ('file unpacked complete!'); </script>%>

Bagikan: Kumpulan fungsi yang berguna dalam pengembangan ASP (1)
Kumpulan fungsi yang berguna dalam pengembangan ASP cukup berguna! Saya harap semua orang menyimpannya! % '******************************************************' Cegah Pengajuan Eksternal '********************************* Fungsi chkpost () Dim Server_V1, server_v2 chkpost = server palsu_v1 = CStrervari

Artikel Terkait