本来生成这个xml文档是为了开发个ftp搜索,后来由于没有资料参考如何搜索xml文档,也就放弃了.其中最重要是递归算法.生成文件列表速度很快.这个可以用于生成播放列表的类东东.需要IISFSO组件支持.生成类似下面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/ ##\'
\'## w[email protected] ##\'
\'######################################\'
Dim objFo,objF,objAF,objFxml
objFo=CreateObject(\"Scripting.FileObject\") \'对象

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)
objFS=objFo.GetFolder(DirName)
objASD=objFS.SubFolders
For Each _disibledevent=>\'下面所列文件夹不生成在列表中(系统文件或者隐藏文件)
If strFdName<>\"Config.Msi\" EQV strFdName<>\"RECYCLED\" EQV strFdName<>\"RECYCLER\" EQV strFdName<>\" 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
objSF=objFS.Files
For Each _disibledevent=>Next
End Function

\'去掉XML不允许
Function xml_format(strDirName)
strDirName=Replace(strDirName,\"&\",\"&amp;\") \'把半角&转化为&amp;
xml_format=strDirName
End Function
%>