<%
aaa="images/" ' ------------文件夹路径
pagesize=3 '--------------每页显示的文件数!
totalpage=1
page=trim(request.querystring("page"))
if page<>"" and isnumeric(page) then
page=fix(page)
else
page=1
end if
Set fs = CreateObject("Scripting.FileSystemObject")
sPathFile=""&aaa&""
Set f = fs.GetFolder(Server.MapPath(sPathFile))
if f.files.count mod pagesize=0 then
totalpage=f.files.count\pagesize
else
totalpage=f.files.count\pagesize+1
end if
if page<1 then
page=1
end if
if page>totalpage then
page=totalpage
end if
i=1
startnum=(page-1)*pagesize%>
<% For Each s_folder in f.subfolders %>'----文件夹循环开始
<%=s_folder.name%>
<% next %>
<% For Each f1 in f.Files
if i>startnum then %>'----文件循环开始
<%= f1.name%><%= f1.size%><%= f1.type%><%= f1.datelastmodified%>
<%
end if
if i>startnum+pagesize then
exit for
end if
i=i+1
next
%>
<%if page>1 then %>'---分页开始
<a href="/?page=1">首页</a>
<% end if %>
<%if page>1 then %>
<a href="?page=<%=page-1%>">上一页</a>
<% end if %>
<% If f.files.count=0 Then %>
此目录下没有文件！
<% Else %>
共<%=f.files.count%>个文件 第<%=page%> / <%=totalpage%>页
<% End If %>
<%if page<totalpage then%>
<a href="?page=<%=page+1%>">下一页</a>
<%end if %>
<%if page<>totalpage then%>
<a href="?page=<%=totalpage%>">尾页</a>
<%end if %>'----分页结束
<% set fs=nothing %>
<%'------------------------删除文件!
If request("action")="del_upfilename" Then
del_upfilename=request("del_upfilename")
set fileobj=server.createobject("scripting.filesystemobject")
if fileobj.FileExists(server.mappath(del_upfilename)) then
fileobj.DeleteFile(server.mappath(del_upfilename))
end if
set fileobj=nothing
response.write "<script language=javascript>alert('删除成功！');location.href('?page="&page&"');</script>"
end if
%>