<html>
<head>
<meta http-equiv = content-type content = text/html; charset = gb2312>
</head>
<Body>
<script src = http: //www.mithink.com/js/top.js> </script>
<tabela ID = Tabela16 CellSpacing = 0 CellPadding = 0 Largura = 765 borda = 0>
<tr>
<TD Valign = ALIGN BOOD = COLSPAN MEDIENTE = 2>
<tabela ID = Tabela21 CellSpacing = 0 CellPadding = 0 Largura = 765 alinhamento = borda central = 0>
<tr>
<Td> <%
Set fso = createObject (script.filesystemObject)
hu = substituir (server.mappath (index.asp), index.asp,) '本系统所在目录
Definir testFolder = fso.getFolder (hu)
Generatetestinformation = generateAllFolderInformation (testFolder)
Função generateallfolderinformation (pasta)
Dim s, subpastas, subpasta, arquivos, arquivo, eu
tmpstr =
Definir subpastas = pasta.subfolders
Se subpaspas.
i = 1
Para cada subpasta em subpastas
i = i + 1
tmpstr = tmpstr & generatefolderinformation (subpasta, i)
Próximo
Final se
Response.Write tmpstr & </ table> <br>
tmpstr =
Definir arquivos = pasta.files
tmpstr = tmpstr & <borda da tabela = 0 largura = 100% CellSpacacing = 1 CellPadding = 4 align = 'esquerda' estilo = 'word-break: break-all'>
tmpstr = tmpstr &
Se não (pasta.isrootfolder) então
tmpstr = tmpstr &
Final se
tmpstr = tmpstr &
tmpstr = tmpstr &
Se arquivos.count <> 0 então
i = 1
Para cada arquivo em arquivos
i = i + 1
tmpstr = tmpstr & generatefileInformation (arquivo, i)
Próximo
Final se
Response.Write tmpstr & </ table>
Função final
Função urlencode (caminho)
Urlencode = substituir (server.urlencode (caminho),/,/)
Função final
Função closefso
Fso.close
Definir FSO = nada
Função final
Função generatefileInformation (arquivo, i)
Dim S, Rowcolor
Rowcolor =
Se eu mod 2 = 0 então rowcolor = bgcolor =#9999dd
Se eu mode 2 <> 0 então 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
Função final