FSO+递归生成文件列表(xml)-ASP教程,FSO专题

本来生成这个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,"&","&amp;") 把半角的&转化为&amp;

xml_format=strdirname

end function

%>