月光飘影

dim  fso,  f,  fc  
dim  fp  '  文件路径  
fp  =  request("fp")  
if  trim(fp)  =  ""  then  fp  =  "C:\"  
set  fso  =  server.createobject("scripting.filesystemobject")  
set  f  =  fso.getFolder(fp)  
set  fc  =  f.subFolders  
response.write  "<b>类型    名称    大小</b><br>"  
for  each  ff  in  fc  
           response.write  "文件夹   "  
           response.write  "<a  href=""f.asp?fp="  &  ff.path  &  """>"  &  ff.name  &  "</a>      "  
           .write  ff.size  &  "<br>"  
next  
set  fc  =  f.files  
for  each  ff  in  fc  
           response.write  "文件     "  
           response.write  ff.name  &  "    "  
           response.write  ff.size  &  "<br>"  
next