|
本来生成这个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 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 |