<！ - 遍歷站點所有文件夾->
<樣式>
<！ -
身體{字體大小：12px;}
- >
</style>
<ScriptLanguage =“ VBScript”>
<！ -
subfsubmit（）
form1.submit
endub
- >
</script>
<formName =“ form1” method =“ post” action =“ findfolder.asp”>
<selectsize =“ 1” name =“ fpath” onChange =“ fsubmit（）”>
<optionValue =“ 0”選擇> - 請選擇-</option>
<optionValue =“/”>整個站點</option>
<optionValue =“。”>當前目錄</option>
<％
dimfso，objfolder，objfile，溝渠
setfso = server.createobject（“ scripting.filesystemobject”）
峰值=“。”。
callbl（溝渠）
功能BL（溝渠）
setObjfolder = fso.getFolder（server.mappath（strpath））
foreachObjSubFolderInObjFolder.SubFolders
wress.write“ <optionValue ='”＆strpath＆“/”＆objsubfolder.name＆“＆”'>“＆replace（strath，”，“。”，“”）＆“”/“”＆objsubfolder.name＆name＆option>“ </opect>”
callbl（峰值＆“/”＆objsubfolder.name）
下一個
最終功能
％>
</select>
</form>
<％
fpath = request.form（“ fpath”）
iffpath <>“ 0”和fpath <>空
wrespons.write“ <fontcolor =”“＃ff0000”>當前文件夾：“＆替換（fpath，”。“。”，“”）＆“ </font> <br> <br> <br>”
setObjfolder = fso.getFolder（server.mappath（fpath））
foreachObjSubFolderInObjFolder.SubFolders
wrespy.write“子文件夾名稱：”＆objsubfolder.name＆“ <br>”
下一個
響應。寫入“ <br>”
foreachObjfileInObjfolder.files
wrespy.write“文件名稱：”＆objfile.name＆“ <br>”
下一個
setObjfolder =沒有
Endif
％>