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

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

上一个：asp adodb.stream对象的方法/属性
下一个：飞云写的防CC攻击的ASP程序插件 打包下载