Код ASP, чтобы пройти все папки сайта

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

<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 = ничего

Эндиф

%>

您可能感兴趣的文章: