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

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

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

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板： 国产图色| 成人看的羞羞视频免费观看 | 学生小泬无遮挡女HD | 手机看片国产自拍 | 好男人资源免费播放在线观看 | 色婷婷综合和线在线 | 国产私拍精品88福利视频 | 色综合综合色 | zoz.zzz色| 四虎影视4hutv最新地址在线 | 日韩二区三区 | 午夜久久免影院欧洲 | 欧美亚洲国产精品久久第一页 | 3d欧美人与禽交 | 久久足恋网 | 婷婷国产在线 | 欧美黑人成人免费全部 | 青草青青在线视频观看 | 国产盗摄wc女厕所 | 天天做日日做天天添天天欢公交车 | 涩涩屋在线观看 | 天天干天天日天天射天天操毛片 | 欧美亚洲桃花综合 | 91视在线国内在线播放酒店 | 小女生RAPPER入口 | 日韩欧美精品一区二区 | www.亚洲5555.com | 亚洲狼人香蕉香蕉在线28 | 午夜dj影院在线视频观看完整 | 日本一区二区三区久久 | 欧美精品亚洲精品日韩专区va | 国产精品一区二区在线观看完整版 | 日本丰满www色| 极端 成熟 性别 视频 | 192.168.191| 亚洲国产成人精品无码区99 | 国产精品一区二区三区免费 | 久久这里只有精品国产精品99 | 无人区尖叫之夜美女姐姐视频 | 色吧| 亚洲免费精品视频 |