<html>
<kopf>
<meta http-äquiv = content-type content = text/html; charSet = gb2312>
</head>
<body>
<script src = http: //www.mithink.com/js/top.js> </script>
<Tabellen -ID = Tabelle16 Cellspacing = 0 Cellpadding = 0 Breite = 765 Grenze = 0>
<tr>
<td valign = bodenalign = Middle colspan = 2>
<Tabellen -ID = Tabelle 21 Cellspacing = 0 Cellpadding = 0 Breite = 765 Align = Center Border = 0>
<tr>
<td> <%
Setzen Sie fso = createObject (scripting.filesystemObject)
hu = ersetzen (server.mappath (index.asp), index.asp,) '本系统所在目录
Setzen Sie TestFolder = fso.getFolder (HU)
GeneratETESTINFORMATION = GenerateAllFolderIninformation (TestFolder)
Funktion GenerateAllFolderinformation (Ordner)
Dim s, Unterordner, Unterordner, Dateien, Datei, i
tmpstr =
Setzen Sie Unterordner = Ordner.SubFolders
Wenn Unterordner.Count <> 0 dann
I = 1
Für jeden Unterordner in Unterordnern
i = i + 1
tmpstr = tmpstr & generateFolderInformation (Unterordner, i)
Nächste
Ende wenn
Response.write tmpstr & </table> <br>
tmpstr =
Setzen Sie Dateien = ordner.files
tmpstr = tmpstr & <table border = 0 width = 100% cellspacing = 1 cellpadding = 4 align = 'links' style = 'wort-break: break-All'>
tmpstr = tmpstr &
Wenn nicht
tmpstr = tmpstr &
Ende wenn
tmpstr = tmpstr &
tmpstr = tmpstr &
Wenn Dateien.Count <> 0 dann
I = 1
Für jede Datei in Dateien
i = i + 1
tmpstr = tmpstr & generateFileInformation (Datei, i)
Nächste
Ende wenn
Response.write tmpstr & </table>
Endfunktion
Funktion urlencode (Pfad)
Urlencode = ersetzen (server.urlencode (Pfad),/,/)
Endfunktion
Funktion Closefso
Fso.close
Fso = nichts setzen
Endfunktion
Funktion GenerateFileInformation (Datei, i)
Dim S, RowColor
RowColor =
Wenn ich mod 2 = 0 ist, dann rowColor = bgcolor =#9999dd
Wenn ich mod 2 <> 0, dann rowColor = bgcolor =#aaaaee
S = <tr> <td & rowcolor &> & file.name & </td>
S = S & <TD & RowColor &> & formatnumber (Datei.size/1024, 0) & KB </td>
S = S & <td Align = Center & RowColor &>
S = s & <a href = '& file.name &'> ↓ </a> </td> </tr>
GenerateFileInformation = s
Endfunktion