关于空间上文件的管理ASP实例代码分享

      下面提供给大家分享学习的是关于空间上文件的管理的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=java script>alert('删除成功！');location.href('?page="&page&"');</script>"
      end if
      %>