sqlserver全半角转换，写完存上，方便今后用

CREATE FUNCTION dbo.fun_dbc_sbc(@s VARCHAR(800))
/*************************************/
--全半角字母及数字转换-半角转全角
--思路，找出对应unicode区，进行转换转换内容包括0-9:;<=>?@A-Z[/]^_`a-z
--半角0-9:;<=>?@A-Z[/]^_`a-z对应48-122
--全角０-９：；＜＝＞？＠Ａ-Ｚ［＼］＾＿｀ａ-ｚ对应65296-65370
--tangwf 2007-05-14
/*************************************/
RETURNS VARCHAR(800)
AS
BEGIN
DECLARE @i INT
SET @i=1
WHILE @i<=LEN(@s)
 BEGIN
 IF UNICODE(SUBSTRING(@s,@i,1)) BETWEEN 48 AND 122
 SET @s=STUFF(@s,@i,1,NCHAR(UNICODE(SUBSTRING(@s,@i,1))+65248))
 SET @i=@i+1
 END
RETURN @s
END
GO
--调用
SELECT dbo.fun_dbc_sbc('把半角r转换成全角R') --结果
CREATE FUNCTION dbo.fun_sbc_dbc(@s VARCHAR(800))
/*************************************/
--全角转半角
/*************************************/
RETURNS VARCHAR(800)
AS
BEGIN
DECLARE @i INT
SET @i=1
WHILE @i<=LEN(@s)
 BEGIN
 IF UNICODE(SUBSTRING(@s,@i,1)) BETWEEN 65296 AND 65370
 SET @s=STUFF(@s,@i,1,NCHAR(UNICODE(SUBSTRING(@s,@i,1))-65248))
 SET @i=@i+1
 END
RETURN @s
END
GO
--调用
SELECT dbo.fun_sbc_dbc('把半角ｒ转换成全角Ｒ') --结果:把半角r转换成全角R