本來生成這個xml文檔是為了開發一個ftp的搜索,后來由于沒有資料參考怎么搜索xml文檔,也就放棄了.其中最重要的是遞歸的算法.生成文件列表的速度很快.這個程序可以用于生成播放列表之類的東東.需要IIS的FSO組件支持.生成類似下面的XML文檔

1. <?xml version="1.0" encoding="gb2312"?>  
2. <ftp ip="10.1.228.228">  
3. <DIR path="Game">  
4. <DIR path="仙劍奇俠傳2（save）">  
5. <file size="346294">complete_camel.rar</file>  
6. <file size="1886286">complete_funlove.rar</file>  
7. </DIR>  
8. </DIR>  
9. </ftp>  
10.  
11. make_file_list.asp  
12. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  
13. <%  
14. '######################################'  
15. '## Copyright (C) 2003 醉雨梧桐 All rights reserved. ##'  
16. '## Powered by 醉雨梧桐 ##'  
17. '## http://btyz.51web.cn/ ##'  
18. '## winterfire@163.com ##'  
19. '######################################'  
20. Dim objFo,objF,objAF,objFxml  
21. set objFo=CreateObject("Scripting.FileSystemObject") '對象  
22.  
23. set objFxml=objFo.OpenTextFile("G:\My Documents\http\Personal Works\FTP_Search\ftp.xml",2) '打開文件  
24.  
25. objFxml.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>")  
26. objFxml.WriteLine("<ftp ip=""10.1.228.228"">")  
27. Call xml_list("F:\") '開始列表  
28. objFxml.WriteLine("</ftp>")  
29. Response.Write("List is OK!) '列表成功  
30.  
31.  
32. Function xml_list(DirName)  
33. set objFS=objFo.GetFolder(DirName)  
34. set objASD=objFS.SubFolders  
35. For Each OneDir in objASD  
36. strFdName=Trim(OneDir.Name)  
37. '下面所列的文件夾不生成在列表中（系統文件或者隱藏文件）  
38. If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then  
39. OneDirName=xml_format(OneDir.Name) '對&進行轉義  
40. objFxml.WriteLine("<DIR path="""&OneDirName&""">") '生成<DIR path="文件夾"></DIR>  
41. SDirName=DirName&"\"&OneDir.Name '下一個遞歸的地址  
42. Call xml_list(SDirName) '調用遞歸  
43. objFxml.WriteLine("</DIR>")  
44. End If '結束判斷  
45. Next  
46. set objSF=objFS.Files  
47. For Each OneFile in objSF '列出文件  
48. objFxml.WriteLine("<file size="""&OneFile.size&""">"&OneFile.Name&"</file>") '生成<file>文件名</file>  
49. Next  
50. End Function  
51.  
52. '去掉XML不允許的字符  
53. Function xml_format(strDirName)  
54. strDirName=Replace(strDirName,"&","&") '把半角的&轉化為&  
55. xml_format=strDirName  
56. End Function  
57. %>