新闻动态

   

您现在的位置是:首页 » 新闻动态 » 网站技术


ASP汉字转为拼音函数


人气: 1766  日期: 2011-12-16  作者: 大向网络  [打印本文]

转载一个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<= 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实现上一篇下一篇文章
  下一篇:html5自带得表单验证代码 做验证再也不用那么复杂了
相关文章(Tags:ASP)