asp 获得中文句子头一个字的大写拼音字母的函数

取得中文句子头一个字的大写拼音字母

<%

'******************************

'函数：getpychar(char)

'参数：char,任意中文字符或句子

'作者：阿里西西

'日期：2007/7/15

'描述：取得中文句子头一个字的大写拼音字母

'示例：getpychar("欢迎访问阿里西西")

'******************************

Function getpychar(char)

 Dim tmp

 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 '如果不是中文，则不处理 

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!