本来生成这个xml文档是为了开发一个ftp的搜索,后来由于没有资料参考怎么搜索xml文档,也就放弃了.其中最重要的是递归的算法.生成文件列表的速度很快.这个程序可以用于生成播放列表之类的东东.需要IIS的FSO组件支持.生成类似下面的XML文档

　　

<？xml version="1.0" encoding="gb2312"？><ftp ip="10.1.228.228"><DIR path="Game"><DIR path="仙剑奇侠传2（save）"><file size="346294">complete_camel.rar</file><file size="1886286">complete_funlove.rar</file></DIR></DIR></ftp>

　　make_file_list.asp

　　

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%'######################################''## Copyright (C) 2003 醉雨梧桐 All rights reserved. ##''## Powered by 醉雨梧桐 ##''## http://btyz.51web.cn/ ##''## winterfire@163.com ##''######################################'Dim objFo,objF,objAF,objFxmlset objFo=CreateObject("Scripting.FileSystemObject") '对象set objFxml=objFo.OpenTextFile("G:/My Documents/http/Personal Works/FTP_Search/ftp.xml",2) '打开文件objFxml.WriteLine("<？xml version=""1.0"" encoding=""gb2312""？>")objFxml.WriteLine("<ftp ip=""10.1.228.228"">")Call xml_list("F:/") '开始列表objFxml.WriteLine("</ftp>")Response.Write("List is OK!) '列表成功Function xml_list(DirName)set objFS=objFo.GetFolder(DirName)set objASD=objFS.SubFoldersFor Each OneDir in objASDstrFdName=Trim(OneDir.Name)'下面所列的文件夹不生成在列表中（系统文件或者隐藏文件）If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" ThenOneDirName=xml_format(OneDir.Name) '对&进行转义objFxml.WriteLine("<DIR path="""&OneDirName&""">") '生成<DIR path="文件夹"></DIR>SDirName=DirName&"/"&OneDir.Name '下一个递归的地址Call xml_list(SDirName) '调用递归objFxml.WriteLine("</DIR>")End If '结束判断Nextset objSF=objFS.FilesFor Each OneFile in objSF '列出文件objFxml.WriteLine("<file size="""&OneFile.size&""">"&OneFile.Name&"</file>") '生成<file>文件名</file>NextEnd Function'去掉XML不允许的字符Function xml_format(strDirName)strDirName=Replace(strDirName,"&","&amp;") '把半角的&转化为&amp;xml_format=strDirNameEnd Function%>