asp下实现格式化文件大小以MB显示的函数

编程学习 2021-07-05 10:58www.dzhlxh.cn编程入门
<%
'******************************
'函数:FormatFileSize(l1)
'参数:l1,字节数
'作者:阿里西西
'日期:2007/7/12
'描述:格式化文件大小样式
'示例:<%=FormatFileSize(l1)%>
'******************************
function FormatFileSize(l1)
 dim l2,l3
 l3=formatnumber(l1,0,true)
 if l1>1048576 then
 l2="("&formatnumber(l1/1048576,0,true)&" MB) "&l3
 else
  if l1>1024 then
   l2="("&formatnumber(l1/1024,0,true)&" KB) "&l3
  else
   l2=formatnumber(l1,0,true)
  end if
 end if
 llI=l2
end function
%>

Copyright © 2016-2025 www.dzhlxh.cn 金源码 版权所有 Power by

网站模板下载|网络推广|微博营销|seo优化|视频营销|网络营销|微信营销|网站建设|织梦模板|小程序模板