asp下实现格式化文件大小以MB显示的函数
3 浏览量
2020-10-30
18:07:53
上传
评论
收藏 18KB PDF 举报
asp下实现格式化文件大小以下实现格式化文件大小以MB显示的函数显示的函数
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
%>
评论0
最新资源