asp获取文件名与文件大小函数

 private function getfilenamebypath(fullpath)
  dim pos
  pos = 0
  fullpath = replace(fullpath, "/", "")
  pos = instrrev(fullpath, "") + 1
  if (pos > 0) then
   getfilenamebypath = mid(fullpath, pos)
  else
   getfilenamebypath = fullpath
  end if
 end function
   
    function file_sizes(filesizes)
 if filesizes<1024 then
  file_sizes=filesizes&" bytes"
 elseif filesizes<1048576 then
  file_sizes=round(filesizes/1024,2)&" kb"
 else
  file_sizes=round(filesizes/1048576,3)&" mb"
 end if
end function