asp获取汉语第一个词大写字母的功能

大写的字母表，用于汉语句子的第一个单词
<
******************************
功能：getpychar（char）
参数：char，任何汉字或句子
作者：Ali Cici
日期：2007 7 15
大写字母：汉语第一个单词的大写字母
例如：getpychar（欢迎alixixi ）
******************************
功能getpychar（char）
昏暗的TMP
TMP = 65536 + ASC（char）
如果（TMP = 45217和TMP < 45252）
getpychar =
elseif（TMP > = 45253和TMP <= 45760）然后
getpychar =B
elseif（TMP > = 45761和TMP <= 46317）然后
getpychar =C
elseif（TMP > = 46318和TMP <= 46825）然后
getpychar =D
elseif（TMP > = 46826和TMP <= 47009）然后
getpychar =E
elseif（TMP > = 47010和TMP <= 47296）然后
getpychar =F
elseif（TMP > = 47297和TMP <= 47613）然后
getpychar =G
elseif（TMP > = 47614和TMP <= 48118）然后
getpychar =h
elseif（TMP > = 48119和TMP <= 49061）然后
getpychar =J
elseif（TMP > = 49062和TMP <= 49323）然后
getpychar =K
elseif（TMP > = 49324和TMP <= 49895）然后
getpychar =L
elseif（TMP > = 49896和TMP <= 50370）然后
getpychar =M
elseif（TMP > = 50371和TMP <= 50613）然后
getpychar =
elseif（TMP > = 50614和TMP <= 50621）然后
getpychar =O
elseif（TMP > = 50622和TMP <= 50905）然后
getpychar =P
elseif（TMP > = 50906和TMP <= 51386）然后
getpychar =Q
elseif（TMP > = 51387和TMP <= 51445）然后
getpychar =R
elseif（TMP > = 51446和TMP <= 52217）然后
getpychar =
elseif（TMP > = 52218和TMP <= 52697）然后
getpychar =T
elseif（TMP > = 52698和TMP <= 52979）然后
getpychar =W
elseif（TMP > = 52980和TMP <= 53640）然后
getpychar =X
elseif（TMP > = 53689和TMP <= 54480）然后
getpychar =Y
elseif（TMP > = 54481和TMP <= 62289）然后
getpychar =Z
否则，如果不是中国的，它不处理
getpychar =字符
最后如果
端功能
%>