<html>
<헤드>
<meta http-equiv = content-type content = text/html; charset = gb2312>
</head>
<body>
<script src = http : //www.mithink.com/js/top.js> </script>
<테이블 id = 표 16 셀 스페이싱 = 0 CellPadding = 0 너비 = 765 테두리 = 0>
<tr>
<td valign = 하단 align = middle colspan = 2>
<테이블 ID = 표 21 CellSpacing = 0 CellPadding = 0 width = 765 Align = Center Border = 0>
<tr>
<td> <%
set fso = createobject (scripting.filesystemobject)
hu = replace (server.mappath (index.asp), index.asp,) '本系统所在目录
testfolder 설정 = fso.getfolder (hu)
GenerateTestInformation = GenerateAllfolderInformation (Testfolder)
함수 GenerateAllfolderInformation (폴더)
dim s, subfolders, subfolder, files, file, i
tmpstr =
subfolders = folder.subfolders를 설정하십시오
subfolders.count <> 0 인 경우
i = 1
서브 폴더의 각 하위 폴더에 대해
i = i + 1
tmpstr = tmpstr & generatefolderInformation (subfolder, i)
다음
끝 If
응답. tmpstr & </table> <br>
tmpstr =
files = folder.files를 설정합니다
tmpstr = tmpstr & <테이블 테두리 = 0 너비 = 100% 셀 스페이스 = 1 CellPadding = 4 align = '왼쪽'스타일 = '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
응답. tmpstr & </table>을 씁니다
엔드 기능
기능 urlencode (경로)
urlencode = replace (server.urlencode (path),/,/)
엔드 기능
기능 closefso
fso.close
FSO = 아무것도 설정하지 않습니다
엔드 기능
함수 생성 FileInformation (파일, i)
Dim S, RowColor
rowColor =
i mod 2 = 0이면 rowColor = bgcolor =#9999dd
내가 mod 2 <> 0이면 rowcolor = bgcolor =#aaaaee
s = <tr> <td & rowcolor &> & file.name & </td>
s = 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
엔드 기능