<！ - 遍历站点所有文件夹->
<样式>
<！ -
身体{字体大小：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
％>