本来生成这个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,objFxml set 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.SubFolders For Each OneDir in objASD strFdName=Trim(OneDir.Name) '下面所列的文件夹不生成在列表中（系统文件或者隐藏文件） If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then OneDirName=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 '结束判断 Next set objSF=objFS.Files For Each OneFile in objSF '列出文件 objFxml.WriteLine("<file size="""&OneFile.size&""">"&OneFile.Name&"</file>") '生成<file>文件名</file> Next End Function '去掉XML不允许的字符 Function xml_format(strDirName) strDirName=Replace(strDirName,"&","&") '把半角的&转化为& xml_format=strDirName End Function %>