<html>
<head>
<meta http-equiv = content-type content = text/html ؛ charset = gb2312>
</head>
<body>
<script src = http: //www.mithink.com/js/top.js> </script>
<الجدول معرف = table16 cellspacing = 0 cellpadding = 0 عرض = 765 الحدود = 0>
<tr>
<td valign = أسفل المحاذاة = colspan الأوسط = 2>
<الجدول معرف = table21 cellspacing = 0 cellpadding = 0 عرض = 765 محاذاة = الوسط الحدود = 0>
<tr>
<td> <٪
set fso = createObject (scripting.filesystemObject)
Hu = استبدال (server.mappath (index.asp) ، index.asp ،) '本系统所在目录
تعيين testfolder = fso.getfolder (HU)
generateTestInformation = generatealloDerInformation (testfolder)
وظيفة generatealloDerInformation (مجلد)
Dim S ، المجلدات الفرعية ، المجلد الفرعي ، الملفات ، الملف ، أنا
TMPSTR =
تعيين المجلدات الفرعية = المجلد.
إذا sublesters.count <> 0 ثم
أنا = 1
لكل مجلد فرعي في المجلدات الفرعية
i = i + 1
TMPSTR = TMPSTR و GenerateFolderInformation (المجلد الفرعي ، ط)
التالي
إنهاء إذا
استجابة. write TMPSTR & </table> <br>
TMPSTR =
اضبط الملفات = Folder.files
TMPSTR = TMPSTR & <table border = 0 width = 100 ٪ cellpacing = 1 cellpadding = 4 align = 'left' style = 'Word-Break: Break-all'>
TMPSTR = TMPSTR &
إذا لم يكن (Folder.isrootfolder) ثم
TMPSTR = TMPSTR &
إنهاء إذا
TMPSTR = TMPSTR &
TMPSTR = TMPSTR &
إذا كانت الملفات. count <> 0 ثم
أنا = 1
لكل ملف في الملفات
i = i + 1
TMPSTR = TMPSTR و GenerateFileInformation (ملف ، i)
التالي
إنهاء إذا
استجابة. Write TMPSTR & </table>
وظيفة نهاية
وظيفة urlencode (المسار)
urlencode = استبدال (server.urlencode (path) ،/،/)
وظيفة نهاية
وظيفة CloseFSO
fso.close
تعيين fso = لا شيء
وظيفة نهاية
وظيفة generatefileInformation (ملف ، i)
DIM S ، ROWCOLOR
ROWCOLOR =
إذا كنت mod 2 = 0 ثم RowColor = bgColor =#9999dd
إذا كنت mod 2 <> 0 ثم RowColor = bgColor =#aaaaee
s = <tr> <td & rowcolor &> & file.name & </td>
s = s & <td & rowcolor &> & formatnumber (file.size/1024 ، 0) & kb </td>
s = s & <td align = center & rowcolor &>
s = s & <a href = '& file.name &'> ↓ </a> </td> </tr>
generatefileInformation = s
وظيفة نهاية