取汉字拼音首字母的存储过程

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

 Create functionfun_getPY
 (
   @strnvarchar(4000)
 )
returnsnvarchar(4000)
as
begin

 declare@wordnchar(1),@PYnvarchar(4000)

 set@PY=''

 whilelen(@str)>0
 begin
   set@word=left(@str,1)

   --如果非汉字字符，返回原字符
   set@PY=@PY+(casewhenunicode(@word)between19968and19968+20901
              then( 
                           selecttop1PY 
                           from 
                           ( 
                            select'A'asPY,N'驁'asword
                            unionallselect'B',N'簿'
                            unionallselect'C',N'錯'
                    unionallselect'D',N'鵽'
                    unionallselect'E',N'樲'
                    unionallselect'F',N'鰒'
                    unionallselect'G',N'腂'
                    unionallselect'H',N'夻'
                    unionallselect'J',N'攈'
                    unionallselect'K',N'穒'
                    unionallselect'L',N'鱳'
                    unionallselect'M',N'旀'
                    unionallselect'N',N'桛'1

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>