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

<!-- 遍历站点所有文件夹 -->   
<style>   
<!--   
body{font-size:12px;}   
-->   
</style>   
<script language="vbscript">   
<!--   
sub fsubmit()   
form1.submit   
End sub   
-->   
</script>   
<form name="form1" method="post" action="test.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   
%>