sub showFolder(strfolder)
        dim fso,drvPath,fd,fl,subfd
    dim ifd,ifl
    dim j
       set fso=server.createobject("scripting.filesystemobject")
      drvPath=server.mapPath(strfolder)
       '  Response.write drvpath&"
"
     set fd=fso.GetFolder(drvPath)
      set subfd=fd.subFolders
      'set fl=fd.files
     
      if subfd.count>0 then
        
         for each ifd in subfd
          Response.write "

 "
              Response.write ""& ifd.name&" - "& FormatDateTime(ifd.DateCreated,1)&" - "&showSize(ifd.size)&" -  删除"
          Response.write "

 "
         
         next
      End if
      set fl=fd.files
      if fl.count>0 then
          j=1
         for each ifl in fl
          Response.write "

"
               Response.write ""& ifl.name&" - "& formatDateTime(ifl.DateCreated,1)&" - "&showSize(ifl.size)
               Response.write " - 删除"
          Response.write "

 "
          j=j+1
         next
      End if
         set fso=nothing
    End sub 

 '*************************************
'以直观格式显示文件大小
'*************************************
 function showSize(isize)
              showSize=isize & " Byte" 
        if isize>1024 then
           isize=(isize\1024)
           showSize=isize & " KB"
        end if
        if isize>1024 then
           isize=(isize/1024)
           showSize=formatnumber(isize,2) & " MB"        
        end if
        if isize>1024 then
           isize=(isize/1024)
           showSize=formatnumber(isize,2) & " GB"       
        end if   
 End function
'*************************************
'删除文件filename为虚拟路径
'*************************************
 sub delfile(filename)
       dim fso,filepath
       filepath=server.mapPath(filename)
       set fso=server.createobject("scripting.filesystemobject")
             if fso.fileExists(filepath) then
            fso.DeleteFile filepath,true
         End if
       set fso=nothing
 End sub
'*************************************
'删除文件夹fd为虚拟路径
'*************************************
 sub delfolder(fd)
       dim fso,folderpath
       folderpath=server.mapPath(fd)
       set fso=server.Createobject("scripting.filesystemobject")
             if fso.FolderExists(folderpath) then
            fso.DeleteFolder folderpath,true
         End if
       set fso=nothing
 End sub