< %@ Bahasa = vbscript %>
<%Server.scriptTimeout = 5000%>
<Html>
<head>
<Tipe Gaya = Teks/CSS>
/ * Outline style sheet */
Ul ul {display: tidak ada;
margin-kiri: 20pt}
</tyle>
<bahasa skrip = javascript>
fungsi checkparent (src, dest) {
// Cari orang tua tertentu dari elemen saat ini
while (src! = null) {
if (src.tagname == dest) mengembalikan src;
src = src.parentElement;
}
kembali nol;
}
fungsi fungsi () {
// Perluas atau pingsan jika item daftar diklik.
var open = event.srcelement;
// Pastikan diklik di dalam LI. Tes ini memungkinkan HTML yang kaya dalam daftar.
var el = checkparent (terbuka, li);
if (null! = el) {
var pos = 0;
// Cari daftar bersarang
untuk (var pos = 0; pos <el.children.length; pos ++) {
if (ul == el.children [pos] .tagname) break;
}
if (pos == el.children.length) return;
} lagi kembali;
el = el.children [pos];
if (ul == el.tagname) {
// Perluas atau runtuhnya daftar bersarang
if (== el.style.display) {
el.style.display = block;
el.style.liststyleimage = url (gambar/folder.gif);
el.parentelement.style.liststyleimage = url (gambar/ofolder.gif);
}
kalau tidak
{
el.style.display =;
el.parentelement.style.liststyleimage = url (gambar/folder.gif);
}
}
event.cancelbubble = true;
}
document.onClick = garis besar;
</script>
<target dasar = main>
<title> folder </iteme>
<tautan rel = stylesheet type = text/css href = ase.css>
</head>
<body topmargin = 0 leftmargin = 0>
<Bahasa skrip = vbscript runat = server>
Redup, folderpara, folderarray
Set FS = CreateObject (Scripting.FilesystemObject)
Jika tidak tetap (permintaan (txtrelative)) lalu
folderpara = server.mappath (permintaan (txtrelative)))
kalau tidak
folderpara = request (txtabsolute)
akhiri jika
Response.write <ul>
Response.write <li style = 'Daftar-style-image: url (gambar/folder.gif)'> <a href = 'file.asp? Spath = &
FolderPara & '> & FolderPara & </a> </li>
Call ShowfolderList (FolderPara)
Response.write </ul>
atur fs = tidak ada
Sub showfolderlist (folderSpec)
Redup f, f1, fc, s, fs
Set FS = Server.CreateObject (Scripting.FilesystemObject)
Setel f = fs.getFolder (folderSpec)
Atur fc = f.subfolder
Atur fs = f.files
'if (not (fc.count = 0)) lalu
Response.write <ul>
Untuk setiap F1 di FC
s = f1.name
If (not ((left (s, 1)) = _)) kemudian
Response.write <li>
Response.write <a href = 'file.asp? Spath = & f1 &'>