< %@ language = vbscript %>
<%server.scriptTimeout = 5000%>
<html>
<헤드>
<스타일 유형 = 텍스트/CSS>
/ * 개요 스타일 시트 */
ul ul {디스플레이 : 없음;
마진 왼쪽 : 20pt}
</스타일>
<스크립트 언어 = javaScript>
함수 checkparent (src, dest) {
// 현재 요소의 특정 부모 검색
while (src! = null) {
if (src.tagname == dest) 반환 src;
src = src.parentElement;
}
널 리턴;
}
함수 개요 () {
// 목록 항목을 클릭하면 확장 또는 붕괴됩니다.
var open = event.srcelement;
// LI 내부에서 클릭했는지 확인하십시오. 이 테스트를 통해 풍부한 HTML 내부 목록이 가능합니다.
var el = checkparent (Open, Li);
if (null! = el) {
var pos = 0;
// 중첩 목록을 검색합니다
for (var pos = 0; pos <el.children.length; pos ++) {
if (ul == el.children [pos] .tagname) break;
}
if (pos == el.children.length) 반환;
} else return;
el = el.children [pos];
if (ul == el.tagname) {
// 중첩 된 목록을 확장하거나 붕괴시킵니다
if (== el.style.display) {
el.style.display = 블록;
el.style.listStyleImage = url (images/folder.gif);
el.parentElement.style.listStyleImage = url (images/ofolder.gif);
}
또 다른
{
el.style.display =;
el.parentElement.style.listStyleImage = URL (images/folder.gif);
}
}
event.cancelbubble = true;
}
document.onclick = 개요;
</스크립트>
<베이스 대상 = main>
<title> 폴더 </title>
<link rel = 스타일 시트 유형 = 텍스트/css href = ase.css>
</head>
<Body TopMargin = 0 LeftMargin = 0>
<script language = vbscript runat = server>
Dim FS, Folderpara, FolderArray
set fs = createobject (scripting.filesystemobject)
그렇지 않은 경우 (요청 (txtrelative))
folderpara = server.mappath (request (txtrelative))
또 다른
folderpara = request (txtabsolute)
끝 If
응답 .Write <ul>
response.write <li style = 'list-style-image : url (images/folder.gif)'> <a href = 'files.asp? spath = &
Folderpara & '> & Folderpara & </a> </li>
Call Showfolderlist (Folderpara)
응답 </ul>
fs = 아무것도 설정하지 않습니다
서브 Showfolderlist (Polderspec)
Dim F, F1, FC, S, Fs
set fs = server.createobject (scripting.filesystemobject)
set f = fs.getfolder (폴더 스펙)
fc = f.subfolders를 설정하십시오
fs = f.files를 설정합니다
'IF (fc.count = 0)이 아니라면
응답 .Write <ul>
FC의 각 F1에 대해
s = f1.name
if ((왼쪽 (s, 1) = _)이 아닙니다
응답 .Write <li>
response.write <a href = 'files.asp? spath = & f1 &'>