asp获取文件大小

'函数作用：获取文件大小
function getfilesize(filename)
    '判断文件名是不是为空
 if filename="" then
  getfilesize="0kb"
  exit function
 end if
 dim ofso,ofile,sfile
 sfile=filename
 set ofso=server.createobject("scripting.filesystemobject")
  '判断获取文件大小的文件是否存在
 if ofso.fileexists(server.mappath(sfile)) then 
 set ofile=ofso.getfile(server.mappath(sfile))
  '判断获取文件大小
 getfilesize= cstr( cdbl( formatnumber( ofile.size / 1024))) & "kb"
 else
     getfilesize="0kb"
  exit function
 end if
 set ofile=nothing
 set ofso=nothing
end function