<%
'*********************************
'Function: FormatFileSize(l1)
'Arguments: l1, number of bytes
'Author: Alixi
'Date: 2007/7/12
'Description: Format file size style
'Example: <%=FormatFileSize(l1)%>
'*********************************
functionFormatFileSize(l1)
diml2,l3
l3=formatnumber(l1,0,true)
ifl1>1048576then
l2="("&formatnumber(l1/1048576,0,true)&"MB)"&l3
else
ifl1>1024then
l2="("&formatnumber(l1/1024,0,true)&"KB)"&l3
else
l2=formatnumber(l1,0,true)
endif
endif
llI=l2
endfunction
%>