 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
本来生成这个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 %> 返回类别: 教程 上一教程: 细说ASP中COUNTERS组件 下一教程: 用ASP制作强盛的搜索引擎 您可以阅读与"FSO+递归生成文件列表(XML)"相关的教程: · 如何用ASP动态生成XML文件 · 用ASP随机生成文件名的函数 · VBS类生成XML文件 · 在不支持FSO的服务器上使用XMLDOM创建HTML文件 · 随机生成文件名的函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
