<% '****************************** '函數：FormatFileSize(l1) '參數：l1,字節數 '作者：阿里西西 '日期：2007/7/12 '描述：格式化文件大小樣式 '示例：<%=FormatFileSize(l1)%> '****************************** function FormatFileSize(l1) dim l2,l3 l3=formatnumber(l1,0,true) if l1>1048576 then l2="("&formatnumber(l1/1048576,0,true)&" MB) "&l3 else if l1>1024 then l2="("&formatnumber(l1/1024,0,true)&" KB) "&l3 else l2=formatnumber(l1,0,true) end if end if llI=l2 end function %>
