ASP常用函数 储存单位转换函数:FormatFileSize

程序代码you中国设计秀
<%you中国设计秀
'功能:储存单位转换函数you中国设计秀
Function FormatFileSize(iSize)you中国设计秀
    Dim aUnits, Iyou中国设计秀
    aUnits = Array("B", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB")you中国设计秀
    I = Log(Abs(iSize)) 7you中国设计秀
    If I > UBound(aUnits) Then I = UBound(aUnits)you中国设计秀
    FormatFileSize = FormatNumber(iSize / (1024 ^ I), 2, -1) & " " & aUnits(I)you中国设计秀
End Functionyou中国设计秀
%>you中国设计秀