繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > FSO+递归生成文件列表(xml)
- ASP
- ASP实例代码：搞个长文章分页代码
- 说说对象的复制
- 多个函数验证同一表单
- 查询某个字段没有值的所有记录的SQL语句怎么写？
- ASP实例：一个简单的ASP无组件上传类
- ASP实例讲解：用分页符实现长文章分页显示
- ASP实例：动态网页中常用的6个ASP程序
- ASP实例：词语搭配游戏的制作
- ASP实例学习：随机生成文件名的函数
- asp实例：测试WEB服务器
- ASP实例：计数器程序详解
- 预防ASP网站被黑 彻底了解ASP木马
- 分享：XML HTTP Request的属性和方法简介
- ASP架设：给每个IIS站点建立一个用户
- ASP技巧：判断远程图片是否存在
- 故障解决：解决ASP脚本运行超时的方法
- 再说ASP输出N行N列表格
- 怎么判断一个对象是否已被释放
- ASP实现网页打开任何类型文件都保存的方法
- ASP技巧：利用函数InstrRev()获取当前文件名
ASP 中的 FSO+递归生成文件列表(xml)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 82 ::
收藏到网摘: n/a
本来生成这个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/ ##'
'## [email protected] ##'
'######################################'
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
%>
评论 (0) All
