<html>
<head>
<メタhttp-equiv = content-type content = text/html; charset = gb2312>
</head>
<body>
<スクリプトsrc = http://www.mithink.com/js/top.js> </script>
<表ID = Table16 CellSpacing = 0 CellPadding = 0 width = 765 Border = 0>
<tr>
<td valign = bottom align = middle colspan = 2>
<表ID = Table21 CellSpacing = 0 CellPadding = 0 width = 765 align = center border = 0>
<tr>
<td> <%
fso = createObject(scripting.filesystemObject)をset
hu = leppled(server.mappath(index.asp)、index.asp、) '本系统所在目录
set testfolder = fso.getFolder(hu)
generateTestinformation = generateallfolderinformation(testfolder)
関数generateallfolderinformation(フォルダー)
DIM S、サブフォルダー、サブフォルダー、ファイル、ファイル、i
tmpstr =
subfolders = folder.subfoldersを設定します
subfolders.count <> 0の場合
i = 1
サブフォルダーの各サブフォルダーについて
i = i + 1
tmpstr = tmpstr&generatefolderinformation(subfolder、i)
次
ifを終了します
Response.write tmpstr&</table> <br>
tmpstr =
files = folder.filesを設定します
tmpstr = tmpstr&<table border = 0 width = 100%cellspacing = 1 cellpadding = 4 align = 'left' style = 'word-break:break-all'>
tmpstr = tmpstr&
そうでない場合(folder.isrootfolder)
tmpstr = tmpstr&
ifを終了します
tmpstr = tmpstr&
tmpstr = tmpstr&
files.count <> 0の場合
i = 1
ファイル内のファイルごとに
i = i + 1
tmpstr = tmpstr&generatefileinformation(file、i)
次
ifを終了します
Response.write tmpstr&</table>
エンド関数
functionurlencode(パス)
urlencode = cheplage(server.urlencode(path)、/、/)
エンド関数
関数closefso
fso.close
FSO =何も設定しません
エンド関数
function generatefileinformation(file、i)
Dim S、rowcolor
rowcolor =
mod 2 = 0の場合、rowcolor = bgcolor =#9999dd
mod 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
エンド関数