当前位置:七道奇文章资讯网站建设网站编程
日期:2010-01-21 21:04:00  来源:本站整理

ASP汉字转为拼音函数[网站编程]

赞助商链接



  本文“ASP汉字转为拼音函数[网站编程]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:

转载一个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汉字转为拼音函数[网站编程]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • ASP汉字转为拼音函数
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .