<!-- 遍历站点所有文件夹 -->   <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   %>