一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

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

时间:2010-10-08 编辑:简简单单 来源:一聚教程网

 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

热门栏目