<!-遍历站点所有文件夹->
<style>
<!-
الجسم {font-size: 12px ؛}
->
</style>
<scriptLanguage = "vbscript">
<!-
subfsubmit ()
Form1.Submit
ينتهي
->
</script>
<PormName = "form1" method = "post" Action = "FindFolder.asp">
<selectize = "1" name = "fpath" onChange = "fsubmit ()">
<PointValue = "0" محدد>-请选择-</option>
<PointValue = "/"> 整个站点 </soph>
<PointValue = "."> 当前目录 </soph>
<٪
Dimfso ، objfolder ، objfile ، strprath
setfso = server.createObject ("scripting.filesystemObject")
strprath = "."
Callbl (Strath)
FunctionBl (Strath)
setobjfolder = fso.getfolder (server.mappath (strprath))
foreachobjsubfolderinobjfolder.subfolders
Response.write "<OptionValue =" "& strprath &"/"& objsubfolder.name &" '> "& replace (strath ،". "،") & "/" & objsubfolder.name & "</soph>"
CallBl (strprath & "/" & objsubfolder.name)
التالي
الوظيفية
٪>
</select>
</form>
<٪
fpath = request.form ("fpath")
IFFPATH <> "0" andfpath <> فارغة
Response.write "<fontcolor =" "#ff0000" "> 当前文件夹 :" & replace (fpath ، "." ، ") &" </font> <br> <br> "
setObjfolder = fso.getfolder (server.mappath (fpath))
foreachobjsubfolderinobjfolder.subfolders
Response.write "子文件夹名称:" & objsubfolder.name & "<br>"
التالي
الرد. "<br>"
foreachobjfileinobjfolder.files
Response.write ": :" & objfile.name & "<br>"
التالي
setobjfolder = لا شيء
Endif
٪>