快捷導(dǎo)航

ASP常用函數(shù):getpy()

更新時(shí)間：2007年02月07日 00:00:00 作者：

<%
'取字段數(shù)據(jù)每個(gè)漢字的拼音首字母

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()

相關(guān)文章

使用innerHTML時(shí)注意處理空格和回車(chē)符(asp后臺(tái)處理)
innerHTML中如果包含空格和回車(chē)都會(huì)被認(rèn)為是段落的結(jié)束，造成程序運(yùn)行出錯(cuò)，解決辦法，輸出的時(shí)候?qū)⒖崭窈突剀?chē)替換掉，方便js調(diào)用。
2011-08-08
動(dòng)網(wǎng)防惡意廣告比較有效的辦法附asp代碼
動(dòng)網(wǎng)防惡意廣告比較有效的辦法附asp代碼...
2007-05-05
用存儲(chǔ)過(guò)程、GetRows()、抽取10萬(wàn)條數(shù)據(jù)的速度測(cè)試
用存儲(chǔ)過(guò)程、GetRows()、抽取10萬(wàn)條數(shù)據(jù)的速度測(cè)試...
2007-03-03
ubbcode函數(shù)
ubbcode函數(shù)...
2006-10-10
ASP實(shí)現(xiàn)長(zhǎng)文章分頁(yè)
ASP實(shí)現(xiàn)長(zhǎng)文章分頁(yè)...
2007-02-02
asp中創(chuàng)建多級(jí)目錄的兩段代碼
這篇文章主要介紹了asp中創(chuàng)建多級(jí)目錄的兩段代碼,需要的朋友可以參考下
2007-03-03
Jmail組件發(fā)送郵件之絕對(duì)能用的函數(shù)
Jmail組件的這些對(duì)象為服務(wù)器端對(duì)郵件的操作提供了各種各樣的功能，每個(gè)對(duì)象都有其獨(dú)特應(yīng)用
2006-12-12
asp實(shí)現(xiàn)獲取MSSQL數(shù)據(jù)庫(kù)表指定條件行數(shù)的函數(shù)
這篇文章主要介紹了asp實(shí)現(xiàn)獲取MSSQL數(shù)據(jù)庫(kù)表指定條件行數(shù)的函數(shù)的的相關(guān)資料,需要的朋友可以參考下
2015-03-03
做了CDN加速的ASP網(wǎng)站獲取用戶(hù)真實(shí)IP程序
寫(xiě)了下asp取真實(shí)IP的代碼，搭環(huán)境測(cè)試無(wú)代理、一級(jí)或多級(jí)代理的情況，可以正常獲取
2010-11-11
淺談ASP數(shù)據(jù)庫(kù)下載漏洞
沒(méi)有完美的東西，所以有漏洞在所難免，漏洞產(chǎn)生后隨之而來(lái)的就是各種應(yīng)對(duì)的招數(shù)，比如改數(shù)據(jù)庫(kù)的后綴、修改數(shù)據(jù)庫(kù)的名字等等。很多人以為只要這么做就可以解決問(wèn)題了，但事實(shí)往往不如你我所愿，即使你這么做了也難逃被高手攻擊的命運(yùn)。
2015-04-04