وظيفة تحويل وحدة تخزين الوظائف المشتركة لـ ASP: FormatFileSize()
الكاتب：Eve Cole
وقت التحديث：2009-06-26 18:09:25
هذا هو الحال
<%
'功能:储存单位转换函数
الدالة FormatFileSize(iSize)
وحدات خافتة، I
aUnits = Array("B"، "KB"، "MB"، "GB"، "TB"، "PB"، "EB"، "ZB"، "YB")
أنا = سجل (عبس (iSize)) 7
إذا كنت > UBound(aUnits) فأنا = UBound(aUnits)
FormatFileSize = FormatNumber(iSize / (1024 ^ I), 2, -1) & " " & aUnits(I)
وظيفة النهاية
%>
