ASP 문자의 바이트수 알아내기

ASP 바이트 리턴

Public Function LenUTFB(ByVal as_Str)

Dim ii_Pos, is_Chr
Dim ii_AscB: ii_AscB = 1
Dim ii_UTFB: ii_UTFB = 2

LenUTFB = 0

If Not IsNull(as_Str) Then
        For ii_Pos = 1 To Len(CStr(as_Str)) Step 1
                is_Chr = Mid(as_Str, ii_Pos, 1)
           
                If (0 > Asc(is_Chr)) Or (127 < Asc(is_Chr)) Then
                      LenUTFB = LenUTFB + ii_UTFB
                Else
                      LenUTFB = LenUTFB + ii_AscB
                End If
        Next
End If

End Function

어디서 퍼왔는지 모르겠다 만드신분 죄송해요...;;;;

펑션으로 만들어 놓으니 참 편리하다
모르는 사람을 위해서 예제를 ...ㅎㅎ

Dim str, strbyte
str = "테스트중이지렁"

strbyte = LenUTFB(str)   ' 위에서 만든 펑션 이름 과 전달할 인자값
Response.Write strbyte

이렇게 하면 정확한 바이트 수가 나온다. len 이 아니다 byte 다 !!!!