<％@語言= 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＆'>