<html>
<头>
<meta http-equiv = content-type content = text/html; charset = gb2312>
</head>
<身体>
<script src = http：//www.mithink.com/js/top.js> </script>
<table id = table16 cellspacing = 0 cellpadding = 0 width = 765 border = 0>
<tr>
<td valign =底部align =中colspan = 2>
在
<tr>
<TD> <％
set fso = createObject（scripting.filesystemobject）
hu =替换（server.mappath（index.asp），index.asp）'本系统所在目录
SET TESTFOLDER = FSO.GETFOLDER（HU）
GenerateTestInformation = GenerateallFolderInformation（testFolder）
函数generateallfolderinformation（文件夹）
DIM S，子文件夹，子文件夹，文件，文件，I
TMPSTR =
设置子文件夹=文件夹。
如果子文件夹。计数<> 0，然后
i = 1
对于子文件夹中的每个子文件夹
i = i + 1
TMPSTR = TMPSTR＆generateFolderInformation（subfolder，i）
下一个
如果结束
响应。写入tmpstr＆</table> <br>
TMPSTR =
设置文件=文件夹。文件
tmpstr = tmpstr＆<表border = 0 width = 100％cellpacing = 1 cellpadding = 4 align ='left'style ='word-break：break-all'> break-all'>
TMPSTR = TMPSTR＆
如果不是（folder.isrootfolder），则
TMPSTR = TMPSTR＆
如果结束
TMPSTR = TMPSTR＆
TMPSTR = TMPSTR＆
如果files.count <> 0，然后
i = 1
对于文件中的每个文件
i = i + 1
TMPSTR = TMPSTR＆generateFileInformation（文件，i）
下一个
如果结束
响应。WriteTMPSTR＆</table>
结束功能
功能urlencode（路径）
urlencode = replace（server.urlencode（path），/，/）
结束功能
功能关闭
fso.close
设置FSO =什么都没有
结束功能
函数生成FileInformation（文件，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 =中心＆rowcolor＆>
s = s＆<a href ='＆file.name＆'>↓</a> </td> </tr>
生成fileInformation = s
结束功能