< %@ language = vbscript %>
<%Server.ScriptTimeOut = 5000%>
<html>
<head>
<style type = text/css>
/ * แผ่นสไตล์เค้าโครง *//
ul ul {display: none;
ขอบซ้าย: 20pt}
</style>
<ภาษาสคริปต์ = JavaScript>
ฟังก์ชั่นการตรวจสอบ (src, dest) {
// ค้นหาผู้ปกครองเฉพาะขององค์ประกอบปัจจุบัน
ในขณะที่ (src! = null) {
if (src.tagname == dest) ส่งคืน src;
src = src.parentelement;
-
คืนค่า null;
-
ฟังก์ชั่นเค้าโครง () {
// ขยายหรือยุบหากคลิกรายการ
var open = event.srcelement;
// ตรวจสอบให้แน่ใจว่าคลิกภายใน li การทดสอบนี้ช่วยให้ HTML ที่หลากหลายภายในรายการ
var el = checkparent (เปิด, li);
ถ้า (null! = el) {
var pos = 0;
// ค้นหารายการซ้อนกัน
สำหรับ (var pos = 0; pos <el.children.length; pos ++) {
if (ul == el.children [pos] .tagname) break;
-
if (pos == el.children.length) return;
} 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 (images/ofolder.gif);
-
อื่น
-
el.style.display =;
El.ParentElement.style.listStyleImage = URL (images/folder.gif);
-
-
Event.cancelBubble = true;
-
document.onclick = โครงร่าง;
</script>
<เป้าหมายฐาน = หลัก>
<title> โฟลเดอร์ </title>
<link rel = stylesheet type = text/css href = ase.css>
</head>
<body topMargin = 0 leftMargin = 0>
<ภาษาสคริปต์ = vbscript runat = เซิร์ฟเวอร์>
Dim Fs, FolderPara, FolderArray
ตั้งค่า fs = createObject (scripting.filesystemobject)
ถ้าไม่ isempty (คำขอ (txtrelative)) แล้ว
folderPara = server.mappath (คำขอ (txtrelative))
อื่น
FolderPara = คำขอ (txtabsolute)
สิ้นสุดถ้า
Response.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)
Response.write </ul>
ตั้งค่า fs = ไม่มีอะไร
Sub ShowFolderList (Folderspec)
Dim F, F1, FC, S, FS
ตั้งค่า fs = server.createObject (scripting.filesystemobject)
ตั้งค่า f = fs.getFolder (folderspec)
ตั้งค่า fc = f.subfolders
ตั้งค่า fs = f.files
'ถ้า (ไม่ใช่ (fc.count = 0)) แล้ว
Response.write <ul>
สำหรับ F1 แต่ละตัวใน FC
s = f1.name
ถ้า (ไม่ใช่ ((ซ้าย (s, 1)) = _)) แล้ว
Response.write <li>
Response.write <a href = 'files.asp? spath = & f1 &'>