ASP -Code, um alle Ordner der Site zu durchqueren

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

<Styles>

<!-

Körper {Schriftgröße: 12px;}

->

</style>

<scriptuanguage = "vbscript">

<!-

subfsubmit ()

Form1.Submit

Ende

->

</script>

<formname = "form1" methode = "post" action = "findFolder.asp">

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

<optionValue = "0" ausgewählt>-请选择-</option>

<optionValue = "/"> 整个站点 </option>

<optionValue = "."> 当前目录 </Option>

<%

Dimfso, Objfolker, ObjFile, Strpath

setfso = server.createObject ("scripting.filesystemObject")

strPath = "."

Callbl (strpath)

functionBl (strad)

setObjFolder = fso.getFolder (server.mappath (strad))

foreachObjsubfolderinobjFolder.SubFolders

Response.write "<optionValue = '" & strpath & "/" & objsubFolder.name & "'>" & ersetzen (strpath, ".

callbl (strad & "/" & objsubfolker.name)

nächste

Endfunktion

%>

</select>

</form>

<%

fpath = request.form ("fpath")

IffPath <> "0" und fpath <> leerthen

Response.write "<fontcolor =" "#ff0000" "> 当前文件夹 ：" & ersetzen (fpath ".", "") & "</Font> <br> <br>"

setObjFolder = fso.getFolder (server.mappath (fpath))

foreachObjsubfolderinobjFolder.SubFolders

Response.write "子文件夹名称:" & objsubFolder.name & "<br>"

nächste

Response.write "<br>"

foreachobjfileinobjFolder.files

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

nächste

setObjFolder = nichts

Endif

%>

您可能感兴趣的文章::