ASP常用函数 储存单位转换函数:FormatFileSize()
来源：互联网 责任编辑：栏目编辑 发表时间:2013-07-01 22:27 点击:次
<%
'功能:储存单位转换函数
Function FormatFileSize(iSize)
Dim aUnits, I
aUnits = Array("B", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB")
I = Log(Abs(iSize)) 7
If I > UBound(aUnits) Then I = UBound(aUnits)
FormatFileSize = FormatNumber(iSize / (1024 ^ I), 2, -1) & " " & aUnits(I)
End Function
相关新闻>>
最新推荐更多>>>
- 发表评论
-
- 最新评论 更多>>
