前几天由于一个项目需要就简单写了个【所以很简单】
<%
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>页"
%>