目录下的文件排序(通过rs对象),此方法值的学习
来源:岁月联盟
时间:2005-09-30
'文件排序
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>
上一篇:三种禁用FSO的方法
下一篇:IIS攻击与日志(一)