一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

服務器之家：專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務器之家 - 編程語言 - ASP教程 - ASP常用函數:getpy()

ASP常用函數:getpy()

2019-10-25 11:21asp教程網 ASP教程

ASP常用函數:getpy()

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

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板： 无人区在线观看免费完整版免费 | 日本人和黑人一级纶理片 | 日韩精品一区二区三区老鸭窝 | 奇米狠狠色 | 91传媒制片厂制作传媒破解版 | 日韩hd高清xxxⅹ | 日本视频免费在线播放 | 精品在线播放 | 美女张开大腿让男人桶 | 石原莉奈adn093店长未婚妻 | 国内自拍2020 | 草莓丝瓜芭乐樱桃榴莲色多黄 | 好湿好紧好多水c | 久久精品成人免费看 | 啊啊啊好大视频 | 免费看又黄又爽又猛的视频软件- | 国产精品视频免费观看 | 2022最新国产在线不卡a | 欧美一卡2卡三卡4卡5卡免费观看 | 饭冈加奈子乳喷cead144 | 欧美贵妇videos办公室360 | 农夫69小说小雨与农村老太 | 国内视频一区二区三区 | 99九九国产精品免费视频 | 激情婷婷综合久久久久 | 国产91精品区| 欧美成人精品福利网站 | 国产乱码免费卡1卡二卡3卡四 | 欧美高清在线 | 福利久草 | 免费国产白棉袜踩踏区域 | 日本一区二区视频在线观看 | 精品91一区二区三区 | 亚洲欧美一区二区三区在饯 | 国产黑丝一区 | 天天干天天爽天天操 | 亚洲欧美一区二区三区在线观看 | 日本噜噜影院 | 日本无卡视频 | 国产精品永久免费自在线观看 | 成年人黄色录像 |