<%
'取字段数据每个汉字的拼音首字母
Fungsi getpychar(char)
tmp = 65536 + Asc(karakter)
Jika(tmp>= 45217 Dan tmp<= 45252) Maka
getpychar = "A"
ElseIf(tmp>= 45253 Dan tmp<= 45760) Lalu
getpychar = "B"
ElseIf(tmp>= 47761 Dan tmp<= 46317) Lalu
getpychar = "C"
ElseIf(tmp>= 46318 Dan tmp<= 46825) Lalu
getpychar = "D"
ElseIf(tmp>= 46826 Dan tmp<= 47009) Lalu
getpychar = "E"
ElseIf(tmp>= 47010 Dan tmp<= 47296) Lalu
getpychar = "F"
ElseIf(tmp>= 47297 Dan tmp<= 47613) Lalu
getpychar = "G"
ElseIf(tmp>= 47614 Dan tmp<= 48118) Lalu
getpychar = "H"
ElseIf(tmp>= 48119 Dan tmp<= 49061) Lalu
getpychar = "J"
ElseIf(tmp>= 49062 Dan tmp<= 49323) Lalu
getpychar = "K"
ElseIf(tmp>= 49324 Dan tmp<= 49895) Lalu
getpychar = "L"
ElseIf(tmp>= 49896 Dan tmp<= 50370) Lalu
getpychar = "M"
ElseIf(tmp>= 50371 Dan tmp<= 50613) Lalu
getpychar = "N"
ElseIf(tmp>= 50614 Dan tmp<= 50621) Lalu
getpychar = "O"
ElseIf(tmp>= 50622 Dan tmp<= 50905) Lalu
getpychar = "P"
ElseIf(tmp>= 50906 Dan tmp<= 51386) Lalu
getpychar = "Q"
ElseIf(tmp>= 51387 Dan tmp<= 51445) Lalu
getpychar = "R"
ElseIf(tmp>= 51446 Dan tmp<= 52217) Lalu
getpychar = "S"
ElseIf(tmp>= 52218 Dan tmp<= 52697) Lalu
getpychar = "T"
ElseIf(tmp>= 52698 Dan tmp<= 52979) Lalu
getpychar = "W"
ElseIf(tmp>= 52980 Dan tmp<= 53640) Lalu
getpychar = "X"
ElseIf(tmp>= 53689 Dan tmp<= 54480) Lalu
getpychar = "Y"
ElseIf(tmp>= 54481 Dan tmp<= 62289) Lalu
getpychar = "Z"
Lain '如果不是中文,则不处理
getpychar = karakter
Akhiri Jika
Fungsi Akhir
Fungsi getpy(Str)
Untuk i = 1 Ke Len(Str)
getpy = getpy&getpychar(Tengah(Str, i, 1))
Berikutnya
Fungsi Akhir
%>
程序代码
<%
'取字段数据每个汉字的拼音首字母
Fungsi getpychar(char)
tmp = 65536 + Asc(karakter)
Jika(tmp>= 45217 Dan tmp<= 45252) Maka
getpychar = "A"
ElseIf(tmp>= 45253 Dan tmp<= 45760) Lalu
getpychar = "B"
ElseIf(tmp>= 47761 Dan tmp<= 46317) Lalu
getpychar = "C"
ElseIf(tmp>= 46318 Dan tmp<= 46825) Lalu
getpychar = "D"
ElseIf(tmp>= 46826 Dan tmp<= 47009) Lalu
getpychar = "E"
ElseIf(tmp>= 47010 Dan tmp<= 47296) Lalu
getpychar = "F"
ElseIf(tmp>= 47297 Dan tmp<= 47613) Lalu
getpychar = "G"
ElseIf(tmp>= 47614 Dan tmp<= 48118) Lalu
getpychar = "H"
ElseIf(tmp>= 48119 Dan tmp<= 49061) Lalu
getpychar = "J"
ElseIf(tmp>= 49062 Dan tmp<= 49323) Lalu
getpychar = "K"
ElseIf(tmp>= 49324 Dan tmp<= 49895) Lalu
getpychar = "L"
ElseIf(tmp>= 49896 Dan tmp<= 50370) Lalu
getpychar = "M"
ElseIf(tmp>= 50371 Dan tmp<= 50613) Lalu
getpychar = "N"
ElseIf(tmp>= 50614 Dan tmp<= 50621) Lalu
getpychar = "O"
ElseIf(tmp>= 50622 Dan tmp<= 50905) Lalu
getpychar = "P"
ElseIf(tmp>= 50906 Dan tmp<= 51386) Lalu
getpychar = "Q"
ElseIf(tmp>= 51387 Dan tmp<= 51445) Lalu
getpychar = "R"
ElseIf(tmp>= 51446 Dan tmp<= 52217) Lalu
getpychar = "S"
ElseIf(tmp>= 52218 Dan tmp<= 52697) Lalu
getpychar = "T"
ElseIf(tmp>= 52698 Dan tmp<= 52979) Lalu
getpychar = "W"
ElseIf(tmp>= 52980 Dan tmp<= 53640) Lalu
getpychar = "X"
ElseIf(tmp>= 53689 Dan tmp<= 54480) Lalu
getpychar = "Y"
ElseIf(tmp>= 54481 Dan tmp<= 62289) Lalu
getpychar = "Z"
Lain '如果不是中文,则不处理
getpychar = karakter
Akhiri Jika
Fungsi Akhir
Fungsi getpy(Str)
Untuk i = 1 Ke Len(Str)
getpy = getpy&getpychar(Tengah(Str, i, 1))
Berikutnya
Fungsi Akhir
%>