<%
'取字段数据每个汉字的拼音首字母
Función getpychar(char)
tmp = 65536 + Asc(carácter)
Si (tmp>= 45217 y tmp<= 45252) entonces
getpychar = "A"
ElseIf(tmp>= 45253 y tmp<= 45760) Entonces
getpychar = "B"
ElseIf(tmp>= 47761 y tmp<= 46317) Entonces
getpychar = "C"
ElseIf(tmp>= 46318 Y tmp<= 46825) Entonces
getpychar = "D"
ElseIf(tmp>= 46826 y tmp<= 47009) Entonces
getpychar = "E"
ElseIf(tmp>= 47010 y tmp<= 47296) Entonces
getpychar = "F"
ElseIf(tmp>= 47297 y tmp<= 47613) Entonces
getpychar = "G"
ElseIf(tmp>= 47614 Y tmp<= 48118) Entonces
getpychar = "H"
ElseIf(tmp>= 48119 y tmp<= 49061) Entonces
getpychar = "J"
ElseIf(tmp>= 49062 Y tmp<= 49323) Entonces
getpychar = "K"
ElseIf(tmp>= 49324 Y tmp<= 49895) Entonces
getpychar = "L"
ElseIf(tmp>= 49896 y tmp<= 50370) Entonces
getpychar = "M"
ElseIf(tmp>= 50371 y tmp<= 50613) Entonces
getpychar = "N"
ElseIf(tmp>= 50614 Y tmp<= 50621) Entonces
getpychar = "O"
ElseIf(tmp>= 50622 Y tmp<= 50905) Entonces
getpychar = "P"
ElseIf(tmp>= 50906 y tmp<= 51386) Entonces
getpychar = "Q"
ElseIf(tmp>= 51387 y tmp<= 51445) Entonces
getpychar = "R"
ElseIf(tmp>= 51446 Y tmp<= 52217) Entonces
getpychar = "S"
ElseIf(tmp>= 52218 Y tmp<= 52697) Entonces
getpychar = "T"
ElseIf(tmp>= 52698 Y tmp<= 52979) Entonces
getpychar = "W"
ElseIf(tmp>= 52980 y tmp<= 53640) Entonces
getpychar = "X"
ElseIf(tmp>= 53689 y tmp<= 54480) Entonces
getpychar = "Y"
ElseIf(tmp>= 54481 y tmp<= 62289) Entonces
getpychar = "Z"
De lo contrario '如果不是中文，则不处理
getpychar = carbón
Terminar si
Función final
Función getpy(Str)
Para i = 1 a Len(Str)
getpy = getpy&getpychar(Medio(Str, i, 1))
Próximo
Función final
%>
程序代码
<%
'取字段数据每个汉字的拼音首字母
Función getpychar(char)
tmp = 65536 + Asc(carácter)
Si (tmp>= 45217 y tmp<= 45252) entonces
getpychar = "A"
ElseIf(tmp>= 45253 y tmp<= 45760) Entonces
getpychar = "B"
ElseIf(tmp>= 47761 y tmp<= 46317) Entonces
getpychar = "C"
ElseIf(tmp>= 46318 Y tmp<= 46825) Entonces
getpychar = "D"
ElseIf(tmp>= 46826 y tmp<= 47009) Entonces
getpychar = "E"
ElseIf(tmp>= 47010 y tmp<= 47296) Entonces
getpychar = "F"
ElseIf(tmp>= 47297 y tmp<= 47613) Entonces
getpychar = "G"
ElseIf(tmp>= 47614 Y tmp<= 48118) Entonces
getpychar = "H"
ElseIf(tmp>= 48119 y tmp<= 49061) Entonces
getpychar = "J"
ElseIf(tmp>= 49062 Y tmp<= 49323) Entonces
getpychar = "K"
ElseIf(tmp>= 49324 Y tmp<= 49895) Entonces
getpychar = "L"
ElseIf(tmp>= 49896 y tmp<= 50370) Entonces
getpychar = "M"
ElseIf(tmp>= 50371 y tmp<= 50613) Entonces
getpychar = "N"
ElseIf(tmp>= 50614 Y tmp<= 50621) Entonces
getpychar = "O"
ElseIf(tmp>= 50622 Y tmp<= 50905) Entonces
getpychar = "P"
ElseIf(tmp>= 50906 y tmp<= 51386) Entonces
getpychar = "Q"
ElseIf(tmp>= 51387 y tmp<= 51445) Entonces
getpychar = "R"
ElseIf(tmp>= 51446 Y tmp<= 52217) Entonces
getpychar = "S"
ElseIf(tmp>= 52218 Y tmp<= 52697) Entonces
getpychar = "T"
ElseIf(tmp>= 52698 Y tmp<= 52979) Entonces
getpychar = "W"
ElseIf(tmp>= 52980 y tmp<= 53640) Entonces
getpychar = "X"
ElseIf(tmp>= 53689 y tmp<= 54480) Entonces
getpychar = "Y"
ElseIf(tmp>= 54481 y tmp<= 62289) Entonces
getpychar = "Z"
De lo contrario '如果不是中文，则不处理
getpychar = carbón
Terminar si
Función final
Función getpy(Str)
Para i = 1 a Len(Str)
getpy = getpy&getpychar(Medio(Str, i, 1))
Próximo
Función final
%>