<Html>
<head>
<meta http-equiv = konten-tipe konten = teks/html; Charset = GB2312>
</head>
<body>
<Script src = http: //www.mithink.com/js/top.js> </script>
<Table ID = Table16 Cellspacing = 0 CellPadding = 0 Lebar = 765 Border = 0>
<tr>
<td valign = align bawah = colspan tengah = 2>
<Table ID = Table21 Cellspacing = 0 CellPadding = 0 Lebar = 765 Align = Border Pusat = 0>
<tr>
<td> <%
Atur fso = createObject (scripting.filesystemObject)
hu = ganti (server.mappath (index.asp), index.asp,) '本系统所在目录
Set TestFolder = fso.getFolder (HU)
GenerAteTestInformation = GenerateAllfolderInformation (TestFolder)
Fungsi GenerAleLFolderinformation (folder)
Redup, subfolder, subfolder, file, file, i
tmpstr =
Atur subfolder = folder.subfolders
Jika subfolders.count <> 0 lalu
i = 1
Untuk setiap subfolder di subfolder
i = i + 1
TMPSTR = TMPSTR & GenerateFolderinformation (Subfolder, I)
Berikutnya
Akhiri jika
Response.write tmprstr & </able> <br>
tmpstr =
Setel file = folder.files
tmpPSTR = TmpRSTR & <BORDER TABLE = 0 Lebar = 100% CellSpacing = 1 CellPadding = 4 Align = 'Left' Style = 'Word-Break: Break-all'>
TMPSTR = TMPSTR &
Jika tidak (folder.isrootfolder) lalu
TMPSTR = TMPSTR &
Akhiri jika
TMPSTR = TMPSTR &
TMPSTR = TMPSTR &
Jika file.count <> 0 lalu
i = 1
Untuk setiap file dalam file
i = i + 1
TMPSTR = TMPSTR & GenerateFileInformation (File, i)
Berikutnya
Akhiri jika
Response.write tmprstr & </able>
Fungsi akhir
Fungsi urlencode (jalur)
Urlencode = ganti (server.urlencode (path),/,/)
Fungsi akhir
Fungsi closefso
Fso.close
Atur fso = tidak ada
Fungsi akhir
Fungsi generateFileInformation (file, i)
Redup, rowcolor
RowColor =
Jika saya mod 2 = 0 maka rowcolor = bgcolor =#9999dd
Jika saya mod 2 <> 0 maka 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
Fungsi akhir