- <%
- '取字段數(shù)據(jù)每個漢字的拼音首字母
- 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
- %>
ASP常用函數(shù):getpy()
2019-10-25 11:21asp教程網(wǎng) ASP教程
ASP常用函數(shù):getpy()
延伸 · 閱讀
- 2022-03-11Python 函數(shù)裝飾器應用教程
- 2022-03-11Python全棧之文件函數(shù)和函數(shù)參數(shù)
- 2022-03-10C++ 函數(shù)的介紹
- 2022-03-10Python全棧之路正則函數(shù)
- 2022-03-10詳解Python的函數(shù)與異常
- 2022-03-09C語言system函數(shù)使用方法詳解
精彩推薦
- ASP教程
asp 標記字符串中指定字符變色不區(qū)分大小寫
今天遇到這種問題，單純的使用replace函數(shù)不行，他會改變原有的字符串的大小寫,在網(wǎng)上找到相關的代碼，自己備份下...
- ASP教程
asp 采集實戰(zhàn)代碼
最近實在是太流行采集了，本人是不喜歡采集的，但對采集的原理我卻很有興趣進行研究，拿到了網(wǎng)上采集常用函數(shù)，對其進行了一番研究，并實戰(zhàn)，結果...
- ASP教程
asp之基于adodb.stream的文件操作類
asp之基于adodb.stream的文件操作類...
- ASP教程
JScript中遍歷Request表單參數(shù)集合的方法
這篇文章主要介紹了JScript中遍歷Request表單參數(shù)集合的方法,本文以遍歷Request.QueryString集合為例給出了實現(xiàn)代碼,需要的朋友可以參考下...
- ASP教程
ASP.NET 數(shù)據(jù)源
數(shù)據(jù)源 一個 data sourse 控件與數(shù)據(jù)綁定的控件相互作用，并隱藏了復雜的數(shù)據(jù)的聯(lián)編過程。這些是提供數(shù)據(jù)給 data bound 控件的工具，并且支持如插入，刪除...
- ASP教程
asp+javascript實現(xiàn)404頁的處理轉(zhuǎn)換
asp+javascript實現(xiàn)404頁的處理轉(zhuǎn)換...
- ASP教程
asp Access數(shù)據(jù)備份,還原,壓縮類代碼
asp Access數(shù)據(jù)備份,還原,壓縮類實現(xiàn)代碼，大家可以參考下。...
- ASP教程
ASP常用函數(shù):getpy()
ASP常用函數(shù):getpy()...
