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