<
%
www = 0
set objfso = Server.CreateObject ( " Scripting.FileSystemObject " )
set uploadFolder = objfso.getfolder(Server.MapPath( " " ))
set uploadfile = uploadFolder.SubFolders
response.Write( " <table width='75%' border='1' cellpadding='1' cellspacing='1' bordercolor='#663300'bgcolor='#FFFFFF'> " )
response.Write( " <tr bgcolor=#FFFFFF> " )
response.Write( " <td width='9%'>序号</td> " )
response.Write( " <td width='30%'>文件夹名</td></tr> " )
for each upname in uploadfile
response.Write( " <tr bgcolor=#FFFFFF> " )
response.Write( " <td> " )
www = www + 1
response.Write(www)
response.Write( " </td> " )
response.Write( " <td> " )
response.Write(upname.name)
response.Write( " </td> " )
response.Write( " </tr> " )
next
% >
< %
set objfso = Server.CreateObject ( " Scripting.FileSystemObject " )
set uploadFolder = objfso.getfolder(Server.MapPath( " " ))
set uploadfile = uploadFolder.files
response.Write( " <table width='75%' border='1' cellpadding='1' cellspacing='1' bordercolor='#663300'bgcolor='#FFFFFF'> " )
response.Write( " <tr bgcolor=#FFFFFF> " )
response.Write( " <td width='9%'>序号</td> " )
response.Write( " <td width='30%'>文件名</td> " )
response.Write( " <td width='36%'>创建时间</td> " )
response.Write( " <td width='11%'>大小</td></tr> " )
i = 0
data = 0
for each upname in uploadfile
i = i + 1
response.Write( " <tr bgcolor=#FFFFFF> " )
response.Write( " <td> " )
response.Write(i)
response.Write( " </td> " )
response.Write( " <td> " )
response.Write(upname.name) ' 文件名
response.Write( " </td><td> " )
response.Write(upname.DateLastModified) ' 文件修改时间
response.Write( " </td> <td> " )
aaa = upname.Size / 1024
if aaa < 1 then
aaaa = 0 & aaa
else
aaaa = aaa
end if
response.Write (aaaa) ' 显示文件大小<br> <br>
response.Write( " k</td> </tr> " )
data = data + upname.Size
next
response.Write( " <tr bgcolor=#FFFFFF><td> </td><td> </td><td>共这么大</td><td> " )
response.Write(data / 1024 )
response.Write( " <font color=#FF0000>kb</font> " )
response.Write( " </td></tr> " )
response.Write( " </table> " )
uploadfile = " "
% >
www = 0
set objfso = Server.CreateObject ( " Scripting.FileSystemObject " )
set uploadFolder = objfso.getfolder(Server.MapPath( " " ))
set uploadfile = uploadFolder.SubFolders
response.Write( " <table width='75%' border='1' cellpadding='1' cellspacing='1' bordercolor='#663300'bgcolor='#FFFFFF'> " )
response.Write( " <tr bgcolor=#FFFFFF> " )
response.Write( " <td width='9%'>序号</td> " )
response.Write( " <td width='30%'>文件夹名</td></tr> " )
for each upname in uploadfile
response.Write( " <tr bgcolor=#FFFFFF> " )
response.Write( " <td> " )
www = www + 1
response.Write(www)
response.Write( " </td> " )
response.Write( " <td> " )
response.Write(upname.name)
response.Write( " </td> " )
response.Write( " </tr> " )
next
% >
< %
set objfso = Server.CreateObject ( " Scripting.FileSystemObject " )
set uploadFolder = objfso.getfolder(Server.MapPath( " " ))
set uploadfile = uploadFolder.files
response.Write( " <table width='75%' border='1' cellpadding='1' cellspacing='1' bordercolor='#663300'bgcolor='#FFFFFF'> " )
response.Write( " <tr bgcolor=#FFFFFF> " )
response.Write( " <td width='9%'>序号</td> " )
response.Write( " <td width='30%'>文件名</td> " )
response.Write( " <td width='36%'>创建时间</td> " )
response.Write( " <td width='11%'>大小</td></tr> " )
i = 0
data = 0
for each upname in uploadfile
i = i + 1
response.Write( " <tr bgcolor=#FFFFFF> " )
response.Write( " <td> " )
response.Write(i)
response.Write( " </td> " )
response.Write( " <td> " )
response.Write(upname.name) ' 文件名
response.Write( " </td><td> " )
response.Write(upname.DateLastModified) ' 文件修改时间
response.Write( " </td> <td> " )
aaa = upname.Size / 1024
if aaa < 1 then
aaaa = 0 & aaa
else
aaaa = aaa
end if
response.Write (aaaa) ' 显示文件大小<br> <br>
response.Write( " k</td> </tr> " )
data = data + upname.Size
next
response.Write( " <tr bgcolor=#FFFFFF><td> </td><td> </td><td>共这么大</td><td> " )
response.Write(data / 1024 )
response.Write( " <font color=#FF0000>kb</font> " )
response.Write( " </td></tr> " )
response.Write( " </table> " )
uploadfile = " "
% >
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>