<!-遍历站点所有文件夹->
<tyle>
<!-
body {font-size: 12px;}
->
</tyle>
<scriptLanguage = "vbscript">
<!-
subfsubmit ()
Form1.Submit
Endsub
->
</script>
<FormName = "Form1" Method = "Post" Action = "FindFolder.asp">
<selectSize = "1" name = "fpath" onchange = "fsubmit ()">
<optionValue = "0" Dipilih>-请选择-</pection>
<optionValue = "/"> 整个站点 </pection>
<optionValue = "."> 当前目录 </pection>
<%
Dimfso, objolder, objfile, strpath
setFSO = server.CreateObject ("Scripting.FilesystemObject")
strpath = "."
CallBL (Strpath)
functionbl (strpath)
setobjfolder = fso.getFolder (server.mappath (strpath))
foreachobjsubfolderinobjfolder.subfolder
Response.write "<optionValue = '" & strpath & "/" & objsubfolder.name & "'>" & ganti (strpath, ".", "") & "/" & Objsubfolder.name & "</option>" "
callbl (strpath & "/" & objsubfolder.name)
Berikutnya
Fungsi endfungsi
%>
</pilih>
</form>
<%
fpath = request.form ("fpath")
iffpath <> "0" andfpath <> emptmentthen
Response.write "<fontColor =" "#ff0000" "> 当前文件夹 :" & ganti (fpath, ".", "") & "</font> <br> <br>"
setobjfolder = fso.getFolder (server.mappath (fpath))
foreachobjsubfolderinobjfolder.subfolder
Response.write "子文件夹名称:" & objsubfolder.name & "<br>"
Berikutnya
Response.write "<br>"
foreachobjfileinobjfolder.files
Response.write "文件名称 :" & objfile.name & "<br>"
Berikutnya
setobjfolder = tidak ada
Endif
%>