ASP
Here you can find some FREE usefull Classic ASP / VBScript code snippets, class modules, etc.
Function FileSizeDesc(String)String
Translates a numeric (Long) value into a file size
description.
Example
<% response.write FileSizeDesc(842371) ' will output "822,63 KB" %> Source Code <%
Function FileSizeDesc(byval lngFSize) Dim i Const decimalSeparator = "," ' change this according to your country or needs i=0 do while lngFSize>1023 lngFSize = lngFSize/1024: i = i+1 loop FileSizeDesc=replace(round(lngFSize,2),".",decimalSeparator) & split(" bytes, KB, MB, GB, TB",",")(i) End Function %> |