[ASP] 한글 UNICODE 장난쳐 보기

<%
    ch_1 = "ㄱ"
    ch_2 = "가"
    ch_3 = ""
    

    Do While ch_1 <= "ㅎ"
        Select Case ch_1
            Case "ㄳ", "ㄳ", "ㄵ", "ㄶ", "ㄺ", "ㄻ", "ㄼ", "ㄽ", "ㄾ", "ㅀ", "ㄿ", "ㅄ"
                ch_1 = ChrW(AscW(ch_1) + 1)
            Case Else
                ch_3 = ChrW(AscW(ch_2) + 587)
            
                Response.Write ch_1 & "               "
                Response.Write ch_2 & "               "
                Response.Write ch_3 & "<br />"

                ch_1 = ChrW(AscW(ch_1) + 1)
                ch_2 = ChrW(AscW(ch_2) + 588)
        End Select
    Loop
%>

결과는 다음과 같습니다.

ㄱ 가 깋
ㄲ 까 낗
ㄴ 나 닣
ㄷ 다 딯
ㄸ 따 띻
ㄹ 라 맇
ㅁ 마 밓
ㅂ 바 빟
ㅃ 빠 삫
ㅅ 사 싷
ㅆ 싸 앃
ㅇ 아 잏
ㅈ 자 짛
ㅉ 짜 찧
ㅊ 차 칳
ㅋ 카 킿
ㅌ 타 팋
ㅍ 파 핗
ㅎ 하 힣