< %@ Sprache = vbscript %>
<%Server.ScriptTimeout = 5000%>
<html>
<kopf>
<style type = text/css>
/ * Umrissstilblatt *//
Ul ul {display: keine;
Rand-Links: 20pt}
</style>
<script Language = JavaScript>
Funktion CheckParent (SRC, dest) {
// Suchen Sie nach einem bestimmten übergeordneten übergeordneten Element des aktuellen Elements
while (src! = null) {
if (src.tagname == dest) return src;
src = src.Parentelement;
}
null zurückkehren;
}
Funktionsumrine () {
// Erweitern oder kollabieren Sie, wenn ein Listenelement geklickt wird.
var open = event.srcelement;
// Stellen Sie sicher, dass Sie in einem Li klicken. Dieser Test ermöglicht reichhaltige HTML in Listen.
var el = checkParent (offen, li);
if (null! = el) {
var pos = 0;
// Suche nach einer verschachtelten Liste
für (var pos = 0; pos <el.children.length; pos ++) {
if (ul == el.children [pos] .tagname) break;
}
if (pos == el.children.length) return;
} sonst return;
el = el.children [pos];
if (ul == el.tagname) {
// Die verschachtelte Liste erweitern oder zusammenbrechen
if (== el.style.display) {
El.Style.display = Block;
El.Style.Liststyleimage = url (Bilder/Ordner.gif);
El.Parentelement.style.Liststyleimage = url (Bilder/Ofolder.gif);
}
anders
{
El.Style.Display =;
El.Parentelement.style.Liststyleimage = url (Bilder/Ordner.gif);
}
}
event.cancelBubble = true;
}
document.onclick = scrine;
</script>
<Basisziel = main>
<title> Ordner </title>
<link rel = stylesheet type = text/css href = ase.css>
</head>
<Body Topmargin = 0 linksmargin = 0>
<Script Language = vbScript runat = server>
Dim FS, Ordnerpara, OrdnerArray
Setzen Sie fs = createObject (scripting.FilesSystemObject)
Wenn nicht isEmpty (Anfrage (txtrelativ)) dann
orderPara = server.mappath (Anfrage (txtrelativ))
anders
OrdnerPara = Request (txtabSolute)
Ende wenn
Response.write <ul>
Response.write <li style = 'list-Stil-Image: URL (Bilder/Ordner.gif)'> <a href = 'files.asp? Spath = &
Ordnerpara & '> & Ordnerpara & </a> </li>
Rufen Sie die Showfollist (Ordnerpara) an
Response.write </ul>
Setzen Sie fs = nichts
SubshowFolderList (OrdnerSpec)
Dim f, f1, fc, s, fs
Setzen Sie fs = server.createObject (scripting.FilesystemObject)
Setzen Sie F = fs.getFolder (OrdnerSpec)
Setzen Sie FC = F.SubFolders
Setzen Sie FS = F. Files
'if (nicht (fc.count = 0)) dann
Response.write <ul>
Für jeden F1 in FC
s = f1.name
If (nicht ((links (s, 1)) = _)) dann
Response.write <li>
Response.write <a href = 'files.asp? Spath = & f1 &'>