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