關(guān)于空間上文件的管理ASP實(shí)例代碼分享
下面提供給大家分享學(xué)習(xí)的是關(guān)于空間上文件的管理的ASP代碼，希望能夠給大家?guī)?lái)幫助或啟發(fā)。
<%
aaa="images/" ' ------------文件夾路徑
pagesize=3 '--------------每頁(yè)顯示的文件數(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)開(kāi)始
<%=s_folder.name%>
<% next %>
<% For Each f1 in f.Files
if i>startnum then %>'----文件循環(huán)開(kāi)始
<%= 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 %>'---分頁(yè)開(kāi)始
<a href="/?page=1">首頁(yè)</a>
<% end if %>
<%if page>1 then %>
<a href="?page=<%=page-1%>">上一頁(yè)</a>
<% end if %>
<% If f.files.count=0 Then %>
此目錄下沒(méi)有文件！
<% Else %>
共<%=f.files.count%>個(gè)文件 第<%=page%> / <%=totalpage%>頁(yè)
<% End If %>
<%if page<totalpage then%>
<a href="?page=<%=page+1%>">下一頁(yè)</a>
<%end if %>
<%if page<>totalpage then%>
<a href="?page=<%=totalpage%>">尾頁(yè)</a>
<%end if %>'----分頁(yè)結(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
%>
