<!-遍历站点所有文件夹->
<style>
-
ร่างกาย {ตัวอักษรขนาด: 12px;}
-
</style>
<scriptLanguage = "vbscript">
-
subfsubmit ()
Form1.submit
enddub
-
</script>
<formName = "form1" method = "post" action = "findFolder.asp">
<selectSize = "1" name = "fPath" onChange = "fSubMit ()">
<optiveValue = "0" เลือก>-请选择-</petion>
<optiveValue = "/"> 整个站点 </petion>
<aptovientValue = "."> 当前目录 </potion>
-
dimfso, objfolder, objfile, strpath
setfso = server.createObject ("Scripting.FilesYstemObject")
strpath = "."
callbl (strpath)
functionbl (strpath)
setObjFolder = fso.getFolder (Server.mappath (strpath))
foreachobjsubfolderinobjfolder.subfolders
Response.write "<optiveValue = '" & strpath & "/" & objsubfolder.name & "'>" & แทนที่ (strpath, ".", "") & "/" & objsubfolder.name & "</ตัวเลือก>"
callbl (strpath & "/" & objsubfolder.name)
ต่อไป
endfunction
-
</เลือก>
</form>
-
fpath = request.form ("fpath")
iffpath <> "0" และ fpath <> emptythen
Response.write "<fontcolor =" "#ff0000" "> 当前文件夹：" & แทนที่ (fpath, ".", "") & "</font> <br> <br>"
setObjFolder = fso.getFolder (Server.mappath (fPath))
foreachobjsubfolderinobjfolder.subfolders
Response.write "子文件夹名称:" & objsubfolder.name & "<br>"
ต่อไป
Response.write "<br>"
foreachobjfileinobjfolder.files
Response.write "文件名称：" & objfile.name & "<br>"
ต่อไป
setobjfolder = ไม่มีอะไร
endif
-