[转] How to get the first letter of Chinese characters Chinese Pinyin

Else

Function getpychar (char)

TMP = 65536 ASC (char)

IF (TMP> = 45217 and TMP <= 45252) THEN

getpychar = "a"

Elseif (TMP> = 45253 and TMP <= 45760) THEN

getpychar = "b"

Elseif (TMP> = 45761 and TMP <= 46317) THEN

getpychar = "c"

Elseif (TMP> = 46318 and TMP <= 46825) THEN

getpychar = "d"

Elseif (TMP> = 46826 and TMP <= 47009) THEN

getpychar = "e"

Elseif (TMP> = 47010 and TMP <= 47296) THEN

getpychar = "f"

Elseif (TMP> = 47297 and TMP <= 47613) THEN

getpychar = "g"

Elseif (TMP> = 47614 and TMP <= 48118) THEN

getpychar = "h"

Elseif (TMP> = 48119 and TMP <= 49061) THEN

getpychar = "j"

Elseif (TMP> = 49062 and TMP <= 49323) THEN

getpychar = "k"

Elseif (TMP> = 49324 and TMP <= 49895) THEN

getpychar = "l"

Elseif (TMP> = 49896 and TMP <= 50370) THEN

getpychar = "m"

Elseif (TMP> = 50371 and TMP <= 50613) THEN

getpychar = "n"

Elseif (TMP> = 50614 and TMP <= 50621) THEN

getpychar = "o"

Elseif (TMP> = 50622 and TMP <= 50905) THEN

getpychar = "p"

Elseif (TMP> = 50906 and TMP <= 51386) THEN

Getpychar = "q" elseif (TMP> = 51387 and TMP <= 51445) THEN

getpychar = "r"

Elseif (TMP> = 51446 and TMP <= 52217) THEN

getpychar = "s"

Elseif (TMP> = 52218 and TMP <= 52697) THEN

getpychar = "t"

Elseif (TMP> = 52698 and TMP <= 52979) THEN

getpychar = "w"

Elseif (TMP> = 52980 and TMP <= 53640) THEN

getpychar = "x"

Elseif (TMP> = 53689 and TMP <= 54480) THEN

getpychar = "y"

Elseif (TMP> = 54481 and TMP <= 62289) THEN

getpychar = "z"

Else 'If not Chinese, no processing

getpychar = char

END IF

END FUNCTION

Function GetPy (STR)

For i = 1 to Len (STR)

getpy = getpy & getpychar (MID (STR, I, 1))

NEXT

END FUNCTION

Content = Request.form ("Content")

Response.write "