set fso= Server.CreateObject("scripting.filesystemobject")

if request.QueryString("str")="" then
str=server.mappath("www")
else
str=request.QueryString("str")
end if

set myfolder=fso.getfolder(str)
response.write "根目录："&str&"<p>"
if str<>server.mappath("../www") then
response.write "<a href=?str="&myfolder.parentfolder&">..</a><br>"
end if

for each items in myfolder.subfolders
response.write "<a href=?str="&items.path&">"&items.name&"</a><br>"
next

for each items in myfolder.files
response.write items.name&"<br>"
next