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

　　%>