ASP常用函數：getpy() 漢字轉為拼音

<%
'取字段每個資料字元的拼音首字母

Function getpychar(char)
tmp = 65536 + 升序(字元)
如果（tmp>= 45217 且 tmp<= 45252） 那麼
getpychar =“A”
ElseIf(tmp>= 45253 且 tmp<= 45760) 然後
getpychar =“B”
ElseIf(tmp>= 47761 且 tmp<= 46317) 然後
getpychar =“C”
ElseIf(tmp>= 46318 且 tmp<= 46825) 然後
getpychar =“D”
ElseIf(tmp>= 46826 且 tmp<= 47009) 然後
getpychar =“E”
ElseIf(tmp>= 47010 且 tmp<= 47296) 然後
getpychar =“F”
ElseIf(tmp>= 47297 且 tmp<= 47613) 然後
getpychar =“G”
ElseIf(tmp>= 47614 且 tmp<= 48118) 然後
getpychar =“H”
ElseIf(tmp>= 48119 且 tmp<= 49061) 然後
getpychar =“J”
ElseIf(tmp>= 49062 且 tmp<= 49323) 然後
getpychar =“K”
ElseIf(tmp>= 49324 且 tmp<= 49895) 然後
getpychar =“L”
ElseIf(tmp>= 49896 且 tmp<= 50370) 然後
getpychar =“M”
ElseIf(tmp>= 50371 且 tmp<= 50613) 然後
getpychar =“N”
ElseIf(tmp>= 50614 且 tmp<= 50621) 然後
getpychar =“O”
ElseIf(tmp>= 50622 且 tmp<= 50905) 然後
getpychar =“P”
ElseIf(tmp>= 50906 且 tmp<= 51386) 然後
getpychar =“Q”
ElseIf(tmp>= 51387 且 tmp<= 51445) 然後
getpychar =“R”
ElseIf(tmp>= 51446 且 tmp<= 52217) 然後
getpychar =“S”
ElseIf(tmp>= 52218 且 tmp<= 52697) 然後
getpychar =“T”
ElseIf(tmp>= 52698 且 tmp<= 52979) 然後
getpychar =“W”
ElseIf(tmp>= 52980 且 tmp<= 53640) 然後
getpychar =“X”
ElseIf(tmp>= 53689 且 tmp<= 54480) 然後
getpychar =“Y”
ElseIf(tmp>= 54481 且 tmp<= 62289) 然後
getpychar =“Z”
else '如果不是中文，則不處理
getpychar = 字符
結束如果
結束函數

Function getpy(Str)
對於 i = 1 至 Len(Str)
getpy = getpy&getpychar(中(Str, i, 1))
下一個
結束功能
%>
程式碼
<%
'取字段每個資料字元的拼音首字母

Function getpychar(char)
tmp = 65536 + 升序(字元)
如果（tmp>= 45217 且 tmp<= 45252） 那麼
getpychar =“A”
ElseIf(tmp>= 45253 且 tmp<= 45760) 然後
getpychar =“B”
ElseIf(tmp>= 47761 且 tmp<= 46317) 然後
getpychar =“C”
ElseIf(tmp>= 46318 且 tmp<= 46825) 然後
getpychar =“D”
ElseIf(tmp>= 46826 且 tmp<= 47009) 然後
getpychar =“E”
ElseIf(tmp>= 47010 且 tmp<= 47296) 然後
getpychar =“F”
ElseIf(tmp>= 47297 且 tmp<= 47613) 然後
getpychar =“G”
ElseIf(tmp>= 47614 且 tmp<= 48118) 然後
getpychar =“H”
ElseIf(tmp>= 48119 且 tmp<= 49061) 然後
getpychar =“J”
ElseIf(tmp>= 49062 且 tmp<= 49323) 然後
getpychar =“K”
ElseIf(tmp>= 49324 且 tmp<= 49895) 然後
getpychar =“L”
ElseIf(tmp>= 49896 且 tmp<= 50370) 然後
getpychar =“M”
ElseIf(tmp>= 50371 且 tmp<= 50613) 然後
getpychar =“N”
ElseIf(tmp>= 50614 且 tmp<= 50621) 然後
getpychar =“O”
ElseIf(tmp>= 50622 且 tmp<= 50905) 然後
getpychar =“P”
ElseIf(tmp>= 50906 且 tmp<= 51386) 然後
getpychar =“Q”
ElseIf(tmp>= 51387 且 tmp<= 51445) 然後
getpychar =“R”
ElseIf(tmp>= 51446 且 tmp<= 52217) 然後
getpychar =“S”
ElseIf(tmp>= 52218 且 tmp<= 52697) 然後
getpychar =“T”
ElseIf(tmp>= 52698 且 tmp<= 52979) 然後
getpychar =“W”
ElseIf(tmp>= 52980 且 tmp<= 53640) 然後
getpychar =“X”
ElseIf(tmp>= 53689 且 tmp<= 54480) 然後
getpychar =“Y”
ElseIf(tmp>= 54481 且 tmp<= 62289) 然後
getpychar =“Z”
else '如果不是中文，則不處理
getpychar = 字符
結束如果
結束函數

Function getpy(Str)
對於 i = 1 至 Len(Str)
getpy = getpy&getpychar(中(Str, i, 1))
下一個
結束功能
%>