ASP常用函数:getpy()

<%
'取字段数据每个汉字的拼音首字母

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
%>