Obtenga la carta de Capital Pinyin del primer personaje de la oración china
<%
'**********************************
'Función: GetPychar (char)
'Argumentos: Char, cualquier personaje o oración china
'Autor: Alixi
'Fecha: 2007/7/15
'Descripción: Obtenga la carta de Pinyin de capital del primer personaje de la oración china
'Ejemplo: GetPychar ("Bienvenido a Alixi")
'**********************************
FunctetPyChar (char)
DimTMP
TMP = 65536+ASC (char)
If (tmp> = 45217andtmp <= 45252) Entonces
getpychar = "a"
Elseif (tmp> = 45253andtmp <= 45760) entonces
getpychar = "b"
Elseif (tmp> = 45761andtmp <= 46317) entonces
getpychar = "c"
Elseif (tmp> = 46318andtmp <= 46825) entonces
getPychar = "D"
Elseif (tmp> = 46826andtmp <= 47009) Entonces
getpychar = "e"
Elseif (tmp> = 47010andtmp <= 47296) entonces
getpychar = "f"
Elseif (tmp> = 47297andtmp <= 47613) entonces
getpychar = "g"
Elseif (tmp> = 47614andtmp <= 48118) entonces
getpychar = "h"
Elseif (tmp> = 48119andtmp <= 49061) Entonces
getpychar = "j"
Elseif (tmp> = 49062andtmp <= 49323) Entonces
getpychar = "k"
Elseif (tmp> = 49324andtmp <= 49895) Entonces
getpychar = "l"
Elseif (tmp> = 49896andtmp <= 50370) Entonces
getpychar = "m"
Elseif (tmp> = 50371andtmp <= 50613) entonces
getpychar = "n"
Elseif (tmp> = 50614andtmp <= 50621) entonces
getpychar = "o"
Elseif (tmp> = 50622Andtmp <= 50905) Entonces
getpychar = "P"
Elseif (tmp> = 50906andtmp <= 51386) entonces
getpychar = "Q"
Elseif (tmp> = 51387andtmp <= 51445) Entonces
getpychar = "r"
Elseif (tmp> = 51446andtmp <= 52217) entonces
getpychar = "s"
Elseif (tmp> = 52218andtmp <= 52697) entonces
getpychar = "t"
Elseif (tmp> = 52698andtmp <= 52979) Entonces
getpychar = "w"
Elseif (tmp> = 52980andtmp <= 53640) Entonces
getpychar = "x"
Elseif (tmp> = 53689andtmp <= 54480) Entonces
getpychar = "y"
Elseif (tmp> = 54481andtmp <= 62289) Entonces
getpychar = "z"
De lo contrario, si no es chino, no se procesará