<html>
<Evista>
<meta http-oquiv = content-type content = text/html; Charset = GB2312>
</ablo>
<Body>
<script src = http: //www.mithink.com/js/top.js> </script>
<Tabla ID = Tabla16 CellSpacing = 0 CellPadding = 0 Width = 765 Border = 0>
<tr>
<TD Valign = Bottom Align = Middle Colspan = 2>
<Tabla ID = Tabla21 CellSpacing = 0 CellPadding = 0 Width = 765 Align = Center Border = 0>
<tr>
<td> <%
Establecer fso = createObject (scripting.filesystemObject)
Hu = reemplazar (server.mappath (index.asp), index.asp,) '本系统所在目录
Establecer testFolder = fso.getfolder (HU)
GenerateTInformation = GenerateLlFolderInformation (TestFolder)
Function GenerateAllFolderInformation (carpeta)
Dim S, subcarpetas, subcarpetas, archivos, archivo, I
tmpstr =
Establecer subcarpetas = carpeta.subfolders
Si subcarpetas.count <> 0 entonces
i = 1
Para cada subcarpeta en subcarpetas
i = i + 1
TMPSTR = TMPSTR & GenerateFolderInformation (subcarpeta, i)
Próximo
Final si
Respuesta
tmpstr =
Establecer archivos = carpeta.files
TMPSTR = TMPSTR & <TABLE BORDER = 0 Width = 100% CellSpacing = 1 CellPadding = 4 Align = 'Left' style = 'Word-Break: Break-ALL'>
TMPSTR = TMPSTR &
Si no (carpeta.isrootfolder) entonces
TMPSTR = TMPSTR &
Final si
TMPSTR = TMPSTR &
TMPSTR = TMPSTR &
If files.count <> 0 entonces
i = 1
Para cada archivo en archivos
i = i + 1
TMPSTR = TMPSTR & GenerateFileInformation (archivo, i)
Próximo
Final si
Respuesta.WRITE TMPSTR & </Table>
Función final
Función urlencode (ruta)
Urlencode = reemplazar (server.urlencode (ruta),/,/)
Función final
Función CloseFSO
FSO.CLOSE
Establecer FSO = nada
Función final
Función generateFileInformation (archivo, i)
Dim S, Rowcolor
RowColor =
Si I mod 2 = 0 entonces rowColor = bgcolor =#9999dd
Si yo mod 2 <> 0 entonces rowColor = bgcolor =#aaaaee
S = <tr> <td & rowcolor &> & file.name & </td>
S = S & <TD & RowColor &> & FormatNumber (File.Size/1024, 0) y KB </td>
S = S & <td align = Center & RowColor &>
S = s & <a href = '& file.name &'> ↓ </a> </td> </tr>
GenerateFileInformation = S
Función final