当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下实现格式化文件大小以MB显示的函数

ASP
ASP视频教程:建立后台修改管理员密码页面
ASP视频教程:建立数据库新闻表和添加新闻页面
ASP动态include文件
用ASP开发网页需要牢记的注意事项
利用ASP发送和接收XML数据的处理方法
Session对象失效的客户端解决方法
送给搞采集的兄弟一个sql语句
一次性下载远程页面上的所有内容
aspjpeg组件使用方法
AspJpeg V1.5.0 破解版
asp模板引擎终结者(WEB开发之ASP模式)
浅谈 ASP 模板技术之参数传递
Win2003下提高FSO的安全性
用XML+FSO+JS实现服务器端文件的选择
本人常用的分页代码
另类的文件上传解决方案
写了段批量抓取某个列表页的东东
水印测试(重新测试)
Aspjpeg添加水印完整方法
UBB编辑器

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 149 ::
收藏到网摘: n/a

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