<%
'
문자열이 있는 문자는 getpychar(char)입니다.
tmp = 65536 + Asc(문자)
If(tmp>= 45217 그리고 tmp<= 45252) 그러면
getpychar = "A"
ElseIf(tmp>= 45253 And tmp<= 45760) 그러면
getpychar = "B"
ElseIf(tmp>= 47761 And tmp<= 46317) 그러면
getpychar = "C"
ElseIf(tmp>= 46318 And tmp<= 46825) 그러면
getpychar = "디"
ElseIf(tmp>= 46826 And tmp<= 47009) 그러면
getpychar = "E"
ElseIf(tmp>= 47010 And tmp<= 47296) 그러면
getpychar = "F"
ElseIf(tmp>= 47297 And tmp<= 47613) 그러면
getpychar = "G"
ElseIf(tmp>= 47614 And tmp<= 48118) 그러면
getpychar = "H"
ElseIf(tmp>= 48119 And tmp<= 49061) 그러면
getpychar = "J"
ElseIf(tmp>= 49062 And tmp<= 49323) 그러면
getpychar = "K"
ElseIf(tmp>= 49324 And tmp<= 49895) 그러면
getpychar = "엘"
ElseIf(tmp>= 49896 And tmp<= 50370) 그러면
getpychar = "엠"
ElseIf(tmp>= 50371 And tmp<= 50613) 그러면
getpychar = "N"
ElseIf(tmp>= 50614 And tmp<= 50621) 그러면
getpychar = "O"
ElseIf(tmp>= 50622 And tmp<= 50905) 그러면
getpychar = "P"
ElseIf(tmp>= 50906 And tmp<= 51386) 그러면
getpychar = "Q"
ElseIf(tmp>= 51387 And tmp<= 51445) 그러면
getpychar = "R"
ElseIf(tmp>= 51446 And tmp<= 52217) 그러면
getpychar = "S"
ElseIf(tmp>= 52218 And tmp<= 52697) 그러면
getpychar = "티"
ElseIf(tmp>= 52698 And tmp<= 52979) 그러면
getpychar = "W"
ElseIf(tmp>= 52980 And tmp<= 53640) 그러면
getpychar = "X"
ElseIf(tmp>= 53689 And tmp<= 54480) 그러면
getpychar = "예"
ElseIf(tmp>= 54481 And tmp<= 62289) 그러면
getpychar = "Z"
Else '如果不是中文，则不处리
getpychar = 문자
종료 조건
함수 종료
함수 getpy(Str)
i = 1에서 Len(Str)으로
getpy = getpy&getpychar(Mid(Str, i, 1))
다음
기능 종료
%>
程序代码
<%
'
문자열이 있는 문자는 getpychar(char)입니다.
tmp = 65536 + Asc(문자)
If(tmp>= 45217 그리고 tmp<= 45252) 그러면
getpychar = "A"
ElseIf(tmp>= 45253 And tmp<= 45760) 그러면
getpychar = "B"
ElseIf(tmp>= 47761 And tmp<= 46317) 그러면
getpychar = "C"
ElseIf(tmp>= 46318 And tmp<= 46825) 그러면
getpychar = "디"
ElseIf(tmp>= 46826 And tmp<= 47009) 그러면
getpychar = "E"
ElseIf(tmp>= 47010 And tmp<= 47296) 그러면
getpychar = "F"
ElseIf(tmp>= 47297 And tmp<= 47613) 그러면
getpychar = "G"
ElseIf(tmp>= 47614 And tmp<= 48118) 그러면
getpychar = "H"
ElseIf(tmp>= 48119 And tmp<= 49061) 그러면
getpychar = "J"
ElseIf(tmp>= 49062 And tmp<= 49323) 그러면
getpychar = "K"
ElseIf(tmp>= 49324 And tmp<= 49895) 그러면
getpychar = "엘"
ElseIf(tmp>= 49896 And tmp<= 50370) 그러면
getpychar = "M"
ElseIf(tmp>= 50371 And tmp<= 50613) 그러면
getpychar = "N"
ElseIf(tmp>= 50614 And tmp<= 50621) 그러면
getpychar = "오"
ElseIf(tmp>= 50622 And tmp<= 50905) 그러면
getpychar = "P"
ElseIf(tmp>= 50906 And tmp<= 51386) 그러면
getpychar = "Q"
ElseIf(tmp>= 51387 And tmp<= 51445) 그러면
getpychar = "R"
ElseIf(tmp>= 51446 And tmp<= 52217) 그러면
getpychar = "S"
ElseIf(tmp>= 52218 And tmp<= 52697) 그러면
getpychar = "티"
ElseIf(tmp>= 52698 And tmp<= 52979) 그러면
getpychar = "W"
ElseIf(tmp>= 52980 And tmp<= 53640) 그러면
getpychar = "X"
ElseIf(tmp>= 53689 And tmp<= 54480) 그러면
getpychar = "예"
ElseIf(tmp>= 54481 And tmp<= 62289) 그러면
getpychar = "Z"
Else '如果不是中文，则不处리
getpychar = 문자
종료 조건
함수 종료
함수 getpy(Str)
i = 1에서 Len(Str)으로
getpy = getpy&getpychar(Mid(Str, i, 1))
다음
기능 종료
%>