<%
'文件排序
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder("d:\shop_gb\admin\")
'Get Recordset Object and Disconnect
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 1
rs.CursorType = 1
rs.Fields.Append "filename",200,255
rs.Fields.Append "filedate",200,255
rs.Fields.Append "filesize",200,255
rs.open
if err.number <> 0 then
errMsg = err.Description
call endOfPage()
end if
'Populate recordset and sort
for each item in folder.Files
rs.AddNew
rs.Fields("filename") = item.Name
rs.Fields("filedate") = item.dateLastModified
rs.Fields("filesize") = item.Size
rs.update
next
rs.Sort = "filename ASC"
rs.MoveFirst
%>
<table border=0 cellspacing=0 cellpadding=1 width="100%" align=center>
<tr>
<td align=left bgcolor=#DDDDDD><b>Filename</b></td>
<td align=left bgcolor=#DDDDDD><b>Modified</b></td>
<td align=left bgcolor=#DDDDDD><b>Bytes</b></td>
</tr>
<%
'Display files
do while not rs.EOF
%>
<tr>
<td nowrap><%=rs("filename")%></td>
<td nowrap><%=rs("filedate")%></td>
<td nowrap><%=rs("filesize")%></td>
</tr>
<%
rs.MoveNext
loop
rs.close
set rs=nothing
%>
</table>