ASP汉字转为拼音函数

转载一个asp汉字转拼音的asp函数，这个函数也是一个经常会用到的。
<
%
'取字段数据每个汉字的拼音首字母
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>
= 47761 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 '如果不是中文，则不处理
 
 
 
 
 
 
 
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
%>

 
程序代码
<
%
'取字段数据每个汉字的拼音首字母

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>
= 47761 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<
=