Функция преобразования единицы хранения общих функций ASP: FormatFileSize()
Автор:Eve Cole
Время обновления:2009-06-26 18:09:25
程序代码
<%
'功能:储存单位转换函数
Функция FormatFileSize(iSize)
Dim aUnits, я
aUnits = Array("B", "KB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB")
Я = Log(Abs(iSize)) 7
Если I > UBound(aUnits), то I = UBound(aUnits)
FormatFileSize = FormatNumber(iSize / (1024 ^ I), 2, -1) & " " & aUnits(I)
Конечная функция
%>