<!-遍历站点所有文件夹->
<style>
<!-
Body {font-size: 12px;}
->
</style>
<scriptlanguage = "vbscript">
<!-
subfSubmit ()
Form1.submit
Заканчивая
->
</script>
<formname = "form1" method = "post" action = "findfolder.asp">
<selectsize = "1" name = "fpath" onchange = "fsubmit ()">
<optionvalue = "0" Выбран>-请选择-</option>
<optionvalue = "/"> 整个站点 </option>
<optionvalue = "."> 当前目录 </option>
<%
Dimfso, objfolder, objfile, strpath
setfso = server.createObject ("scripting.filesystemobject")
strpath = "."
Callbl (Strpath)
functionbl (strpath)
setObjFolder = fso.getFolder (server.mappath (strpath))
foreachobjsubfolderinobjfolder.subfolders
Response.write "<optionvalue = '" & strpath & "/" & objsubfolder.name & "'>" & rypety (strpath, ".", "") & "/" & Objsubfolder.name & "</option>"
Callbl (strpath & "/" & objsubfolder.name)
следующий
Конечная функция
%>
</select>
</form>
<%
fpath = request.form ("fpath")
iffpath <> "0" и fpath <> pellythen
Response.write "<fontcolor =" "#ff0000" "> 当前文件夹 :" & reply (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 = ничего
Эндиф
%>