FSO+递归生成文件列表(XML)
类别: ASP教程
本来生成这个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"%>
<%
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,"&","&") \'把半角的&转化为&
xml_format=strDirName
End Function
%>
<?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"%>
<%
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,"&","&") \'把半角的&转化为&
xml_format=strDirName
End Function
%>
- 上一篇: 使用CDO通过外部邮件服务器发邮件
- 下一篇: WEB环境下办公自动化文档修改痕迹保留的实现
-= 资 源 教 程 =-
文 章 搜 索