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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!