ASP中FSO加递归生成文件列表（xml）

ASP中FSO加递归生成文件列表（xml）2007-10-02本来生成这个xml文档是为了开发一个ftp的搜索,后来由于没有资料参考怎么搜索xml文档,也就放弃了.其中最重要的是递归的算法.生成文件列表的速度很快.这个程序可以用于生成播放列表之类的东东.需要的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 DocumentshttpPersonal WorksFTP_Searchftp.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,"&","&amp;"） "把半角的&转化为&amp;
xml_format=strDirName
End Function
%>