Fonctions ASP couramment utilisées : getpy() Convertir les caractères chinois en Pinyin

Auteur：Eve Cole Date de mise à jour：2009-06-23 16:58:59

<%
'

Fonction getpychar(char)
tmp = 65536 + Asc(caractère)
Si(tmp>= 45217 Et tmp<= 45252) Alors
getpychar = "A"
ElseIf(tmp>= 45253 Et tmp<= 45760) Alors
getpychar = "B"
ElseIf(tmp>= 47761 Et tmp<= 46317) Alors
getpychar = "C"
ElseIf(tmp>= 46318 Et tmp<= 46825) Alors
getpychar = "D"
ElseIf(tmp>= 46826 Et tmp<= 47009) Alors
getpychar = "E"
ElseIf(tmp>= 47010 Et tmp<= 47296) Alors
getpychar = "F"
ElseIf(tmp>= 47297 Et tmp<= 47613) Alors
getpychar = "G"
ElseIf(tmp>= 47614 Et tmp<= 48118) Alors
getpychar = "H"
ElseIf(tmp>= 48119 Et tmp<= 49061) Alors
getpychar = "J"
ElseIf(tmp>= 49062 Et tmp<= 49323) Alors
getpychar = "K"
ElseIf(tmp>= 49324 Et tmp<= 49895) Alors
getpychar = "L"
ElseIf(tmp>= 49896 Et tmp<= 50370) Alors
getpychar = "M"
ElseIf(tmp>= 50371 Et tmp<= 50613) Alors
getpychar = "N"
ElseIf(tmp>= 50614 Et tmp<= 50621) Alors
getpychar = "O"
ElseIf(tmp>= 50622 Et tmp<= 50905) Alors
getpychar = "P"
ElseIf(tmp>= 50906 Et tmp<= 51386) Alors
getpychar = "Q"
ElseIf(tmp>= 51387 Et tmp<= 51445) Alors
getpychar = "R"
ElseIf(tmp>= 51446 Et tmp<= 52217) Alors
getpychar = "S"
ElseIf(tmp>= 52218 Et tmp<= 52697) Alors
getpychar = "T"
ElseIf(tmp>= 52698 Et tmp<= 52979) Alors
getpychar = "W"
ElseIf(tmp>= 52980 Et tmp<= 53640) Alors
getpychar = "X"
ElseIf(tmp>= 53689 Et tmp<= 54480) Alors
getpychar = "Y"
ElseIf(tmp>= 54481 Et tmp<= 62289) Alors
getpychar = "Z"
Autrement '如果不是中文，则不处理
getpychar = char
Fin si
Fin de la fonction

Fonction getpy(Str)
Pour i = 1 À Len(Str)
getpy = getpy&getpychar(Mid(Str, i, 1))
Suivant
Fonction de fin
%>
程序代码
<%
'

Fonction getpy(Str)
Pour i = 1 À Len(Str)
getpy = getpy&getpychar(Mid(Str, i, 1))
Suivant
Fonction de fin
%>