[ASP]UTF-8 에서 문자열 길이 확인

Function strintCut( text )

    strintCut = 0

    If VarType( text ) <> 8 Then Exit Function

    If Len( text ) < 1 Then Exit Function

 

    With (CreateObject("ADODB.Stream"))        

        .Type = 2 

        .Charset = "utf-8"

 

        .Open

        .WriteText text

        .Flush

 

        strintCut = .Size - 3

 

        .Close

    End With

End Function