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

时间:2022-09-02 21:16:49
  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. %>