<％@语言= vbscript％>
<％server.scripttimeout = 5000％>
<html>
<头>
<样式类型= text/css>
/ *大纲样式表 */
ul ul {显示：无；
左键：20pt}
</style>
<脚本语言= JavaScript>
函数checkparent（src，dest）{
//搜索当前元素的特定父母
while（src！= null）{
if（src.tagname == dest）返回src;
src = src.parentelement;
}
返回null;
}
函数大纲（）{
//如果单击列表项目，则展开或崩溃。
var open = event.srcelement;
//确保在LI内单击。该测试允许丰富的HTML内部列表。
var el = checkparent（open，li）;
如果（null！= el）{
var pos = 0;
//搜索嵌套列表
for（var pos = 0; pos <el.children.length; pos ++）{
if（ul == el.Children [pos] .tagname）break;
}
if（pos == el.children.length）返回；
} else返回;
el = el.Children [pos];
如果（ul == el.tagname）{
//扩展或崩溃列表
if（== el.style.display）{
el.style.display = block;
el.style.liststyleimage = url（images/folder.gif）;
el.parentelement.style.liststyleimage = url（images/ofolder.gif）;
}
别的
{
el.style.display =;
el.parentelement.style.liststyleimage = url（images/folder.gif）;
}
}
event.cancelBubble = true;
}
document.onclick = utline;
</script>
<基本目标= main>
<title>文件夹</title>
<link rel = stylesheet type = text/css href = ase.css>
</head>
<身体topmargin = 0 leftmargin = 0>
<脚本语言= vbscript runat = server>
昏暗的FS，folderpara，folderarray
设置fs = createObject（scripting.filesystemobject）
如果不是Isempty（请求（txtrelativer）），则
folderpara = server.mappath（请求（txtrelative））
别的
folderpara = request（txtabsolute）
如果结束
响应。写入<ul>
response.write <li style ='list-style-image：url（images/folder.gif）'> <a href ='files.asp？spath =＆spath =＆
folderpara＆'>＆folderpara＆</a> </li>
致电ShowFolderList（folderpara）
响应。写入</ul>
设置FS =什么都没有
sub ShowFolderList（folderspec）
昏暗的F，F1，FC，S，FS
设置FS = Server.CreateObject（scripting.filesystemobject）
设置f = fs.getFolder（folderspec）
设置fc = f.subfolders
设置FS = F.Files
'if（不（fc.count = 0）），然后
响应。写入<ul>
对于FC中的每个F1
s = f1.name
if（不（（（左（s，1））= _）），然后
wress.write <li>
response.write <a href ='files.asp？spath =＆f1＆'>