ASP常用函数:getpy()

时间:2021-11-22 01:18:30
  1. <%  
  2. '取字段数据每个汉字的拼音首字母  
  3.  
  4. Function getpychar(char)  
  5.     tmp = 65536 + Asc(char)  
  6.     If(tmp>= 45217 And tmp<= 45252) Then  
  7.         getpychar = "A"  
  8.     ElseIf(tmp>= 45253 And tmp<= 45760) Then  
  9.         getpychar = "B"  
  10.     ElseIf(tmp>= 47761 And tmp<= 46317) Then  
  11.         getpychar = "C"  
  12.     ElseIf(tmp>= 46318 And tmp<= 46825) Then  
  13.         getpychar = "D"  
  14.     ElseIf(tmp>= 46826 And tmp<= 47009) Then  
  15.         getpychar = "E"  
  16.     ElseIf(tmp>= 47010 And tmp<= 47296) Then  
  17.         getpychar = "F"  
  18.     ElseIf(tmp>= 47297 And tmp<= 47613) Then  
  19.         getpychar = "G"  
  20.     ElseIf(tmp>= 47614 And tmp<= 48118) Then  
  21.         getpychar = "H"  
  22.     ElseIf(tmp>= 48119 And tmp<= 49061) Then  
  23.         getpychar = "J"  
  24.     ElseIf(tmp>= 49062 And tmp<= 49323) Then  
  25.         getpychar = "K"  
  26.     ElseIf(tmp>= 49324 And tmp<= 49895) Then  
  27.         getpychar = "L"  
  28.     ElseIf(tmp>= 49896 And tmp<= 50370) Then  
  29.         getpychar = "M"  
  30.     ElseIf(tmp>= 50371 And tmp<= 50613) Then  
  31.         getpychar = "N"  
  32.     ElseIf(tmp>= 50614 And tmp<= 50621) Then  
  33.         getpychar = "O"  
  34.     ElseIf(tmp>= 50622 And tmp<= 50905) Then  
  35.         getpychar = "P"  
  36.     ElseIf(tmp>= 50906 And tmp<= 51386) Then  
  37.         getpychar = "Q"  
  38.     ElseIf(tmp>= 51387 And tmp<= 51445) Then  
  39.         getpychar = "R"  
  40.     ElseIf(tmp>= 51446 And tmp<= 52217) Then  
  41.         getpychar = "S"  
  42.     ElseIf(tmp>= 52218 And tmp<= 52697) Then  
  43.         getpychar = "T"  
  44.     ElseIf(tmp>= 52698 And tmp<= 52979) Then  
  45.         getpychar = "W"  
  46.     ElseIf(tmp>= 52980 And tmp<= 53640) Then  
  47.         getpychar = "X"  
  48.     ElseIf(tmp>= 53689 And tmp<= 54480) Then  
  49.         getpychar = "Y"  
  50.     ElseIf(tmp>= 54481 And tmp<= 62289) Then  
  51.         getpychar = "Z"  
  52.     Else '如果不是中文,则不处理  
  53.         getpychar = char  
  54. End If  
  55. End Function  
  56.  
  57. Function getpy(Str)  
  58.     For i = 1 To Len(Str)  
  59.         getpy = getpy&getpychar(Mid(Str, i, 1))  
  60.     Next  
  61. End Function  
  62. %>