<%
'파일 크기를 계산해서 알맞은 단위로 변환해줌. (바이트 수)
Function ConvertToFileSize(intByte)

    intFileSize = Int(intByte)
    
    If intFileSize >= 1048576 Then
        ConvertToFileSize = FormatNumber((intByte / 1048576), 2) & " MB"
    Else
        If intFileSize >= 1024 Then
            ConvertToFileSize = FormatNumber((intByte / 1024), 0) & " KB"
        Else
            ConvertToFileSize = intByte & " Byte(s)"
        End If
    End If

End Function
%>


<%=ConvertToFileSize(2345678)%><br>
<%=ConvertToFileSize(23456)%><br>
<%=ConvertToFileSize(234)%><br>
<%=ConvertToFileSize(23494344032)%>

관련 아티클 리스트
	제       목	파일	작성자	작성일	조회
	07. 제어문-조건문	-	관리자	2000-12-13	6054
	06. ASP 사용자 정의 함수	-	관리자	2000-12-13	6252
	06.1. 예제. SUB 프로시저 : 반환값이 없는 함수	-	레드플러스	2003-04-08	5333
	6.1.반환값이없는함수.asp		레드플러스	2004-04-03	6085
	06.2. 예제. Function 프로시저 : 반환값이 있는 경우	-	레드플러스	2003-04-08	5238
	6.2.반환값이있는함수.asp		레드플러스	2004-04-03	6155
	06.3. 예제. 파일 크기를 계산해서 알맞은 단위로 변환해 주는 함수	-	레드플러스	2003-04-08	5543
	6.3.파일크기반환함수.asp		레드플러스	2004-04-03	5608
	05. SSI(Server Side Include) 및 템플릿 페이지 작성 기법 연습	-	관리자	2000-12-11	6546