ASP常用函数:getpy()

答案：<% 
'取字段数据每个汉字的拼音首字母 
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 
%>

上一个：我用ASP写的m行n列的函数,动态输出创建TABLE行列
下一个：UTF-8 Unicode Ansi 汉字GB2321几种编码转换程序