繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > FSO+递归生成文件列表(xml)
- ASP
- 飞云写的防CC攻击的ASP程序插件 打包下载
- 随机调用n条数据的方法分析
- 一个强健 实用的asp+ajax二级联动菜单(有演示和附源程序打包下载)
- asp 读取 utf-8格式文档并生成utf-8格式文档的乱码问题
- 实现纯真IP txt转mdb数据库的方法
- 用实现ASP批量删除目录及文件的代码
- [ASP]RegExp对象提供简单的正则表达式支持功能使用说明
- 用ASP生成UTF-8网页文件的两种方法
- asp利用fso给文件夹和文件改名的代码
- asp 采集实战代码
- 解决采集时出现msxml3.dll 错误的方法
- asp实现二进制字符串转换为Unicode字符串
- asp 用InStr查找特定字符串的代码
- [推荐]ASP编程通用函数收藏大全
- 去除HTML代码中所有标签的两种方法
- asp Chr 函数 数字转字母的方法
- asp快速开发方法之数据操作实例代码
- asp去除所有的超级链接的两种方法 替换与正则
- asp下实现截取字符串特定部分内容函数
- asp下取得客户端IP地址函数 转换IP地址函数
ASP 中的 FSO+递归生成文件列表(xml)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 107 ::
收藏到网摘: 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
