<! - 遍历站点所有文件夹 ->
<style>
<! -
corps {taille de police: 12px;}
->
</ style>
<criptLanguage = "vbscript">
<! -
subfsubmit ()
Form1.Soubmettez
Fin
->
</cript>
<formName = "form1" méthode = "post" action = "findfolder.asp">
<lectSize = "1" name = "fpath" onchange = "fsubmit ()">
<optionValue = "0" sélectionné> - 请选择 - </ 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.subtsers
Réponse.write "<optionValue = '" & strpath & "/" & objsubfolder.name & "'>" & remplacer (strpath, ".", "") & "/" & Objsubfolder.name & "</ option>"
callbl (strpath & "/" & objsubfolder.name)
suivant
Finition de fin
%>
</lect>
</ form>
<%
fpath = request.form ("fpath")
iffpath <> "0" etfpath <> videthen
Réponse.write "<fontcolor =" "# ff0000" "> 当前文件夹 ：" & remplacer (fpath, ".", "") & "</font> <br> <br>"
setObjfolder = fso.getfolder (server.mappath (fpath))
foreachobjsubfolderinobjfolder.subtsers
Réponse.write "子文件夹名称:" & objsubfolder.name & "<br>"
suivant
Réponse.WRITE "<br>"
foreachobjfileinobjfolder.files
Response.Write "文件名称 ：" & objfile.name & "<br>"
suivant
setObjfolder = rien
Endire
%>