À l'origine, ce document XML a été généré pour développer une recherche FTP, mais plus tard, car il n'y avait aucune référence d'informations à la recherche du document XML, j'ai abandonné. Le plus important était l'algorithme récursif. La vitesse de génération de listes de fichiers a été très rapide. Ce programme peut être utilisé pour générer des listes de lecture et d'autres choses. Il nécessite le soutien de la composante FSO d'IIS. Générer des documents XML similaires à ce qui suit
<? xml version = 1.0 Encoding = GB2312?>
<ftp ip = 10.1.228.228>
<Dir path = jeu>
<Dir Path = Legend of Sword et Fairy 2 (Save)>>
<file size = 346294> complet_camel.rar </fichier>
<file size = 1886286> complet_funlove.rar </fichier>
</ Dir>
</ Dir>
</ftp>
Make_file_list.asp
<% @ Language = codepage VBScript = 936%>
<%
'###########################################################
'## Copyright (C) 2003 Zuiyu Wutong Tous droits réservés. ## '
'## Powered by Drunk Rain Wutong ##'
'## http://btyz.51web.cn/ ##'
'## [email protected] ##'
'###########################################################
DIM OBJFO, OBJF, OBJAF, OBJFXML
Définir Objfo = CreateObject (Scripting.FileSystemObject) 'Objet
Définir objfxml = objfo.opentextfile (g: / mes documents / http / works personnel / ftp_search / ftp.xml, 2) 'ouvrir le fichier
objfxml.writeline (<? xml version = 1.0 Encoding = gb2312?>)
objfxml.writeline (<ftp ip = 10.1.228.228>)
Appelez XML_LIST (F: /) 'Liste de démarrage
objfxml.writeline (</ftp>)
Response.Write (la liste est OK!) 'La liste réussit
Fonction xml_list (dirname)
Définir objfs = objfo.getfolder (dirname)
définir objasd = objfs.subbolders
Pour chaque Onedir dans Objasd
strfdname = trim (Onedir.name)
«Les dossiers répertoriés ci-dessous ne sont pas générés dans la liste (fichiers système ou fichiers cachés)
Si strfdname <> config.msi eqv strfdname <> eqv recyclé strfdname <> recycler eqv strfdname <> information de volume du système puis alors
Onedirname = xml_format (onedir.name) 'Escape &
objfxml.writeLine (<dir path = & onedirname &>) 'générer <dir path = dossier> </ dir>
Sdirname = dirname & / & onedir.name 'Adresse récursive suivante
Appeler XML_LIST (SDIRNAME) 'Appeler Recursion
objfxml.writeline (</ dir>)
Terminer si 'finir le jugement
Suivant
définir objsf = objfs.files
Pour chaque fichier one-fichier dans OBJSF, listez les fichiers
objfxml.writeLine (<file size = & onefile.size &> & onefile.name & </ file>) 'générer <fichier> nom de fichier </fichier>
Suivant
Fonction finale
'Supprimer les caractères qui ne sont pas autorisés par XML
Fonction xml_format (strdirname)
strdirname = remplacer (strdirname, &, &) 'convertir la moitié du & en &
xml_format = strdirname
Fonction finale