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))
下一个
结束功能
%>