<html>
<голова>
<meta http-equiv = content-type content = text/html; charset = gb2312>
</head>
<тело>
<script src = http: //www.mithink.com/js/top.js> </script>
<Таблица ID = Таблица16 CellScocking = 0 cellPadding = 0 ширина = 765 Border = 0>
<tr>
<td valign = нижний align = middle colspan = 2>
<Таблица ID = Таблица 21 Cell -Spacing = 0 cellPadding = 0 ширина = 765 Align = Center Border = 0>
<tr>
<td> <%
Установить fso = createObject (scripting.filesystemobject)
hu = reply (server.mappath (index.asp), index.asp,) '本系统所在目录
SET TESTFORDER = FSO.GetFolder (HU)
GenerateTeStinformation = GenerateAlFolderTerinformation (TestFolder)
Функция generateallOwderTerinformation (папка)
Dim S, подпапки, подпапки, файлы, файл, i
tmpstr =
Установить sublosters = folder.subfolders
Если sublowers.count <> 0, тогда
i = 1
Для каждой подпапки в подпапке
i = i + 1
tmpstr = tmpstr & GenerateFolderInformation (подпальная часть, i)
Следующий
Конец, если
Response.write tmpstr & </table> <br>
tmpstr =
Set files = folder.files
tmpstr = tmpstr & <table border = 0 width = 100% cell-spacing = 1 cellpadding = 4 align = 'left' style = 'break: break-all'>
tmpstr = tmpstr &
Если нет (folder.iSrootfolder), тогда
tmpstr = tmpstr &
Конец, если
tmpstr = tmpstr &
tmpstr = tmpstr &
Если files.count <> 0, тогда
i = 1
Для каждого файла в файлах
i = i + 1
tmpstr = tmpstr & GenerateFileInformation (файл, i)
Следующий
Конец, если
Response.write tmpstr & </table>
Конечная функция
Функция urlencode (path)
Urlencode = reply (server.urlencode (path),/,/)
Конечная функция
Функция CloseFSO
Fso.close
Установить FSO = ничего
Конечная функция
Функция GENEGERATEFILEINFormation (файл, i)
Dim S, Rowcolor
Rowcolor =
Если I MOD 2 = 0, то ROWCOLOR = BGCOLOR =#9999DD
Если я мод 2 <> 0, то 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
Конечная функция