Inicio>Tutorial de programación de red>Tutorial ASP

ASP usa XML para empaquetar la carpeta especificada y cargarla en el directorio web, desactivarlo por sí mismo

Autor：Eve Cole Fecha de actualización：2025-05-26 20:32:01

Recomendado: Consejos para objetos de error ASP
En VBScript, hay una declaración de reanudación de error ON que hace que el intérprete de script ignore los errores de tiempo de ejecución y continúe la ejecución del código de script. Luego, el script puede verificar el valor de la propiedad Err.Number para determinar si ocurrió un error. Si se produce un error, se devuelve un valor distinto de cero. En ASP 3.0, también puede usar el error GOTO 0 para "volver a" el valor predeterminado

  1.  '==================================
  2.  'Archivo 1
  3.  'Pack.asp
  4.  'Cambiar cpathname esta variable
  5.  'Se generará un archivo data.xml en el directorio actual
  6.  'Cargar data.xml y archivo 2 (install.asp) en el directorio raíz web
  7.  'Ejecutar instalación.asp desempaquetando
  8.  'Eliminar manualmente los dos archivos anteriores
  9.  '==================================
  10.  <%OpcionExplicit%>
  11.  <%OnerrorResumEnext%>
  12.  <%
  13.  Server.scripttimeout = 99999999
  14.  nombre dimcpathname
  15.  DiMSTARTIME, ENDTIME
  17.  'Cambie el camino a la carpeta que se empaqueta aquí
  18.  CPATHNAME = F: WebSymr
  20.  starttime = timer ()
  21.  functionBianli (ruta)
  22.  dimdoc
  23.  objeto dimfso'fso
  24.  objeto de carpeta de dimobjfolder '
  25.  Colección de subcarpetas de Dimobjsubfolders
  26.  Objeto de subcarpeta de DimobjSubFolder
  27.  colección de archivos de DimobjFiles
  28.  objeto de archivo dimobjfile '
  29.  dimobjstream
  30.  dimpathName, textstream, pp, xfoler, xfpath, xfile, xpath, xstream
  32.  setfso = server.createObject (scripting.filesystemObject)
  33.  setobjfolder = fso.getfolder (ruta) 'Crear objeto de carpeta
  35.  Respuesta.Writepath
  36.  Respuesta. Flush
  38.  SetDoc = server.createObject (msxml2.domdocument)
  39.  doc.loadserver.mappath (data.xml)
  40.  doc.async = falso
  42.  'Escribe en cada ruta de carpeta
  43.  setxfolder = doc.selectsinglenode (// z-blog) .appendChild (doc.createElement (carpeta))
  44.  Setxfpath = xfolder.appendChild (doc.createElement (ruta))
  45.  Xfpath.text = reemplazar (ruta, cpathname,)
  47.  setobjfiles = objfolder.files
  48.  foreachobjfileinobjfiles
  49.  Respuesta. Escribe
  50.  ---
  51.  PP = Path && objfile.name
  53.  Respuesta.Writep &
  55.  Respuesta. Flush
  57.  '=====================================================================
  58.  'La ruta al archivo y el contenido del archivo
  59.  setXfile = doc.selectsinglenode (// z-blog) .appendChild (doc.createElement (archivo))
  61.  SetXpath = xfile.appendChild (doc.createElement (ruta))
  62.  Xpath.text = reemplazar (pp, cpathname,)
  64.  'Cree una transmisión de archivo para leer el contenido del archivo y escribirlo en el archivo 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, Urna: Schemas-Microsoft-Com: Tipos de datos
  73.  'El contenido del archivo se almacena en dos sistemas
  74.  Xstream.datatype = bin.base64
  75.  Xstream.nodetypedValue = objstream.read ()
  77.  setobjstream = nada
  78.  setxpath = nada
  79.  setxstream = nada
  80.  setXfile = nada
  82.  '=====================================================================
  83.  próximo
  84.  Respuesta.Write <P>
  86.  doc.saveserver.mappath (data.xml)
  87.  setxfpath = nada
  88.  setxfolder = nada
  89.  setDoc = nada
  91.  'Objeto de subcarpeta creado
  92.  setobjsubfolders = objfolder.subfolders
  93.  'Llamada recursivamente atraviesa subcarpetas
  94.  foreachobjsubfolderinobjsubfolders
  95.  PathPathName = Path ++ objsubfolder.name
  96.  Bianli (nombre de ruta)
  97.  próximo
  99.  setobjfolder = nada
  100.  setobjsubfolders = nada
  101.  setfso = nada
  102.  Función final
  104.  dimdoc, objpi
  105.  'Cree un archivo XML vacío para prepararse para escribir en el archivo
  106.  SetDoc = server.createObject (msxml2.domdocument)
  107.  doc.async = falso
  108.  setobjpi = Doc.CreateProcessingInstruction (xml, versión = '1.0'Encoding =' UTF-8 ')
  109.  doc.insertbeforeBjpi, doc.childnodes (0)
  110.  doc.appendchild (Doc.CreateElement (Z-Blog))
  111.  doc.saveserver.mappath (data.xml)
  112.  setobjpi = nada
  113.  setDoc = nada
  114.  Bianli (CPATHNAME)
  115.  EndTime = Timer ()
  116.  %>
  117.  Tiempo de ejecución de la página: <%= formatNumber ((endtime-startime), 3)%> segundos
  119.  '===============================================
  120.  'Archivo 2
  121.  'Instalar.asp
  122.  'Este archivo se cambia desde el archivo de instalación de Z-Blog
  123.  '===============================================
  124.  <%@CodePage = 65001%>
  125.  <%OpcionExplicit%>
  126.  <%OnerrorResumEnext%>
  127.  <%Respuesta.CharSet = UTF-8%>
  128.  <html>
  129.  <Evista>
  130.  <title> Programa de desempaquetado de archivos </title>
  131.  </ablo>
  132.  <Body>
  133.  <TextArEname = contentCols = 90Rows = 20Style = border: 0px; desbordamiento: auto; border-width: 0px; ancho: 100%; color de fondo:#e8f3ff; desplazamiento = auto>
  134.  <%
  135.  Dimstrlocalpath
  136.  'Obtenga el camino físico a la carpeta actual
  137.  strlocalPath = Left (request.serverVariAnbles (path_translated), instrrev (request.ServerVariAbles (PATH_translated),)))
  139.  Dimstrdbpath
  140.  Dimobjxmlfile
  141.  Dimobjnodelista
  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.errrocode = 0then
  152.  Setobjnodelist = objxmlfile.documentelement.selectnodes (// carpeta/ruta)
  153.  Setobjfso = createObject (scripting.filesystemObject)
  155.  j = objnodelist.length-1
  156.  Fori = 0toj
  157.  Ifobjfso.foldereRexists (strlocalpath & objnodelist (i) .text) = falsethen
  158.  objfso.createFolder (strlocalpath & objnodelist (i) .text)
  159.  Endif
  160.  Response.writeCreate Directorio y objnodelist (i) .Text & vbcrlf
  161.  Respuesta. Flush
  162.  Próximo
  164.  Setobjnodelist = objxmlfile.documentelement.selectnodes (// file/ruta)
  166.  j = objnodelist.length-1
  167.  Fori = 0toj
  168.  Setobjstream = createObject (ADODB.Stream)
  169.  Sinbjstream
  170.  .Type = 1
  171.  .Abierto
  172.  .WriteObJnodelist (i) .Nextsibling.nodetyPedValue
  173.  .Savetofilestrlocalpath & objnodelist (i) .text, 2
  174.  Response.write File de lanzamiento y objnodelist (i) .Text & vbcrlf
  175.  Respuesta. Flush
  176.  .Cerca
  177.  Fin
  178.  Setobjstream = nada
  179.  Próximo
  180.  Endif
  181.  Endif
  182.  %>
  183.  </textarea>
  184.  <%respuesta.write <script> Alert ('File Desempaquetado completo!'); </script>%>

Acción: Colección útil de funciones en el desarrollo de ASP (1)
¡Una colección de funciones útiles en el desarrollo de ASP es bastante útil! ¡Espero que todos lo mantengan! % '****************************************************** 'Prevent external submission'*************************************** function ChkPost() dim server_v1,server_v2 chkpost=false server_v1=Cstr(Request.ServerVari

Artículos relacionados