الصفحة الرئيسية>دروس برمجة الشبكات>البرنامج التعليمي لـ ASP

يستخدم ASP XML لتعبئة المجلد المحدد وتحميله إلى دليل الويب ، وتفريغه بنفسه

الكاتب：Eve Cole وقت التحديث：2025-05-26 20:32:01

موصى به: نصائح لكائنات خطأ ASP
في VBScript ، هناك عبارة عن خطأ في السيرة الذاتية التي تتسبب في تجاهل مترجم البرنامج النصي لتجاهل أخطاء وقت التشغيل ومتابعة تنفيذ رمز البرنامج النصي. ثم يمكن للنص التحقق من قيمة خاصية err.number لتحديد ما إذا كان حدث خطأ. في حالة حدوث خطأ ، يتم إرجاع قيمة غير صفرية. في ASP 3.0 ، يمكنك أيضًا استخدام Error Goto 0 "للعودة إلى" الافتراضي "

  1.  '==================================
  2.  'ملف 1
  3.  'pack.asp
  4.  "تغيير اسم cathName هذا المتغير
  5.  سيتم إنشاء ملف data.xml في الدليل الحالي
  6.  "تحميل data.xml والملف 2 (install.asp) إلى دليل جذر الويب
  7.  قم بتثبيت install.asp تفريغ
  8.  حذف ملفين أعلاه يدويًا
  9.  '==================================
  10.  <٪ OptionExplicit ٪>
  11.  <٪ onerrorresumenext ٪>
  12.  <٪
  13.  server.scriptTimeout = 99999999
  14.  DimCpathName
  15.  DimStartart ، endtime
  17.  قم بتغيير المسار إلى المجلد ليتم تعبئته هنا
  18.  cathName = F: WebSymr
  20.  وقت البدء = Timer ()
  21.  FunctionBianli (المسار)
  22.  Dimdoc
  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.createBject (scripting.filesystemObject)
  33.  setObJfolder = fso.getfolder (path) 'إنشاء كائن مجلد
  35.  الرد. writepath
  36.  استجابة
  38.  setDoc = server.createBject (msxml2.domdocument)
  39.  doc.loadserver.mappath (data.xml)
  40.  doc.async = false
  42.  اكتب إلى كل مسار مجلد
  43.  setxfolder = doc.selectsinglenode (// z-blog) .AppendChild (Doc.CreateElement (Folder))
  44.  setxfpath = xfolder.appendchild (Doc.CreateElement (path))
  45.  xfpath.text = استبدال (المسار ، cathName ،)
  47.  setobjfiles = objfolder.files
  48.  foreachobjfileinobjfiles
  49.  استجابة
  50.  ---
  51.  pp = path && objfile.name
  53.  الرد. writep &
  55.  استجابة
  57.  '================================================================
  58.  'المسار إلى الملف ومحتوى الملف
  59.  setxfile = doc.selectsinglenode (// z-blog) .appendchild (doc.createElement (file))
  61.  setxpath = xfile.appendchild (Doc.CreateElement (path))
  62.  xPath.Text = استبدال (pp ، cathName ،)
  64.  "قم بإنشاء دفق ملف لقراءة محتوى الملف واكتبه إلى ملف XML
  65.  setObjStream = server.createBject (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 ، جرة: Schemas-microsoft-com: أنواع البيانات
  73.  يتم تخزين محتوى الملف في نظامين
  74.  xstream.datatype = bin.base64
  75.  xstream.nodeTypedValue = objstream.read ()
  77.  setObjStream = لا شيء
  78.  setxpath = لا شيء
  79.  setxstream = لا شيء
  80.  setxfile = لا شيء
  82.  '================================================================
  83.  التالي
  84.  استجابة. 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.  بيانلي (اسم المسار)
  97.  التالي
  99.  setobjfolder = لا شيء
  100.  setobjsubfolders = لا شيء
  101.  setfso = لا شيء
  102.  الوظيفية
  104.  Dimdoc ، objpi
  105.  "إنشاء ملف XML فارغ للتحضير للكتابة إلى الملف
  106.  setDoc = server.createBject (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.  بيانلي (cathname)
  115.  endtime = timer ()
  116.  ٪>
  117.  وقت تنفيذ الصفحة: <٪ = formatnumber ((Endtime-Startartime) ، 3) ٪> ثواني
  119.  '=============================================
  120.  ملف 2
  121.  'install.asp
  122.  "يتم تغيير هذا الملف من ملف تثبيت Z-Blog
  123.  '=============================================
  124.  <٪@codepage = 65001 ٪>
  125.  <٪ OptionExplicit ٪>
  126.  <٪ onerrorresumenext ٪>
  127.  <٪ استجابة. Charset = UTF-8 ٪>
  128.  <html>
  129.  <head>
  130.  <title> برنامج تفريغ الملف </title>
  131.  </head>
  132.  <body>
  133.  <textarename = contentCols = 90Rows = 20style = الحدود: 0px ؛ تجاوز: تلقائي ؛ عرض الحدود: 0px ؛ العرض: 100 ٪ ؛ الخلفية اللون:#e8f3ff ؛ scrolling = auto>
  134.  <٪
  135.  Dimstrlocalpath
  136.  احصل على المسار المادي إلى المجلد الحالي
  137.  strlocalpath = يسار (request.servervariables (path_translated) ، instrev (request.ServerVariables (path_translated) ،)))))
  139.  Dimstrdbpath
  140.  dimobjxmlfile
  141.  dimobjnodelist
  142.  Dimobjfso
  143.  Dimobjstream
  144.  ديمي ، ي
  146.  setObjxmlfile = server.createBject (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.  استجابة
  162.  التالي
  164.  setObJnodelist = objxmlfile.documentElement.selectnodes (// file/path)
  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.  .savetofilestrlocalpath & objnodelist (i) .Text ، 2
  174.  respist.write ملف الإصدار و objnodelist (i) .text & vbcrlf
  175.  استجابة
  176.  .يغلق
  177.  endwith
  178.  setObjStream = لا شيء
  179.  التالي
  180.  Endif
  181.  Endif
  182.  ٪>
  183.  </textarea>
  184.  <٪ response.write <Script> ALERT ('FILE Unpacked Complete!') ؛ </script> ٪>

المشاركة: مجموعة مفيدة من الوظائف في تطوير ASP (1)
مجموعة من الوظائف المفيدة في تطوير ASP مفيدة للغاية! أتمنى أن يحافظ الجميع على ذلك! ٪ '************************************************************************************ ******************************************* Function CHKPOST () DIM Server_v1 ، Server_v2 chkpost = false server_v1 = cstr.servervari

مقالات ذات صلة