| |
| |
| 当前位置：图片管理 |
|
 |
您可以对空间内无用的图片进行删除操作，节省空间！ |
|
| |
|
<%
if fso.FolderExists(TruePath)then
FileCount=0
TotleSize=0
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files
FileCount=FileCount+1
TotleSize=TotleSize+theFile.Size
next
totalPut=FileCount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "
本页共显示 " & FileCount-1 & " 个文件，占用 " & TotleSize\1024 & " K "
else
if (currentPage-1)*MaxPerPage本页共显示 " & FileCount-1 & " 个文件，占用 " & TotleSize\1024 & " K "
else
currentPage=1
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "
本页共显示 " & FileCount-1 & " 个文件，占用 " & TotleSize\1024 & " K "
end if
end if
else
response.write "找不到文件夹！可能是配置有误！"
end if
end if
sub showContent()
dim c
FileCount=1
TotleSize=0
%>
<% For Each theFile In theFolder.Files
c=c+1
if FileCount>MaxPerPage then
exit for
elseif c>MaxPerPage*(CurrentPage-1) then %>
|
<% if FileCount mod 5 =0 then%>
<%end if%>
<% FileCount=FileCount+1
TotleSize=TotleSize+theFile.Size
end if
Next
%>
<%
end sub
%>
|
<%
sub showpage2(sfilename,totalnumber,maxperpage)
dim n, i,strTemp
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= ""
response.write strTemp
end sub
%>
|
|
|
|
