!-- 遍历站点所有文件夹 -->  
style>  
!--  
body{font-size:12px;}  
-->  
/style>  
script language="vbscript">  
!--  
sub fsubmit()  
form1.submit  
End sub  
-->  
/script>  
form name="form1" method="post" action="findfolder.asp">  
select size="1" name="fpath" onchange="fsubmit()">  
option value="0" selected>--请选择--/option>  
option value="/">整个站点/option>  
option value=".">当前目录/option>  
%  
Dim fso,objfolder,objfile,strpath  
set fso=server.createobject("Scripting.FileSystemObject")  

strpath="."  
call bl(strpath)  

function bl(strpath)  
set objfolder=fso.getfolder(server.mappath(strpath))  

for each objsubfolder in objfolder.subfolders  
Response.write "option value='"  strpath  "\"  objsubfolder.name  "'>"  replace(strpath,".","")  "\"  objsubfolder.name  "/option>"  
call bl(strpath  "\"  objsubfolder.name)  
next  

End function  
%>  
/select>  
/form>  

%  
fpath=Request.form("fpath")  

if fpath>"0" and fpath>Empty then  

Response.write "font color=""#FF0000"">当前文件夹："  replace(fpath,".","")  "/font>br>br>"  

set objfolder=fso.getfolder(server.mappath(fpath))  

for each objsubfolder in objfolder.subfolders  
Response.write "子文件夹名称:"  objsubfolder.name  "br>"  
next  

Response.write "br>"  

for each objfile in objfolder.files  
Response.write "文件名称："  objfile.name  "br>"  
next  

set objfolder=nothing  

End if  
%>