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

1. <%  
2. '******************************  
3. '函数：FormatFileSize(l1)  
4. '参数：l1,字节数  
5. '作者：阿里西西  
6. '日期：2007/7/12  
7. '描述：格式化文件大小样式  
8. '示例：<%=FormatFileSize(l1)%>  
9. '******************************  
10. function FormatFileSize(l1)  
11.  dim l2,l3  
12.  l3=formatnumber(l1,0,true)  
13.  if l1>1048576 then  
14.  l2="("&formatnumber(l1/1048576,0,true)&" MB) "&l3  
15.  else  
16.   if l1>1024 then  
17.    l2="("&formatnumber(l1/1024,0,true)&" KB) "&l3  
18.   else  
19.    l2=formatnumber(l1,0,true)  
20.   end if  
21.  end if  
22.  llI=l2  
23. end function  
24. %>