asp代碼 關於空間上的檔案的管理代碼

來源:互聯網
上載者:User

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



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。