หน้าแรก>บทช่วยสอนการเขียนโปรแกรมเครือข่าย>กวดวิชา ASP

ASP ใช้ XML เพื่อจัดทำโฟลเดอร์ที่ระบุและอัปโหลดไปยังเว็บไดเรกทอรี

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-05-26 20:32:01

แนะนำ: เคล็ดลับสำหรับวัตถุข้อผิดพลาด ASP
ใน VBScript มีข้อผิดพลาดในการดำเนินการต่อคำสั่งถัดไปที่ทำให้สคริปต์ล่ามเพื่อละเว้นข้อผิดพลาดรันไทม์และดำเนินการต่อของรหัสสคริปต์ต่อไป จากนั้นสคริปต์สามารถตรวจสอบค่าของคุณสมบัติ err.number เพื่อตรวจสอบว่าเกิดข้อผิดพลาดหรือไม่ หากเกิดข้อผิดพลาดค่าที่ไม่เป็นศูนย์จะถูกส่งคืน ใน ASP 3.0 คุณยังสามารถใช้ข้อผิดพลาด GOTO 0 ถึง "กลับไปที่" ค่าเริ่มต้น

  1.  -
  2.  'ไฟล์ 1
  3.  'แพ็ค
  4.  'เปลี่ยน CPathName ตัวแปรนี้
  5.  'ไฟล์ data.xml จะถูกสร้างขึ้นในไดเรกทอรีปัจจุบัน
  6.  'อัปโหลด data.xml และ file 2 (install.asp) ไปยัง Web Root Directory
  7.  'Run Install.asp UNPACKING
  8.  'ลบไฟล์สองไฟล์ข้างต้นด้วยตนเอง
  9.  -
  10.  <%ตัวเลือก Explicit%>
  11.  <%onerrorresumenext%>
  12.  -
  13.  Server.ScriptTimeOut = 99999999
  14.  DimcPathName
  15.  Dimstartime, endtime
  17.  'เปลี่ยนเส้นทางไปยังโฟลเดอร์ที่จะบรรจุที่นี่
  18.  cPathName = f: webSymr
  20.  starttime = timer ()
  21.  functionbianli (เส้นทาง)
  22.  สลัว
  23.  วัตถุ dimfso'fso
  24.  วัตถุโฟลเดอร์ dimobjfolder '
  25.  คอลเลกชันย่อยของ Dimobjsubfolders '
  26.  วัตถุโฟลเดอร์ย่อยของ Dimobjsubfolder
  27.  คอลเลกชันไฟล์ของ Dimobjfiles
  28.  วัตถุไฟล์ dimobjfile
  29.  dimobjstream
  30.  dimpathName, textstream, pp, xfolder, xfpath, xfile, xpath, xstream
  32.  setfso = server.createObject (scripting.filesystemobject)
  33.  setObjFolder = fso.getFolder (พา ธ ) 'สร้างวัตถุโฟลเดอร์
  35.  Response.writepath
  36.  Response.flush
  38.  setDoc = server.createObject (msxml2.domDocument)
  39.  doc.loadserver.mappath (data.xml)
  40.  doc.async = false
  42.  'เขียนถึงแต่ละเส้นทางโฟลเดอร์
  43.  setxFolder = doc.selectsingLenode (// z-blog) .AppendChild (doc.createElement (โฟลเดอร์))
  44.  setxfpath = xfolder.appendChild (doc.createElement (PATH))
  45.  XfPath.Text = แทนที่ (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.  'พา ธ ไปยังไฟล์และเนื้อหาไฟล์
  59.  setxfile = doc.selectsingLenode (// z-blog) .AppendChild (doc.createElement (ไฟล์))
  61.  setxPath = xfile.AppendChild (doc.createElement (เส้นทาง))
  62.  xpath.text = แทนที่ (pp, cpathName,)
  64.  'สร้างสตรีมไฟล์เพื่ออ่านเนื้อหาไฟล์และเขียนลงในไฟล์ 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 (สตรีม))
  72.  xstream.setAttributexmlns: dt, urn: schemas-microsoft-com: datatypes
  73.  'เนื้อหาไฟล์ถูกเก็บไว้ในสองระบบ
  74.  xstream.datatype = bin.base64
  75.  xstream.nodetypedValue = objstream.read ()
  77.  setObjstream = ไม่มีอะไร
  78.  setxPath = ไม่มีอะไร
  79.  setxStream = ไม่มีอะไร
  80.  setxfile = ไม่มีอะไร
  82.  -
  83.  ต่อไป
  84.  Response.write <p>
  86.  doc.saveserver.mappath (data.xml)
  87.  setxfpath = ไม่มีอะไร
  88.  setxFolder = ไม่มีอะไร
  89.  setDoc = ไม่มีอะไร
  91.  'สร้างวัตถุโฟลเดอร์ย่อย
  92.  setobjsubfolders = objfolder.subfolders
  93.  'โทรไปสำรวจโฟลเดอร์ย่อยซ้ำซาก
  94.  foreachobjsubfolderinobjsubfolders
  95.  pathpathName = path ++ objsubfolder.name
  96.  Bianli (ชื่อพา ธ )
  97.  ต่อไป
  99.  setobjfolder = ไม่มีอะไร
  100.  SetObjSubFolders = ไม่มีอะไร
  101.  setfso = ไม่มีอะไร
  102.  endfunction
  104.  dimdoc, objpi
  105.  'สร้างไฟล์ XML ที่ว่างเปล่าเพื่อเตรียมพร้อมสำหรับการเขียนไปยังไฟล์
  106.  setDoc = server.createObject (msxml2.domDocument)
  107.  doc.async = false
  108.  setObjpi = doc.createProcessingInstruction (XML, เวอร์ชัน = '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 = ไม่มีอะไร
  113.  setDoc = ไม่มีอะไร
  114.  Bianli (CPathName)
  115.  endtime = timer ()
  116.  -
  117.  เวลาดำเนินการหน้า: <%= formatNumber ((endtime startime), 3)%> วินาที
  119.  -
  120.  'ไฟล์ 2
  121.  'ติดตั้ง.
  122.  'ไฟล์นี้เปลี่ยนจากไฟล์การติดตั้ง Z-Blog
  123.  -
  124.  <%@codePage = 65001%>
  125.  <%ตัวเลือก Explicit%>
  126.  <%onerrorresumenext%>
  127.  <%response.charset = utf-8%>
  128.  <html>
  129.  <head>
  130.  <title> โปรแกรมการแกะไฟล์ </title>
  131.  </head>
  132.  <body>
  133.  <textarename = contentCols = 90Rows = 20Style = ชายแดน: 0px; overflow: auto; border-width: 0px; ความกว้าง: 100%; พื้นหลังสี:#e8f3ff; sclolling = auto>
  134.  -
  135.  dimstrlocalpath
  136.  'รับเส้นทางทางกายภาพไปยังโฟลเดอร์ปัจจุบัน
  137.  strlocalpath = ซ้าย (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 = 4 จากนั้น
  150.  ifoBjxmlfile.parseerror.errorCode = 0 แล้ว
  152.  setObjnodelist = objxmlfile.documentelement.selectNodes (// โฟลเดอร์/เส้นทาง)
  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.  ต่อไป
  164.  setObJnodelist = objxmlfile.documentelement.selectNodes (// ไฟล์/พา ธ )
  166.  j = objnodelist.length-1
  167.  fori = 0toj
  168.  setObjstream = createObject (adodb.stream)
  169.  ไม่มี bjstream
  170.  .Type = 1
  171.  .เปิด
  172.  .writeobjnodelist (i) .nextsibling.nodetypedValue
  173.  .savetofilestrolocalpath & objnodelist (i) .Text, 2
  174.  response.write ไฟล์รีลีส & objnodelist (i) .Text & VBCRLF
  175.  Response.flush
  176.  .ปิด
  177.  จบลงด้วย
  178.  setObjstream = ไม่มีอะไร
  179.  ต่อไป
  180.  endif
  181.  endif
  182.  -
  183.  </textarea>
  184.  <%response.write <script> การแจ้งเตือน ('ไฟล์ที่ไม่ได้บรรจุเสร็จสมบูรณ์!'); </script>%>

แบ่งปัน: การรวบรวมฟังก์ชั่นที่เป็นประโยชน์ในการพัฒนา ASP (1)
คอลเลกชันของฟังก์ชั่นที่มีประโยชน์ในการพัฒนา ASP มีประโยชน์มาก! ฉันหวังว่าทุกคนจะเก็บไว้! % '**********************************************************************************************************************************************************************************

บทความที่เกี่ยวข้อง