<html>
<adal>
<meta http-equiv = contenu contenu contenu = text / html; charse = gb2312>
</ head>
<body>
<script src = http: //www.mithink.com/js/top.js> </ script>
<Table ID = Table16 CELLSPACINE = 0 CELLPADDING = 0 Width = 765 Border = 0>
<tr>
<td valign = inférieur Align = Middle Colspan = 2>
<Table ID = Table21 CELLSPACINE = 0 CELLPADDING = 0 Width = 765 Align = Centre Border = 0>
<tr>
<TD> <%
Set fso = createObject (scripting.fileSystemObject)
Hu = remplacer (server.mappath (index.asp), index.asp,) '本系统所在目录
SET TESTFOLDER = FSO.GetFolder (HU)
GenerAteTesTinformation = GeneratEALLFolderiNformation (TestFolder)
Fonction GenerateAlLFolderiNformation (dossier)
Dim S, sous-dossiers, sous-dossier, fichiers, fichier, i
tmptr =
Définir les sous-dossiers = dossier.
Si subfolders.count <> 0 alors
i = 1
Pour chaque sous-dossier dans les sous-dossiers
i = i + 1
tmptr = tmptr & generatefolderinformation (sous-dossier, i)
Suivant
Terminer si
Response.Write TMPSTR & </ Table> <br>
tmptr =
Set file = dosder.files
tmptr = TMPSTR & <Table Border = 0 width = 100% cellSpacing = 1 CellPadding = 4 Align = 'Left' style = 'Word-Break: Break-all'>
tmptr = tmptr &
Sinon (dossier.isrootfolder) alors
tmptr = tmptr &
Terminer si
tmptr = tmptr &
tmptr = tmptr &
Si files.count <> 0 alors
i = 1
Pour chaque fichier dans des fichiers
i = i + 1
tmptr = tmptr & generateFileInformation (fichier, i)
Suivant
Terminer si
Response.Write TMPSTR & </ Table>
Fonction finale
Fonction Urlencode (chemin)
UrLencode = remplacer (server.urlencode (path), /, /)
Fonction finale
Fonction CloseFSO
Fso.close
Définir FSO = rien
Fonction finale
Fonction GenerateFileInformation (fichier, i)
Dim S, Rowcolor
RowColor =
Si je mod 2 = 0 alors rowColor = bgcolor = # 9999dd
Si je mod 2 <> 0 alors 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>
Générer la mise en forme de fichiers = s
Fonction finale