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

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

1. <%  
2. '******************************  
3. '函数：getpychar(char)  
4. '参数：char,任意中文字符或句子  
5. '作者：阿里西西  
6. '日期：2007/7/15  
7. '描述：取得中文句子头一个字的大写拼音字母  
8. '示例：getpychar("欢迎访问阿里西西")  
9. '******************************  
10. Function getpychar(char)  
11.  Dim tmp  
12.  tmp=65536+Asc(char)   
13.  If(tmp>=45217 And tmp<=45252) Then   
14.  getpychar= "A"   
15.  ElseIF(tmp>=45253 And tmp<=45760) Then   
16.  getpychar= "B"   
17.  ElseIF(tmp>=45761 And tmp<=46317) Then   
18.  getpychar= "C"   
19.  ElseIF(tmp>=46318 And tmp<=46825) Then   
20.  getpychar= "D"   
21.  ElseIF(tmp>=46826 And tmp<=47009) Then   
22.  getpychar= "E"   
23.  ElseIF(tmp>=47010 And tmp<=47296) Then   
24.  getpychar= "F"   
25.  ElseIF(tmp>=47297 And tmp<=47613) Then   
26.  getpychar= "G"   
27.  ElseIF(tmp>=47614 And tmp<=48118) Then   
28.  getpychar= "H"   
29.  ElseIF(tmp>=48119 And tmp<=49061) Then   
30.  getpychar= "J"   
31.  ElseIF(tmp>=49062 And tmp<=49323) Then   
32.  getpychar= "K"   
33.  ElseIF(tmp>=49324 And tmp<=49895) Then   
34.  getpychar= "L"   
35.  ElseIF(tmp>=49896 And tmp<=50370) Then   
36.  getpychar= "M"   
37.  ElseIF(tmp>=50371 And tmp<=50613) Then   
38.  getpychar= "N"   
39.  ElseIF(tmp>=50614 And tmp<=50621) Then   
40.  getpychar= "O"   
41.  ElseIF(tmp>=50622 And tmp<=50905) Then   
42.  getpychar= "P"   
43.  ElseIF(tmp>=50906 And tmp<=51386) Then   
44.  getpychar= "Q"   
45.  ElseIF(tmp>=51387 And tmp<=51445) Then   
46.  getpychar= "R"   
47.  ElseIF(tmp>=51446 And tmp<=52217) Then   
48.  getpychar= "S"   
49.  ElseIF(tmp>=52218 And tmp<=52697) Then   
50.  getpychar= "T"   
51.  ElseIF(tmp>=52698 And tmp<=52979) Then   
52.  getpychar= "W"   
53.  ElseIF(tmp>=52980 And tmp<=53640) Then   
54.  getpychar= "X"   
55.  ElseIF(tmp>=53689 And tmp<=54480) Then   
56.  getpychar= "Y"   
57.  ElseIF(tmp>=54481 And tmp<=62289) Then   
58.  getpychar= "Z"   
59.  Else '如果不是中文，则不处理   
60.  getpychar=char   
61.  End If   
62. End Function  
63. %>