<html>
<head>
<meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html; charset = gb2312>
</head>
<body>
<script src = http: //www.mithink.com/js/top.js> </script>
<ตาราง ID = Table16 CellSpacing = 0 CellPadding = 0 Width = 765 Border = 0>
<tr>
<td valign = allign bottom = middle colspan = 2>
<ตาราง ID = TABLE21 CellSpacing = 0 CellPadding = 0 Width = 765 Align = เส้นขอบกลาง = 0>
<tr>
<td> <%
ตั้งค่า fso = createObject (scripting.filesystemobject)
hu = แทนที่ (server.mappath (index.asp), index.asp,) '本系统所在目录
ตั้งค่า testFolder = fso.getFolder (HU)
GenerAtetestInformation = GenerateAllFolderInformation (TestFolder)
ฟังก์ชั่น GenerateAllFolderInformation (โฟลเดอร์)
Dim S, โฟลเดอร์ย่อย, โฟลเดอร์ย่อย, ไฟล์, ไฟล์, i
TMPSTR =
ตั้งค่า subfolders = folder.subfolders
ถ้า subfolders.count <> 0 แล้ว
i = 1
สำหรับแต่ละโฟลเดอร์ย่อยในโฟลเดอร์ย่อย
i = i + 1
TMPSTR = TMPSTR & GenerateFolderInformation (Subfolder, I)
ต่อไป
สิ้นสุดถ้า
Response.write TMPSTR & </table> <br>
TMPSTR =
SET FILES = Folder.Files
TMPSTR = TMPSTR & <table border = 0 width = 100% cellspacing = 1 cellpadding = 4 allign = 'left' style = 'Word-break: break-all'>
TMPSTR = TMPSTR &
ถ้าไม่ใช่ (folder.isrootfolder) แล้ว
TMPSTR = TMPSTR &
สิ้นสุดถ้า
TMPSTR = TMPSTR &
TMPSTR = TMPSTR &
ถ้า files.count <> 0 แล้ว
i = 1
สำหรับแต่ละไฟล์ในไฟล์
i = i + 1
TMPSTR = TMPSTR & GenerateFileInformation (ไฟล์, i)
ต่อไป
สิ้นสุดถ้า
Response.write TMPSTR & </table>
ฟังก์ชันสิ้นสุด
function urlencode (เส้นทาง)
urlencode = แทนที่ (server.urlencode (พา ธ ),/,/)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น CloseFSO
fso.close
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น generateFileInformation (ไฟล์, i)
Dim S, Rowcolor
rowcolor =
ถ้าฉัน mod 2 = 0 แล้ว rowcolor = bgColor =#9999dd
ถ้าฉัน mod 2 <> 0 แล้ว rowcolor = bgColor =#aaaaeee
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
ฟังก์ชันสิ้นสุด