<％@言語= vbscript％>
<％server.scripttimeout = 5000％>
<html>
<head>
<style type = text/css>
/ *アウトラインスタイルシート */
ul ul {display：none;
マージン左：20pt}
</style>
<スクリプト言語= javascript>
function checkparent（src、dest）{
//現在の要素の特定の親を検索する
while（src！= null）{
if（src.tagname == dest）return src;
src = src.parentelement;
}
nullを返します。
}
function outline（）{
//リスト項目がクリックされた場合、展開または崩壊します。
var open = event.srcelement;
// li内でクリックしてください。このテストにより、リッチHTML内部リストが可能になります。
var el = checkparent（open、li）;
if（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）return;
} else return;
el = el.children [pos];
if（ul == el.tagname）{
//ネストされたリストを展開または崩壊します
if（== el.style.display）{
el.style.display = block;
el.style.liststyleimage = url（mages/folder.gif）;
el.parentelement.style.liststyleimage = url（mages/ofolder.gif）;
}
それ以外
{
el.style.display =;
el.ParentElement.style.listStyleImage = url（images/folder.gif）;
}
}
event.cancelbubble = true;
}
document.onclick = outline;
</script>
<ベースターゲット=メイン>
<title>フォルダー</title>
<link rel = styleSheet type = text/css href = ase.css>
</head>
<body topmargin = 0 leftmargin = 0>
<スクリプト言語= vbscript runat = server>
Dim FS、FolderPara、FolderArray
fs = createObject（scripting.filesystemObject）を設定します
そうでない場合は、（リクエスト（txtrelative））
folderpara = server.mappath（request（txtrelative））
それ以外
folderpara = request（txtabsolute）
ifを終了します
Response.Write <ul>
Response.write <li style = 'list-style-image：url（images/folder.gif）'> <a href = 'files.asp？spath =＆
FolderPara＆ '>＆folderPara＆</a> </li>
showfolderlist（folderpara）に電話する
Response.Write </ul>
fs = Nothingを設定します
Sub ShowFolderList（FolderSpec）
DIM F、F1、FC、S、FS
fs = server.createObject（scripting.filesystemObject）を設定します
f = fs.getfolder（folderspec）を設定します
fc = f.subfoldersを設定します
fs = f.filesを設定します
'if（not（fc.count = 0））then
Response.Write <ul>
FCの各F1
s = f1.name
if（not（left（s、1））= _））then
Response.Write <li>
Response.write <a href = 'files.asp？spath =＆f1＆'>