Startseite>Tutorial zur Netzwerkprogrammierung>ASP-Tutorial

ASP verwendet XML, um den angegebenen Ordner zu verpacken und in das Webverzeichnis hochzuladen, ihn selbst auspacken

Autor：Eve Cole Aktualisierungszeit：2025-05-26 20:32:01

Empfohlen: Tipps für ASP -Fehlerobjekte
In VBScript gibt es eine Anweisung für Fehlerbehebung, die dazu führt, dass der Skript -Interpreter Laufzeitfehler ignoriert und die Ausführung des Skriptcode fortsetzt. Anschließend kann das Skript den Wert der ERR.Number -Eigenschaft überprüfen, um festzustellen, ob ein Fehler aufgetreten ist. Wenn ein Fehler auftritt, wird ein Wert ungleich Null zurückgegeben. In ASP 3.0 können Sie auch bei Fehler GOTO 0 verwenden, um sich wieder in den Standard zu wenden

  1.  '=================================
  2.  'Datei 1
  3.  'Pack.asp
  4.  Ȁndern Sie CathName diese Variable
  5.  'Eine Datei data.xml wird im aktuellen Verzeichnis generiert
  6.  'Data.xml und Datei 2 (install.asp) in das Web -Root -Verzeichnis hochladen
  7.  'Installieren Sie die Installation
  8.  'Löschen Sie die beiden oben genannten Dateien manuell
  9.  '=================================
  10.  <%OptionExplicit%>
  11.  <%OnErrorresumeNext%>
  12.  <%
  13.  Server.ScriptTimeout = 99999999
  14.  DimcPathName
  15.  Dimstartime, Endzeit
  17.  Ȁndern Sie den Pfad zum hier verpackten Ordner
  18.  CpathName = f: webymr
  20.  StartTime = Timer ()
  21.  functionBianli (Pfad)
  22.  Dimdoc
  23.  DimfSo'fso -Objekt
  24.  DimobjFolder 'Ordnerobjekt
  25.  DimobjsubFolders -Unterordnersammlung
  26.  Dimobjsubfolders Unterordner -Objekt
  27.  Dimobjfiles -Dateisammlung
  28.  dimobjFile 'Dateiobjekt
  29.  Dimobjstream
  30.  DimPathName, Textstream, PP, XFolder, XFPath, XFile, XPath, Xstream
  32.  setfso = server.createObject (scripting.filesystemObject)
  33.  setObjFolder = fso.getFolder (Pfad) 'Ordnerobjekt erstellen
  35.  Antwort.Writepath
  36.  Antwort.Flush
  38.  SetDoc = server.createObject (msxml2.domdocument)
  39.  doc.loadserver.mappath (data.xml)
  40.  doc.async = false
  42.  'Schreiben Sie an jeden Ordnerpfad
  43.  setxFolder = doc.Selectsinglenode (// Z-Blog) .AppendChild (doc.createelement (Ordner))
  44.  Setxfpath = xFolder.Appendchild (doc.createelement (Pfad))
  45.  XfPath.Text = ersetzen (Pfad, cpathName,)
  47.  setObjFiles = objFolder.files
  48.  foreachobjfileinobjfiles
  49.  Antwort.Write
  50.  ---
  51.  pp = path && objFile.name
  53.  Response.writep &
  55.  Antwort.Flush
  57.  "=========================================================================================================
  58.  'Der Pfad zur Datei und zum Dateiinhalt
  59.  setXFile = doc.Selectsinglenode (// Z-Blog) .AppendChild (doc.createelement (Datei))
  61.  Setxpath = xFile.Appendchild (doc.createelement (Pfad))
  62.  XPath.Text = Ersatz (pp, cpathName,)
  64.  'Erstellen Sie einen Dateistrom, um den Dateiinhalt zu lesen und in die XML -Datei zu schreiben
  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, Urne: Schemas-Microsoft-Com: DataTypes
  73.  'Der Dateiinhalt wird in zwei Systemen gespeichert
  74.  Xstream.datatype = bin.base64
  75.  Xstream.nodetypedValue = objstream.read ())
  77.  setObjstream = nichts
  78.  setxpath = nichts
  79.  setxstream = nichts
  80.  setxfile = nichts
  82.  "=========================================================================================================
  83.  nächste
  84.  Response.write <p>
  86.  doc.saveserver.mappath (data.xml)
  87.  setxfpath = nichts
  88.  setxFolder = nichts
  89.  setdoc = nichts
  91.  'Erstelltes Unterordnerobjekt
  92.  setObjsubfolders = objfolder.subFolders
  93.  'Rufen Sie rekursiv durch die Unterordner auf
  94.  foreachobjsubfolderinobjsubfolders
  95.  PathPathName = Path ++ ObjSubFolder.name
  96.  Bianli (Pathname)
  97.  nächste
  99.  setObjFolder = nichts
  100.  setObjsubFolders = nichts
  101.  setfso = nichts
  102.  Endfunktion
  104.  Dimdoc, Objpi
  105.  'Erstellen Sie eine leere XML -Datei, um sich auf das Schreiben in die Datei vorzubereiten
  106.  SetDoc = server.createObject (msxml2.domdocument)
  107.  doc.async = false
  108.  setObjpi = doc.createprocessingInstruction (xml, Version = '1.0'encoding =' utf-8 ')
  109.  doc.insertBeforobjpi, doc.childnodes (0)
  110.  doc.appendchild (doc.createelement (Z-Blog))
  111.  doc.saveserver.mappath (data.xml)
  112.  setObjpi = nichts
  113.  setdoc = nichts
  114.  Bianli (CPathName)
  115.  Endime = Timer ()
  116.  %>
  117.  Seitenausführungszeit: <%= formatnumber ((Endzeitstartzeit), 3)%> Sekunden
  119.  "========================================================================================================================================
  120.  'Datei 2
  121.  'Install.asp
  122.  'Diese Datei wird aus der Z-Blog-Installationsdatei geändert
  123.  "========================================================================================================================================
  124.  <%@Codepage = 65001%>
  125.  <%OptionExplicit%>
  126.  <%OnErrorresumeNext%>
  127.  <%Response.charset = utf-8%>
  128.  <html>
  129.  <kopf>
  130.  <title> Dateipackungsprogramm </title>
  131.  </head>
  132.  <body>
  133.  <textArenname = contentCols = 90Rows = 20Style = Border: 0px; Überlauf: Auto; Border-Width: 0px; Breite: 100%; Hintergrundfarbe:#e8f3ff; scrolling = auto>
  134.  <%
  135.  Dimstrocalpath
  136.  'Holen Sie sich den physischen Pfad zum aktuellen Ordner
  137.  StrlocalPath = links (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 (// Ordner/Pfad)
  153.  SetObjfso = createObject (scripting.filesystemObject)
  155.  j = objnodelist.length-1
  156.  Fei = 0toj
  157.  IfObjfso.FORDEREXISTS (StrlocalPath & Objnodelist (i) .Text) = falsethen
  158.  objfso.createfolder (StrlocalPath & Objnodelist (I) .Text)
  159.  Endif
  160.  Response.writecreate Directory & objnodelist (i) .text & vbcrlf
  161.  Antwort.Flush
  162.  Nächste
  164.  SetObjnodelist = objxmlfile.documentElement.Selectnodes (// Datei/Pfad)
  166.  j = objnodelist.length-1
  167.  Fei = 0toj
  168.  SetObjstream = createObject (adodb.stream)
  169.  Ohne Bystream
  170.  .Type = 1
  171.  .Offen
  172.  .WriteObjnodelist (i) .NextSsibling.nodetypedValue
  173.  .Savetofilestlocalpath & Objnodelist (i) .Text, 2
  174.  Response.write Release -Datei & Objnodelist (I) .Text & VBCRLF
  175.  Antwort.Flush
  176.  .Schließen
  177.  Endwith
  178.  SetObjstream = nichts
  179.  Nächste
  180.  Endif
  181.  Endif
  182.  %>
  183.  </textArea>
  184.  <%response.write <Script> alert ('Datei ausgepackt!'); </script>%>

Anteil: Nützliche Sammlung von Funktionen in der ASP -Entwicklung (1)
Eine Sammlung nützlicher Funktionen in der ASP -Entwicklung ist sehr nützlich! Ich hoffe, jeder behält es! % '****************************************************** 'Prevent external submission'*************************************** function ChkPost() dim server_v1,server_v2 chkpost=false server_v1=Cstr(Request.ServerVari

Ähnliche Artikel