用asp实现文件浏览、上传、下载的程序(8)

      <% ShowFolderList(foldinfo) %> 
    </td> 
  </tr> 
  <tr>  
    <td >  
      <table width="750" border="0" cellspacing="1" cellpadding="1"> 
        <tr bgcolor="#009999">  
          <td width="300">File</td> 
          <td width="180">Size</td> 
          <td width="200">LastTime</td> 
          <td width="100">Operate</td> 
        </tr> 
      </table> 
    </td> 
  </tr> 
  <tr>  
    <td >  
      <% showfolderinfo(foldinfo)%> 
    </td> 
  </tr> 
  <tr>  
    <td> </td> 
  </tr> 
</table> 
<% 
Sub ShowFolderList(folderspec) 
    Dim fs, f, f1, fc, s, schild,p,fsize 
    Set fs = CreateObject("scripting.FileSystemObject") 
    Set f = fs.GetFolder(folderspec) 
    Set fc = f.SubFolders 
    For Each f1 in fc 
            s = f1.name 
            's = s &  vbCrLf 
        p = f1.DateLastModified 
        fsize = f1.Size 
            schild=folderspec&s&"\" 

Response.write("<table width='750' border='0' cellspacing='1' cellpadding='1'>") 
Response.write("<tr>") 
Response.write("<td width='300' bgcolor='#ECFFD9'><font face='Wingdings' font size='3pt'>0</font><a href='?foldinfo="&schild&"'>"&s&"</a></td>") 
Response.write("<td width='180' bgcolor='#ECFFD9'>"&fsize&"</td>")