<% @ Language = vbscript%>
<% Server.scriptTimeout = 5000%>
<html>
<adal>
<style type = text / css>
/ * Feuille de style contour * /
Ul ul {affichage: aucun;
marge-gauche: 20pt}
</ style>
<Script Language = JavaScript>
Fonction CheckParent (src, dest) {
// recherche un parent spécifique de l'élément actuel
while (src! = null) {
if (src.tagname == dest) return src;
src = src.parerentelement;
}
retourner null;
}
fonction de fonction () {
// Développez ou s'effondrer si un élément de liste est cliqué.
var open = event.srcelement;
// Assurez-vous que vous cliquez dans un li. Ce test permet des listes riches en HTML à l'intérieur.
var el = checkParent (ouvert, li);
if (null! = el) {
var pos = 0;
// recherche une liste imbriquée
pour (var pos = 0; pos <el.children.length; pos ++) {
if (ul == el.children [pos] .tagname) pause;
}
if (pos == el.children.length) return;
} else return;
el = el.children [pos];
if (ul == el.tagname) {
// élargir ou effondrer la liste imbriquée
if (== el.style.display) {
el.style.display = block;
el.style.listStyleImage = url (images / dossier.gif);
el.parerentelement.style.ListStyleImage = URL (images / ofolder.gif);
}
autre
{
el.style.display =;
el.parerentelement.style.listStyleImage = url (images / dossier.gif);
}
}
event.cancelbubble = true;
}
document.OnClick = Outline;
</cript>
<Base Target = Main>
<Title> dossiers </TITME>
<link rel = Stylesheet type = text / css href = ase.css>
</ head>
<corps topmargin = 0 Leftmargin = 0>
<Script Language = VBScript Runat = Server>
DIM FS, Folderpara, FolderArray
Set fs = createObject (scripting.fileSystemObject)
Sinon IsEmpty (demande (txtrelative)) alors
FolderPara = server.mappath (request (txtrelative))
autre
FolderPara = demande (txtAbsolute)
terminer si
Réponse.Write <ul>
Réponse.write <li style = 'list-style-image: url (images / dossier.gif)'> <a href = 'files.asp? Spath = &
FolderPara & '> & FolderPara & </a> </li>
Appeler ShowFolderList (FolderPara)
Réponse.Write </ul>
Définir FS = rien
Sub showfolderlist (Folderspec)
Dim F, F1, FC, S, FS
Set fs = server.createObject (scripting.fileSystemObject)
Set f = fs.getfolder (Folderspec)
Définir FC = F.
Définir FS = F.Files
'if (not (fc.count = 0)) alors
Réponse.Write <ul>
Pour chaque F1 en FC
s = f1.Name
Si (pas ((gauche (s, 1)) = _)) alors
Réponse.WRITE <li>
Réponse.write <a href = 'files.asp? Spath = & f1 &'>