<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
エンド関数