WEB开发网
开发学院WEB开发ASP ASP常用函数:getpy() 汉字转为拼音 阅读

ASP常用函数:getpy() 汉字转为拼音

 2009-06-30 04:57:00 来源:WEB开发网   
核心提示:<%'取字段数据每个汉字的拼音首字母Function getpychar(char) tmp = 65536 + Asc(char) If(tmp>= 45217 And tmp<= 45252) Then getpychar = "A" ElseIf(tmp>

<%
'取字段数据每个汉字的拼音首字母

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
%>

Tags:ASP 常用 函数

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接