關(guān)于空間上文件的管理ASP實例代碼分享

下面提供給大家分享學(xué)習(xí)的是關(guān)于空間上文件的管理的ASP代碼，希望能夠給大家?guī)�來幫助或啟發(fā)。

<%
aaa="images/"   ' ------------文件夾路徑
pagesize=3     '--------------每頁顯示的文件數(shù)!
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 %>'----文件夾循環(huán)開始
      <%=s_folder.name%>
 <% next %>
 <% For Each f1 in f.Files
 if i>startnum then %>'----文件循環(huán)開始
<%= 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 %>'----分頁結(jié)束
      <% 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
%>