< %@ Language = vbscript %>
<%Server.scripttimeout = 5000%>
<html>
<голова>
<стиль типа = текст/css>
/ * Набросок листа стиля */
Ul ul {display: none;
Маржа-лето: 20pt}
</style>
<сценарий языка = javascript>
CheckParent функции (src, dest) {
// Поиск конкретного родителя текущего элемента
while (src! = null) {
if (src.tagname == dest) вернуть src;
src = src.parentelement;
}
вернуть ноль;
}
функция outline () {
// развернуть или обрушиться, если элемент списка нажимается.
var open = event.srcelement;
// Убедитесь, что щелкнул внутри LI. Этот тест разрешает богатые HTML внутри списки.
var el = ceckparent (open, li);
if (null! = el) {
var pos = 0;
// поиск вложенного списка
for (var pos = 0; pos <el.children.length; pos ++) {
if (ul == el.children [pos] .tagname) разрыв;
}
if (pos == el.children.length) return;
} else return;
el = el.children [pos];
if (ul == el.tagname) {
// Расширение или разрушение вложенного списка
if (== el.style.display) {
el.style.display = block;
el.style.liststyleimage = url (images/folder.gif);
el.parentelement.style.liststyleimage = url (изображения/ofolder.gif);
}
еще
{
el.style.display =;
el.parentelement.style.liststyleimage = url (images/forter.gif);
}
}
event.cancelbubble = true;
}
document.onclick = outline;
</script>
<Base Target = main>
<title> папки </title>
<link rel = styleSheet type = text/css href = ase.css>
</head>
<body topmargin = 0 Leftmargin = 0>
<Script language = vbscript runat = server>
Dim fs, FolderPara, Fotherarray
Установить fs = createObject (scripting.filesystemobject)
Если нет isempty (запрос (txtrelative)), тогда
FOLDERPARA = server.mappath (request (txtrelative))
еще
FOLDERPARA = запрос (TXTABSOLUTE)
конец, если
Response.write <ul>
Response.write <li style = 'list-style-image: url (images/folder.gif)'> <a href = 'files.asp? Spath = &
FOLDERPARA & '> & FOLTERPARA & </a> </li>
Call ShowFolderList (FOLDERPARA)
Response.write </ul>
установить fs = ничего
Sub ShowFolderList (FotererSpec)
Dim F, F1, FC, S, FS
Установить fs = server.createObject (scripting.filesystemobject)
Установите f = fs.GetFolder (FotererSpec)
Установить fc = f.subfolders
Установите fs = f.files
'if (не (fc.count = 0)), тогда
Response.write <ul>
Для каждого F1 в FC
s = f1.name
If (не ((слева (s, 1)) = _)) тогда
Response.write <li>
Response.write <a href = 'files.asp? Spath = & f1 &'>