Ursprünglich wurde dieses XML -Dokument generiert, um eine FTP -Suche zu entwickeln, aber später gab ich auf, da es keine Informationsverweis auf die Suche nach dem XML -Dokument gab. Der wichtigste war der rekursive Algorithmus. Die Geschwindigkeit der Generierung von Dateilisten war sehr schnell. Dieses Programm kann verwendet werden, um Wiedergabelisten und andere Dinge zu generieren. Es erfordert Unterstützung durch die FSO -Komponente von IIS. Generieren Sie XML -Dokumente ähnlich wie folgt
<xml Version = 1.0 coding = gb2312?>
<ftp ip = 10.1.228.228>
<Dir Path = Game>
<Dir Path = Legend of Sword und Fee 2 (Save)>
<Dateigröße = 346294> complete_camel.rar </file>
<Dateigröße = 1886286> complete_funlove.rar </file>
</Dir>
</Dir>
</ftp>
make_file_list.asp
<%@Sprache = vbscript codepage = 936%>
<%
'################################################################'
'## Copyright (C) 2003 Zuiyu Wutong Alle Rechte vorbehalten. ## '
'## angetrieben von betrunkenem Regen Wutong ##'
'## http://btyz.51web.cn/ ##'
'## [email protected] ##'
'################################################################'
Dim Objfo, Objf, Objaf, Objfxml
Setzen Sie objfo = createObject (scripting.FilesSystemObject) 'Objekt
Setzen Sie objfxml = objfo.opentextFile (g:/meine Dokumente/http/Personal Works/ftp_search/ftp.xml, 2) 'Öffnen Sie die Datei öffnen
objfxml.writeLine (<? xml Version = 1.0 coding = gb2312?>)
objfxml.writeLine (<ftp ip = 10.1.228.228>)
Rufen Sie XML_List (f:/) 'Startliste an
objfxml.writeLine (</ftp>)
Antwort.Write (Liste ist in Ordnung!) 'Die Liste ist erfolgreich
Funktion xml_list (DirName)
Setzen Sie objfs = objfo.getFolder (DirName)
Setzen Sie objasd = objfs.subFolders
Für jeden Onedir in Objasd
strfdname = trim (OneDir.name)
'Die unten aufgeführten Ordner sind in der Liste nicht generiert (Systemdateien oder versteckte Dateien)
Wenn StrfdName <> config.msi EQV strfdname <> recyceltes EQV strfdname <> Recycler EQV StrfdName <> Systemvolumeninformationen, dann dann
ONEDIRNAME = XML_FORMAT (ONEDIR.NAME) 'ESCECT & ESCECT & ESCECT & AUS
OBJFXML.WriteLine (<Dire Path = & OneDiRName &>) 'Generieren <Dire path = Ordner> </dire>
Sdirname = dirname &/& oneedir.name 'nächste rekursive Adresse
Rufen Sie XML_LIST (SDIRNAME) 'CALL -Rekursion an
objfxml.writeLine (</dir>)
Ende wenn 'Endurteil
Nächste
Setzen Sie OBJSF = objfs.files
Für jede OneFile in OBJSF 'Listen Sie die Dateien auf
objfxml.writeLine (<Datei size = & oneFile.size &> & oneFile.name & </file>) 'generieren <datei> Dateiname </file>
Nächste
Endfunktion
'Entfernen Sie Zeichen, die von XML nicht zulässig sind
Funktion XML_Format (strdirname)
StrDirname = Ersetzen (strdirname &, &) 'Konvertieren Sie die Hälfte des & in & & & & & & & eine
XML_FORMAT = strDirname
Endfunktion