国产片侵犯亲女视频播放_亚洲精品二区_在线免费国产视频_欧美精品一区二区三区在线_少妇久久久_在线观看av不卡

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

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 | 亚洲精品综合 | 久久精品国产一区二区电影 | 日韩欧美一区二区三区在线观看 | 在线a视频| 日本在线观看一区 | 国产乱码精品一区二区三区中文 | 一级a毛片| 一区二区三区视频免费在线观看 | 一级在线免费视频 | 九九热免费精品视频 | 国产精品久久久久久久久久ktv | 亚洲天堂一区 | 日韩中文字幕视频在线观看 | 欧美91| 国产视频一区二区 | 日韩免费视频一区二区 | jav久久亚洲欧美精品 | 日韩五月 | 日韩欧美精品在线 | 国产精品久久久久久av公交车 | 精品视频免费观看 | 在线观看91 | 视频一区在线观看 | 久久伊人一区 | 精品国产一区二区三区日日嗨 | 国产精品久久久久久久久久久久久 | 日本一区二区在线视频 | 在线免费观看毛片 | 电影91久久久 | 国产精品高清在线观看 | 亚洲自啪 | 日本福利网站 | 人妖天堂狠狠ts人妖天堂狠狠 | 久久精品国产一区二区三区不卡 | 亚洲国产中文字幕 | 久久久精品日本 | 中文字幕在线免费 | 91精品国产91久久综合桃花 | 国产精品久久久久久亚洲调教 | 一级做a |