asp 字节转换kb mb GB函数

'字节表示一个大容量的文件是很难看了，为了方便我们经常会把字节转换成kb mb来表示，下面就是一款根据字节大小转换成kb,mb,gb的函数

function mysize(num)
 mysize=cnum(num)
 if mysize>1024 then
  mysize=round(mysize/1024,0)
  if mysize>=1024 then
   mysize=round(mysize/1024,0) & " m"
  else
   mysize=mysize & " kb"
  end if
 else
  mysize=mysize
 end if
end function