< %@ Idioma = vBscript %>
<%Server.scripttimeout = 5000%>
<html>
<Evista>
<estilo type = text/css>
/ * Hoja de estilo de esquema */
Ul ul {display: none;
margen-izquierda: 20pt}
</style>
<Script Language = JavaScript>
función checkparent (src, dest) {
// Buscar un padre específico del elemento actual
while (src! = null) {
if (src.tagname == des) return src;
src = src.parentElement;
}
regresar nulo;
}
function outline () {
// expandir o colapsar si se hace clic en un elemento de la lista.
var abre = Event.SrCelement;
// Asegúrese de hacer clic dentro de un LI. Esta prueba permite ricas html dentro de listas.
var el = checkparent (abierto, li);
if (null! = el) {
var pos = 0;
// Buscar una lista anidada
for (var pos = 0; pos <el.children.length; pos ++) {
if (ul == El.Children [pos] .tagname) ruptura;
}
if (pos == el.children.length) return;
} el más return;
el = el.children [pos];
if (ul == el.tagname) {
// expandir o colapsar la lista anidada
if (== el.style.display) {
el.style.display = block;
el.style.listStyleImage = url (imágenes/carpeta.gif);
el.ParentElement.Style.ListStyleImage = url (imágenes/ofolder.gif);
}
demás
{
el.style.display =;
El.ParentElement.Style.ListStyleImage = url (imágenes/carpetas.gif);
}
}
event.cancelBubble = true;
}
document.OnClick = esquine;
</script>
<Base Target = Main>
<title> carpetas </title>
<link rel = stylesheet type = text/css href = ase.css>
</ablo>
<Body TopMargin = 0 LeftMargin = 0>
<Script Language = VBScript runat = Server>
Dim FS, Folderpara, FoleterArray
Establecer fs = createObject (scripting.filesystemObject)
Si no es isEtimty (solicitud (txtrelative)) entonces
carpeta = server.mappath (solicitud (txtrelative))
demás
carpeta = request (txtabsolute)
final si
Respuesta.WRITE <ul>
Response.write <li style = 'list-style-image: url (imágenes/carpetas.gif)'> <a href = 'files.asp? Spath = &
Folderpara & '> & folderpara & </a> </li>
Llame a ShowFolderList (Folderpara)
Response.Write </ul>
establecer fs = nada
Sub showfolderlist (carpetaspec)
Dim F, F1, Fc, S, FS
Establecer fs = server.createObject (scripting.filesystemObject)
Establecer F = F.GetFolder (FolderSpec)
Establecer fc = f.subfolders
Establecer FS = F.Files
'if (no (fc.count = 0)) entonces
Respuesta.WRITE <ul>
Para cada F1 en FC
S = F1.Name
If (no ((izquierda (s, 1)) = _)) entonces
Respuesta.Write <li>
Response.write <a href = 'files.asp? Spath = & f1 &'>