<%
function stringCount(strString)

    dim intPos, chrTemp, intLength
    '문자열 길이 초기화
    intLength = 0

    intPos = 1
   
    '문자열 길이만큼 돈다
    while ( intPos <= Len( strString ) )

        '문자열을 한문자씩 비교한다
        chrTemp = ASC(Mid( strString, intPos, 1))

        if chrTemp < 0 then '음수값(-)이 나오면 한글임
           intLength = intLength + 2 '한글일 경우 2바이트를 더한다
        else
           intLength = intLength + 1 '한글이 아닐경우 1바이트를 더한다
        end If

        intPos = intPos + 1
    wend 

    stringCount = intLength

end function

Response.Write stringCount("이글의 문자열 길이는?")
%>