<٪@ language = vbscript ٪>
<٪ server.scriptTimeout = 5000 ٪>
<html>
<head>
<نوع النمط = text/css>
/ * ورقة نمط الخطوط العريضة */
Ul {Display: None ؛
الهامش اليساري: 20pt}
</style>
<لغة البرنامج النصي = javaScript>
وظيفة مراجعة (SRC ، القدر) {
// ابحث عن والد معين للعنصر الحالي
بينما (src! = null) {
if (src.tagname == dest) return src ؛
src = src.parentElement ؛
}
العودة لاغية.
}
وظيفة Outline () {
// توسيع أو انهيار إذا تم النقر على عنصر قائمة.
var open = event.srcelement ؛
// تأكد من النقر داخل li. يسمح هذا الاختبار HTML الغني داخل القوائم.
var el = checkParent (Open ، li) ؛
if (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 ؛
} عودة أخرى ؛
el = el.children [pos] ؛
if (ul == el.tagname) {
// توسيع أو انهيار قائمة متداخلة
إذا (== el.style.display) {
el.style.display = block ؛
el.Style.ListStyleImage = url (الصور/المجلد.
el.parentElement.Style.ListStyleImage = url (الصور/OFOLDER.GIF) ؛
}
آخر
{
el.style.display = ؛
el.parentElement.Style.ListStyleImage = url (الصور/المجلد.
}
}
event.cancelBubble = true ؛
}
document.onclick = الخطوط العريضة ؛
</script>
<الهدف الأساسي = رئيسي>
<title> مجلدات </title>
<link rel = typesheet type = text/css href = ase.css>
</head>
<body topmargin = 0 leftMargin = 0>
<script language = vbscript runat = server>
DIM FS ، Folderpara ، FOLDERARRAY
set fs = createObject (scripting.filesystemObject)
إذا لم يكن isempty (طلب (txtrelative)) ثم
المجلد = server.mappath (طلب (txtrelative))
آخر
المجلد = طلب (txtabsolute)
إنهاء إذا
استجابة. write <ul>
reponse.write <li style = 'style-style-image: url (الصور/المجلد.
Folderpara & '> & Folderpara & </a> </li>
Call ShowfolderList (Folderpara)
استجابة. write </ul>
تعيين fs = لا شيء
sub showfolderlist (probererspec)
Dim F ، F1 ، FC ، S ، FS
set fs = server.createObject (scripting.filesystemObject)
تعيين f = fs.getFolder (probererspec)
تعيين fc = f.subfolders
تعيين fs = f.files
إذا (لا (fc.count = 0)) ثم
استجابة. write <ul>
لكل F1 في FC
s = f1.name
if (لا ((يسار (s ، 1)) = _)) ثم
استجابة. write <li>
Response.write <a href = 'files.asp؟ spath = & f1 &'>