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

ASP
深入讲解 ASP+ 验证(一)
深入讲解 ASP+ 验证(二)
深入讲解 ASP+ 验证(三)
深入讲解 ASP+ 验证(四)
通过事例学习.net的WebForms技术(一)
通过事例学习.net的WebForms技术(二)
StripNonNumeric函数源程序
通过事例学习.net的WebForms技术(三)
通过事例学习.net的WebForms技术(四)
将HTML表单数据存储为XML格式 - 1
将HTML表单数据存储为XML格式 - 2
将HTML表单数据存储为XML格式 - 3
asp生日自动提醒小程式
WEB页面简单进度记时器
在主页中编制音频播放器
图片数据的存和取示例
用ASPMail组件实现E_mail自动反馈
读取目录下的所有文件(源码)
制作我们自己的Ebay(拍卖系统)(1)
制作我们自己的Ebay(拍卖系统)(2)

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


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