ASP常用函数:getpy()

1. <%  
2. '取字段数据每个汉字的拼音首字母  
3.  
4. Function getpychar(char)  
5.     tmp = 65536 + Asc(char)  
6.     If(tmp>= 45217 And tmp<= 45252) Then  
7.         getpychar = "A"  
8.     ElseIf(tmp>= 45253 And tmp<= 45760) Then  
9.         getpychar = "B"  
10.     ElseIf(tmp>= 47761 And tmp<= 46317) Then  
11.         getpychar = "C"  
12.     ElseIf(tmp>= 46318 And tmp<= 46825) Then  
13.         getpychar = "D"  
14.     ElseIf(tmp>= 46826 And tmp<= 47009) Then  
15.         getpychar = "E"  
16.     ElseIf(tmp>= 47010 And tmp<= 47296) Then  
17.         getpychar = "F"  
18.     ElseIf(tmp>= 47297 And tmp<= 47613) Then  
19.         getpychar = "G"  
20.     ElseIf(tmp>= 47614 And tmp<= 48118) Then  
21.         getpychar = "H"  
22.     ElseIf(tmp>= 48119 And tmp<= 49061) Then  
23.         getpychar = "J"  
24.     ElseIf(tmp>= 49062 And tmp<= 49323) Then  
25.         getpychar = "K"  
26.     ElseIf(tmp>= 49324 And tmp<= 49895) Then  
27.         getpychar = "L"  
28.     ElseIf(tmp>= 49896 And tmp<= 50370) Then  
29.         getpychar = "M"  
30.     ElseIf(tmp>= 50371 And tmp<= 50613) Then  
31.         getpychar = "N"  
32.     ElseIf(tmp>= 50614 And tmp<= 50621) Then  
33.         getpychar = "O"  
34.     ElseIf(tmp>= 50622 And tmp<= 50905) Then  
35.         getpychar = "P"  
36.     ElseIf(tmp>= 50906 And tmp<= 51386) Then  
37.         getpychar = "Q"  
38.     ElseIf(tmp>= 51387 And tmp<= 51445) Then  
39.         getpychar = "R"  
40.     ElseIf(tmp>= 51446 And tmp<= 52217) Then  
41.         getpychar = "S"  
42.     ElseIf(tmp>= 52218 And tmp<= 52697) Then  
43.         getpychar = "T"  
44.     ElseIf(tmp>= 52698 And tmp<= 52979) Then  
45.         getpychar = "W"  
46.     ElseIf(tmp>= 52980 And tmp<= 53640) Then  
47.         getpychar = "X"  
48.     ElseIf(tmp>= 53689 And tmp<= 54480) Then  
49.         getpychar = "Y"  
50.     ElseIf(tmp>= 54481 And tmp<= 62289) Then  
51.         getpychar = "Z"  
52.     Else '如果不是中文，则不处理  
53.         getpychar = char  
54. End If  
55. End Function  
56.  
57. Function getpy(Str)  
58.     For i = 1 To Len(Str)  
59.         getpy = getpy&getpychar(Mid(Str, i, 1))  
60.     Next  
61. End Function  
62. %>