哆啦A梦

<style type="text/css">
.filelist{ clear:both;}
.filelist ul li{list-style:none;float:left; width:200px;}
</style>
<%
response.Write("<div class='filelist'><ul><li>文件夹或文件</li><li>文件大小</li><li>最后修改时间</li></ul></div>")

filepath="文件夹相对路径"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fileobj = fso.GetFolder(server.mappath(filepath))
Set fsofolders = fileobj.SubFolders
Set fsofile = fileobj.Files

For Each folder in fsofolders
  response.Write("<div class='filelist'><ul><li>"&folder.name&"</li><li>"&folder.size&"</li><li>"&folder.datelastmodified&"</li></ul></div>")
Next

For Each file in fsofile
  response.Write("<div class='filelist'><ul><li>"&file.name&"</li><li>"&file.size&"</li><li>"&file.datelastmodified&"</li></ul></div>")
Next
%>