SQL SERVER 中的拼音码转换函数

CREATE     FUNCTION Fun_GetPY(@STR NVARCHAR(4000))
RETURNS NVARCHAR(4000)
/*
    功能：    将汉字转换为拼音码
    作者：    zjp
    时间：
        2007-08-27
    测试：
        PRINT DBO.FUN_GETPY(N'张静普')
*/
AS
BEGIN
    DECLARE @WORD     NCHAR(1),
        @PY     NVARCHAR(4000)
    SET @PY=''
    WHILE LEN(@STR)>0
    BEGIN
        SET @WORD=LEFT(@STR,1)
        --如果非汉字字符，返回原字符
        SET @PY=@PY+(
            CASE
                WHEN UNICODE(@WORD) BETWEEN 19968 AND 19968+20901
                THEN
                (
                    SELECT
                        TOP 1 PY
                    FROM
                    (
                        SELECT 'a' AS PY,N'驁' AS WORD
                        UNION ALL SELECT 'b',N'簿'
                        UNION ALL SELECT 'c',N'錯'
                        UNION ALL SELECT 'd',N'鵽'
                        UNION ALL SELECT 'e',N'樲'
                        UNION ALL SELECT 'f',N'鰒'
                        UNION ALL SELECT 'g',N'腂'
                        UNION ALL SELECT 'h',N'夻'
                        UNION ALL SELECT 'j',N'攈'
                        UNION ALL SELECT 'k',N'穒'
                        UNION ALL SELECT 'l',N'鱳'
                        UNION ALL SELECT 'm',N'旀'
                        UNION ALL SELECT 'n',N'桛'
                        UNION ALL SELECT 'o',N'漚'
                        UNION ALL SELECT 'p',N'曝'
                        UNION ALL SELECT 'q',N'囕'
                        UNION ALL SELECT 'r',N'鶸'
                        UNION ALL SELECT 's',N'蜶'
                        UNION ALL SELECT 't',N'籜'
                        UNION ALL SELECT 'w',N'鶩'
                        UNION ALL SELECT 'x',N'鑂'
                        UNION ALL SELECT 'y',N'韻'
                        UNION ALL SELECT 'z',N'咗'
                    ) T
                    WHERE
                        WORD>=@WORD COLLATE CHINESE_PRC_CS_AS_KS_WS
                    ORDER BY
                        PY ASC
                )
                ELSE
                    @WORD
                END
            )
        SET @STR=RIGHT(@STR,LEN(@STR)-1)
    END
    RETURN @PY
END