asp读取文件夹下的图片并按时间排序

前几天由于一个项目需要就简单写了个【所以很简单】

<%
fpath="pic/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objfolder=objFSO.getfolder(server.mappath(fpath))
picArr=""
picbegin=""
pageSize=20
page=request("page")
If page="" Then page=1
picbegin=(page-1)*pageSize
for each objfile in objfolder.files 
    If picArr="" then
        picArr=objfile.name&"$"&objfile.DateLastModified
    Else
        picArr=picArr&"|"&objfile.name&"$"&objfile.DateLastModified
    End If
next 
set objfolder=nothing 
picArr=Split(picArr,"|")
picnum=UBound(picArr)+1

Dim short
for i=0 To UBound(picArr)
    For m=i To UBound(picArr)
        If CDate(Split(picArr(i),"$")(1))<CDate(Split(picArr(m),"$")(1)) Then 
            short=picArr(i)
            picArr(i)=picArr(m)
            picArr(m)=short
        End if
    next
next

If picnum<pageSize Then
    pageCount=1
Else
    pageCount=Int(picnum/pageSize)
    If picnum Mod pageSize >0 Then pageCount=pageCount+1
End If
thispageend=picbegin+pageSize -1
If thispageend>=picnum Then thispageend=picnum-1
img_html = ""
For i=picbegin To thispageend
    img_html = img_html + "<li><a href='pic/"&Split(picArr(i),"$")(0)&"' target=_blank><img src='pic/"&Split(picArr(i),"$")(0)&"' /></a><br><span class=title>"&Split(Split(picArr(i),"$")(0),".")(0)&"</span><br><span class=date>"&Split(picArr(i),"$")(1)&"</span></li>"
Next
page_html = "当前：第<font color=red><b>"&page&"</b></font>页  第"
For i=1 To pageCount
page_html = page_html + " <a href='?page="&i&"'>"&i&"</a> "
Next
page_html = page_html + "页  共计<font color=red><b>"&pageCount&"</b></font>页"
%>