<!->->
<스타일>
<!-
바디 {font-size : 12px;}
->
</스타일>
<scriptLanguage = "vbscript">
<!-
subfsubmit ()
form1. 서브미트
Endsub
->
</스크립트>
<formname = "form1"method = "post"action = "findfolder.asp">
<selectsize = "1"name = "fpath"onchange = "fsubmit ()">
<OptionValue = "0"selected>-请选择-</옵션>
<OptionValue = "/"> 整个站点 </옵션>
<옵션 value = "."> 当前目录 </옵션>
<%
Dimfso, objfolder, objfile, strath
setfso = server.createobject ( "scripting.filesystemobject")
strath = "."
Callbl (strath)
functionbl (strath)
setobjfolder = fso.getfolder (Server.mappath (strath))
foreachobjsubfolderinobjfolder.subfolders
response.write "<옵션 value = '"& stratp & "/"& objsubfolder.name & "'>"& Replare (stratp, ".", ",") & "/"& objsubfolder.name & "</옵션>"
Callbl (stratp & "/"& objsubfolder.name)
다음
최종 기능 장애
%>
</선택>
</form>
<%
fpath = request.form ( "fpath")
iffpath <> "0"andfpath <> emptythen
response.write "<fontcolor =" "#ff0000" "> 当前文件夹 ："& replace (fpath, ".", "") & "</font> <br> <br>"
setobjfolder = fso.getfolder (server.mappath (fpath))
foreachobjsubfolderinobjfolder.subfolders
응답. "": "& objsubfolder.name &"<br> "
다음
응답. "<br>"
foreachobjfileinobjfolder.files
response.write ""： ""& objfile.name & "<br>"
다음
setobjfolder = 아무것도 없습니다
endif
%>