您的位置首页ASP

关于空间上的文件的管理代码

<%
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
%>

本文来自网络,不代表芝麻站长立场,转载请注明出处:http://www.wuhu815.com/asp/221.html
联系我们

联系我们

173-5429-9937

在线咨询: QQ交谈

邮箱: web018@163.com

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部