Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

ASP utilise XML pour emballer le dossier spécifié et le télécharger dans le répertoire Web, le déballer seul

Auteur：Eve Cole Date de mise à jour：2025-05-26 20:32:01

Recommandé: conseils pour les objets d'erreur ASP
Dans VBScript, il y a une instruction NEXT CV ERROR REPOS qui oblige l'interprète de script à ignorer les erreurs d'exécution et à continuer l'exécution du code de script. Ensuite, le script peut vérifier la valeur de la propriété Err.Number pour déterminer si une erreur s'est produite. Si une erreur se produit, une valeur non nulle est renvoyée. Dans ASP 3.0, vous pouvez également utiliser sur Error Goto 0 pour "revenir à" la valeur par défaut

  1.  '==============================================.
  2.  'Fichier 1
  3.  'Pack.asp
  4.  'Changer le nom de CPATHNAME cette variable
  5.  «Un fichier data.xml sera généré dans le répertoire actuel
  6.  'Télécharger data.xml et fichier 2 (install.asp) vers le répertoire de racine Web
  7.  'Run install.asp déballage
  8.  'Supprimer manuellement les deux fichiers ci-dessus
  9.  '==============================================.
  10.  <% OptionExplicite%>
  11.  <% OnerrorResumeNext%>
  12.  <%
  13.  Server.scriptTimeout = 99999999
  14.  tamis
  15.  DimStartime, EndTime
  17.  'Changez le chemin vers le dossier à emballer ici
  18.  Cpathname = f: Webymr
  20.  startTime = TIMER ()
  21.  functionbianli (chemin)
  22.  dimdoc
  23.  objet dimfso'fso
  24.  objet de dossier dimobjfolder
  25.  Collection des sous-dossiers de DimobjSubfolders
  26.  Objet du sous-dossier de DimobjSubFolder
  27.  Collection de fichiers de Dimobjfiles
  28.  objet de fichier dimobjfile
  29.  dimobjstream
  30.  DimPathName, TextStream, PP, XFolder, Xfpath, XFile, Xpath, Xstream
  32.  setfso = server.createObject (scripting.fileSystemObject)
  33.  setObjfolder = fso.getfolder (chemin) 'Créer un objet de dossier
  35.  Réponse.WritePath
  36.  Réponse.flush
  38.  SetDoc = server.createObject (msxml2.domDocument)
  39.  doc.loadserver.mappath (data.xml)
  40.  doc.async = false
  42.  'Écrivez sur chaque chemin de dossier
  43.  setXfolder = doc.selectSingLenode (// z-blog) .APPENDCHILD (doc.createelement (dossier))
  44.  Setxfpath = xfolder.appendChild (doc.createelement (chemin))
  45.  Xfpath.text = remplacer (path, cpathname,)
  47.  setObjFiles = objfolder.files
  48.  foreachobjfileinobjfiles
  49.  Réponse.
  50.  ---
  51.  pp = path && objfile.name
  53.  Réponse.writep &
  55.  Réponse.flush
  57.  '=========================================================.
  58.  'Le chemin d'accès vers le fichier et le contenu du fichier
  59.  setXFile = doc.selectSingLenode (// z-blog) .APPENDCHILD (doc.createelement (fichier))
  61.  SetXpath = xFile.ApendChild (doc.createelement (chemin))
  62.  Xpath.text = remplacer (pp, cpathname,)
  64.  'Créez un flux de fichiers pour lire le contenu du fichier et l'écrire dans le fichier 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.ApendChild (doc.createelement (stream))
  72.  Xstream.setAttributexmlns: DT, Urn: schémas-microsoft-com: datatypes
  73.  'Le contenu du fichier est stocké en deux systèmes
  74.  Xstream.datatype = bin.base64
  75.  Xstream.NodeTypedValue = objstream.read ()
  77.  setObjstream = rien
  78.  setXpath = rien
  79.  setXstream = rien
  80.  setXFile = rien
  82.  '=========================================================.
  83.  suivant
  84.  Réponse.write <p>
  86.  doc.saveserver.mappath (data.xml)
  87.  setXfpath = rien
  88.  setXfolder = rien
  89.  setDoc = rien
  91.  'Création d'un objet de sous-dossier
  92.  setObjSubfolders = objfolder.subfolders
  93.  `` Appelez des sous-dossiers de traverse récursivement
  94.  foreachobjsubfolderinobjsubfolders
  95.  pathPathName = path ++ objsubfolder.name
  96.  Bianli (Pathname)
  97.  suivant
  99.  setObjfolder = rien
  100.  setObjSubfolders = rien
  101.  setfso = rien
  102.  finition de fin
  104.  dimdoc, objpi
  105.  'Créez un fichier XML vide pour préparer l'écriture dans le fichier
  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 = rien
  113.  setDoc = rien
  114.  Bianli (cpathname)
  115.  Endtime = Timer ()
  116.  %>
  117.  Temps d'exécution de la page: <% = formatNumber ((fin de temps de fin), 3)%> secondes
  119.  '==========================================.
  120.  'Fichier 2
  121.  'install.asp
  122.  'Ce fichier est modifié à partir du fichier d'installation Z-Blog
  123.  '==========================================.
  124.  <% @ Codepage = 65001%>
  125.  <% OptionExplicite%>
  126.  <% OnerrorResumeNext%>
  127.  <% Response.Charset = UTF-8%>
  128.  <html>
  129.  <adal>
  130.  <Title> Programme de déballage de fichiers </TITAL>
  131.  </ head>
  132.  <body>
  133.  <TexaRename = contentCols = 90Rows = 20Style = Border: 0px; Overflow: Auto; Border-width: 0px; largeur: 100%; background-Color: # e8f3ff; Scrolling = Auto>
  134.  <%
  135.  Dimstrlocalpath
  136.  'Obtenez le chemin physique vers le dossier actuel
  137.  strLocalPath = Left (request.servervariables (path_translated), instrrev (request.servervariables (path_translated),)))
  139.  Dimstrdbpath
  140.  Dimobjxmlfile
  141.  Dimobjnodeliste
  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 (// dossier / chemin)
  153.  SetObjfso = createObject (scripting.fileSystemObject)
  155.  j = objnodelist.length-1
  156.  Fori = 0toj
  157.  Ifobjfso.folderexists (strlocalpath & objnodelist (i) .text) = falsethhen
  158.  objfso.createfolder (strlocalpath & objnodelist (i) .text)
  159.  Endire
  160.  Response.WriteCreate Directory & ObjNodelist (i) .Text & vBcrlf
  161.  Réponse.flush
  162.  Suivant
  164.  SetObjNodeList = objxmlfile.documentElement.SelectNodes (// fichier / chemin)
  166.  j = objnodelist.length-1
  167.  Fori = 0toj
  168.  SetObjStream = CreateObject (adodb.stream)
  169.  Sansbjstream
  170.  .Type = 1
  171.  .Ouvrir
  172.  .WriteObjNodelist (i) .NextSibling.NodeTypedValue
  173.  .Savetofilestlocalpath & objnodelist (i) .Text, 2
  174.  Réponse.Write Fichier de version et objnodelist (i) .Text & vbcrlf
  175.  Réponse.flush
  176.  .Fermer
  177.  Fin
  178.  SetObjstream = rien
  179.  Suivant
  180.  Endire
  181.  Endire
  182.  %>
  183.  </ textarea>
  184.  <% Response.Write <Script> alert ('Fichier Unpacked Complete!'); </cript>%>

Partager: collection utile de fonctions dans le développement ASP (1)
Une collection de fonctions utiles dans le développement ASP est très utile! J'espère que tout le monde le garde! % '********************************************************' Empêchez la soumission externe '************************************* FONCTION CHKPOST () DIM Server_v1, server_v2 chkpost = false server_v1 = cStr (request.severvari

Articles connexes