Dapatkan huruf kapital pinyin dari karakter pertama kalimat Cina
<%
'***********************************
'Fungsi: getpychar (char)
'Argumen: Char, karakter atau kalimat Cina apa pun
'Penulis: Alixi
'Tanggal: 2007/7/15
'Deskripsi: Dapatkan huruf kapital pinyin dari karakter pertama kalimat Cina
'Contoh: getPychar ("Selamat Datang di Alixi")
'***********************************
Functiongetpychar (char)
DIMTMP
TMP = 65536+ASC (char)
If (tmp> = 45217 dantmp <= 45252) lalu
getpychar = "a"
Elseif (tmp> = 45253andtmp <= 45760) Kemudian
getpychar = "b"
Elseif (tmp> = 45761andtmp <= 46317) Kemudian
getpychar = "c"
Elseif (tmp> = 46318andtmp <= 46825) Kemudian
getpychar = "d"
Elseif (tmp> = 46826andtmp <= 47009) Kemudian
getpychar = "e"
Elseif (tmp> = 47010 dantmp <= 47296) Kemudian
getpychar = "f"
Elseif (tmp> = 47297 dantmp <= 47613) Kemudian
getpychar = "g"
Elseif (tmp> = 47614 dantmp <= 48118) Kemudian
getpychar = "h"
Elseif (tmp> = 48119 dantmp <= 49061) Kemudian
getpychar = "j"
Elseif (tmp> = 49062andtmp <= 49323) Kemudian
getpychar = "k"
Elseif (tmp> = 49324andtmp <= 49895) Kemudian
getpychar = "l"
Elseif (tmp> = 49896andtmp <= 50370) Lalu
getpychar = "m"
Elseif (tmp> = 50371andtmp <= 50613) Kemudian
getpychar = "n"
Elseif (tmp> = 50614andtmp <= 50621) Kemudian
getpychar = "o"
Elseif (tmp> = 50622andtmp <= 50905) Kemudian
getpychar = "p"
Elseif (tmp> = 50906andtmp <= 51386) Kemudian
getpychar = "q"
Elseif (tmp> = 51387andtmp <= 51445) Kemudian
getpychar = "r"
Elseif (tmp> = 51446andtmp <= 52217) Kemudian
getpychar = "s"
Elseif (tmp> = 52218andtmp <= 52697) Kemudian
getpychar = "t"
Elseif (tmp> = 52698andtmp <= 52979) Kemudian
getpychar = "w"
Elseif (tmp> = 52980andtmp <= 53640) Lalu
getpychar = "x"
Elseif (tmp> = 53689 dantmp <= 54480) Kemudian
getpychar = "y"
Elseif (tmp> = 54481andtmp <= 62289) Kemudian
getpychar = "z"
Kalau tidak, itu bukan orang Cina, itu tidak akan diproses