Código ASP para atravesar todas las carpetas del sitio

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

<estilo>

<!-

Cuerpo {Font-Size: 12px;}

->

</style>

<scriptLanguage = "vBscript">

<!-

subfsubmit ()

form1.submit

Endsub

->

</script>

<FormName = "Form1" Method = "Post" Action = "FindFolder.asp">

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

<optionValue = "0" seleccionado>-请选择-</opción>

<optionValue = "/"> 整个站点 </opción>

<optionValue = "."> 当前目录 </opción>

<%

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 & "'>" & reemplazar (strpath, ".", ") &"/"& Objsubfolder.name &" </opción> "

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

próximo

Función final

%>

</select>

</form>

<%

fpath = request.form ("fpath")

iffpath <> "0" yfpath <> vacío

Response.write "<fontColor =" "#ff0000" "> 当前文件夹 ：" & reemplazar (fpath, ".", "") Y "</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

%>

您可能感兴趣的文章: