FSO+递归生成文件列表(xml)

本来生成这个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/ ##'
'## [e-mail] ##'
'######################################'
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
%>