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

ASP
FrontPage 2000+DB2实现数据库信息发布
Execel文件插入到ASP页面
利用ASP在客户端注册DLL文件
1栏分页显示(附显示的形式前页,后页)
1栏分页显示(附显示的形式[1][2])
一个基于web的QQ程序 2(xml+asp)
XMLHTTP+javascript+Asp写得聊天室,无刷新实现(一)
XMLHTTP+javascript+Asp写得聊天室,无刷新实现(二)
XMLHTTP+javascript+Asp写得聊天室,无刷新实现(三)
XMLHTTP+javascript+Asp写得聊天室,无刷新实现(四)
XMLHTTP+javascript+Asp写得聊天室,无刷新实现(五)
XMLHTTP+javascript+Asp写得聊天室,无刷新实现(六)
建立一个广告交换及跟踪系统
如何制作无状态的ASP组件
无组件文件上传代码实例
建立动态下拉式选单(三阶层)
用ASP编写的“俄罗斯方块游戏”
利用ASP.NET来访问Excel文档
初探SSI网页制作
具有自攻击性的代码

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 192 ::
收藏到网摘: 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
%>