·您现在的位置： 云翼网络 >> 文章中心 >> 网站建设 >> 网站建设开发 >> ASP网站建设 >> ASP常用函数 储存单位转换函数:FormatFileSize()

【如有意向点此提交需求】关于我们

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

作者：佚名      ASP网站建设编辑：admin      更新时间：2022-07-23
程序代码
<%
'功能:储存单位转换函数
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
%>