ในขั้นต้นเอกสาร XML นี้ถูกสร้างขึ้นเพื่อพัฒนาการค้นหา FTP แต่ต่อมาเนื่องจากไม่มีข้อมูลอ้างอิงถึงวิธีการค้นหาเอกสาร XML ฉันยอมแพ้ สิ่งที่สำคัญที่สุดคืออัลกอริทึมแบบเรียกซ้ำ ความเร็วในการสร้างรายการไฟล์นั้นเร็วมาก โปรแกรมนี้สามารถใช้ในการสร้างเพลย์ลิสต์และสิ่งอื่น ๆ มันต้องการการสนับสนุนจากองค์ประกอบ FSO ของ IIS สร้างเอกสาร XML คล้ายกับต่อไปนี้
<? XML เวอร์ชัน = 1.0 การเข้ารหัส = GB2312?>
<ftp ip = 10.1.228.228>
<dir path = game>
<dir path = Legend of Sword และ Fairy 2 (บันทึก)>
<size file = 346294> complete_camel.rar </file>
<size file = 1886286> prectiple_funlove.rar </file>
</ir>
</ir>
</ftp>
make_file_list.asp
<%@language = vbscript codepage = 936%>
-
-
'## ลิขสิทธิ์ (c) 2003 Zuiyu Wutong สงวนลิขสิทธิ์ -
'## ขับเคลื่อนด้วย Raid Rain Wutong ##'
'## http://btyz.51web.cn/ ##'
'## [email protected] ##'
-
Dim Objfo, OBJF, OBJAF, OBJFXML
ตั้งค่า objfo = createObject (scripting.filesystemobject) 'วัตถุ
ตั้งค่า objfxml = objfo.opentextfile (g:/เอกสารของฉัน/http/ผลงานส่วนบุคคล/ftp_search/ftp.xml, 2) 'เปิดไฟล์
objfxml.writeLine (<? xml version = 1.0 การเข้ารหัส = gb2312?>)
objfxml.writeLine (<ftp ip = 10.1.228.228>)
โทรหา xml_list (f:/) 'รายการเริ่มต้น
objfxml.writeLine (</ftp>)
Response.write (รายการก็โอเค!) 'รายการสำเร็จ
ฟังก์ชั่น xml_list (dirname)
ตั้งค่า objfs = objfo.getFolder (dirname)
ตั้งค่า objasd = objfs.subfolders
สำหรับ OneDir แต่ละอันใน Objasd
strfdname = trim (onedir.name)
'โฟลเดอร์ที่แสดงไว้ด้านล่างไม่ได้สร้างขึ้นในรายการ (ไฟล์ระบบหรือไฟล์ที่ซ่อนอยู่)
ถ้า strfdname <> config.msi eqv strfdname <> รีไซเคิล eqv strfdname <> Recycler eqv strfdname <> ข้อมูลระดับเสียงของระบบแล้ว
onedirName = xml_format (onedir.name) 'Escape &
objfxml.writeLine (<dir path = & oneDirName &>) 'สร้าง <dir path = โฟลเดอร์> </ir>
sdirName = dirname &/& oneDir.Name 'ที่อยู่เรียกซ้ำถัดไป
โทรหา xml_list (sdirname) 'การเรียกซ้ำการโทร
objfxml.writeLine (</ir>)
สิ้นสุดถ้า 'การตัดสินสิ้นสุด
ต่อไป
ตั้งค่า objsf = objfs.files
สำหรับแต่ละไฟล์ในรายการ objsf '
objfxml.writeLine (<file size = & onefile.size &> & onefile.name & </file>) 'สร้าง <file> filename </file>
ต่อไป
ฟังก์ชันสิ้นสุด
'ลบอักขระที่ไม่ได้รับอนุญาตจาก XML
ฟังก์ชั่น xml_format (strdirname)
strdirname = แทนที่ (strdirname, &, &) 'แปลงครึ่งหนึ่งของ & เป็น &
xml_format = strdirname
ฟังก์ชันสิ้นสุด