asp遍历站点所有文件夹的代码

1. <!-- 遍历站点所有文件夹 -->    
2. <style>    
3. <!--    
4. body{font-size:12px;}    
5. -->    
6. </style>    
7. <script language="vbscript">    
8. <!--    
9. sub fsubmit()    
10. form1.submit    
11. End sub    
12. -->    
13. </script>    
14. <form name="form1" method="post" action="findfolder.asp">    
15. <select size="1" name="fpath" onchange="fsubmit()">    
16. <option value="0" selected>--请选择--</option>    
17. <option value="/">整个站点</option>    
18. <option value=".">当前目录</option>    
19. <%    
20. Dim fso,objfolder,objfile,strpath    
21. set fso=server.createobject("Scripting.FileSystemObject")    
22.  
23. strpath="."    
24. call bl(strpath)    
25.  
26. function bl(strpath)    
27. set objfolder=fso.getfolder(server.mappath(strpath))    
28.  
29. for each objsubfolder in objfolder.subfolders    
30. Response.write "<option value='" & strpath & "\" & objsubfolder.name & "'>" & replace(strpath,".","") & "\" & objsubfolder.name & "</option>"    
31. call bl(strpath & "\" & objsubfolder.name)    
32. next    
33.  
34. End function    
35. %>    
36. </select>    
37. </form>    
38.  
39. <%    
40. fpath=Request.form("fpath")    
41.  
42. if fpath<>"0" and fpath<>Empty then    
43.  
44. Response.write "<font color=""#FF0000"">当前文件夹：" & replace(fpath,".","") & "</font><br><br>"    
45.  
46. set objfolder=fso.getfolder(server.mappath(fpath))    
47.  
48. for each objsubfolder in objfolder.subfolders    
49. Response.write "子文件夹名称:" & objsubfolder.name & "<br>"    
50. next    
51.  
52. Response.write "<br>"    
53.  
54. for each objfile in objfolder.files    
55. Response.write "文件名称：" & objfile.name & "<br>"    
56. next    
57.  
58. set objfolder=nothing    
59.  
60. End if    
61. %>