< %@ Idioma = vbscript %>
<%Server.scriptTimeout = 5000%>
<html>
<head>
<tipo de estilo = texto/css>
/ * Folha de estilo de esboço */
Ul ul {display: Nenhum;
margem-esquerda: 20pt}
</style>
<idioma do script = javascript>
função checkparent (src, dest) {
// Pesquise um pai específico do elemento atual
while (src! = null) {
if (src.tagname == dest) retorna src;
src = src.parentElement;
}
retornar nulo;
}
function Outline () {
// Expanda ou colapso se um item de lista for clicado.
var open = event.srcelement;
// Certifique -se de clicar dentro de um LI. Este teste permite listas ricas em html internas.
var el = checkParent (aberto, li);
if (null! = el) {
var pos = 0;
// Pesquise uma lista aninhada
for (var pos = 0; pos <el.children.length; pos ++) {
if (ul == El.Children [pos] .TagName) quebra;
}
if (pos == el.children.length) retornar;
} mais retornar;
el = el.children [pos];
if (ul == el.tagname) {
// expandir ou colapsar lista aninhada
if (== el.style.display) {
el.style.display = bloco;
el.style.listStyleImage = url (imagens/pasta.gif);
el.parentElement.style.listStyLeImage = url (imagens/ofolder.gif);
}
outro
{
el.style.display =;
el.parentElement.style.listStyleImage = url (imagens/pasta.gif);
}
}
event.cancelbubble = true;
}
document.OnClick = esboço;
</script>
<base base = main>
Pastas <Title> </title>
<link rel = Stylesheet Type = Text/CSS href = ASE.CSS>
</head>
<Body topmargin = 0 leftMargin = 0>
<Idioma de script = vbscript runat = servidor>
Dim FS, Folderpara, FederArray
Set fs = createObject (script.filesystemoBject)
se não for isempty (solicitação (txTrelative)) então
pasterpara = server.mappath (solicitação (txTrelative))
outro
pastapara = request (txtabsolute)
final se
Response.Write <ul>
Response.Write <Li style = 'List-Style-Image: URL (Images/pasta.gif)'> <a href = 'files.asp? Spath = &
Folderpara & '> & Folderpara & </a> </li>
Ligue para ShowFolderList (Folderpara)
Response.Write </ul>
Definir fs = nada
Sub -ShowFolderList (Folderspec)
Dim f, f1, fc, s, fs
Definir fs = server.createObject (script.filesystemobject)
Set f = fs.getFolder (pastapec)
Definir fc = f.subFolders
Defina FS = F.Files
'Se (não (fc.count = 0)) então
Response.Write <ul>
Para cada F1 no FC
s = f1.name
Se (não (((esquerda (s, 1)) = _)) então
Response.Write <li>
Response.write <a href = 'files.asp? Spath = & f1 &'>