Código ASP para atravessar todas as pastas do site

<!-遍历站点所有文件夹->

<estilo>

<!-

corpo {tamanho da fonte: 12px;}

->

</style>

<scriptLanguage = "vBScript">

<!-

subfsubmit ()

form1.submit

Endsub

->

</script>

<formName = "form1" método = "post" action = "findFolder.asp">

<selectSize = "1" name = "fpath" onchange = "fsubmit ()">

<pptionValue = "0" Selected>-请选择-</pption>

<pptionValue = "/"> 整个站点 </pption>

<pptionValue = "."> 当前目录 </pption>

<%

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 & "'>" & reply (strpath, ".", "") & "

callbl (strpath & "/" & objsubfolder.name)

próximo

Função final

%>

</leclect>

</morm>

<%

fpath = request.form ("fpath")

iffpath <> "0" e spath <> vazio

Response.Write "<fontcolor =" "#ff0000" "> 当前文件夹:" & reply (fpath, ".", "") & "</font> <br> <br>"

setObJFolder = fso.getFolder (Server.mappath (fpath))

foreachobjsubFolderinObjFolder.SubFolders

Response.Write "子文件夹名称:" & objSubFolder.name & "<br>"

próximo

Response.Write "<br>"

foreachobjfileinobjfolder.files

Response.Write "文件名称 ：:" & objfile.name & "<br>"

próximo

setObjFolder = nada

Endif

%>

您可能感兴趣的文章: