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

【编者按】网学网ASP频道为大家收集整理了“asp下实现格式化文件大小以MB显示的函数“提供大家参考，希望对大家有所帮助!

<%
''******************************
''函数：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
%>