将SQL Server字符串的整数转换成16进制

/****************************
字符串转成16进制
作者：不得闲
QQ: 75492895
Email: appleak46@yahoo.com.cn
****************************/
create function VarCharToHex(@Str Varchar(400))
returns varchar(800)
as
begin
declare @i int,@Asi int,@modS int,@res varchar(800),@Len int,@Cres varchar(4),@tempstr varbinary(400)
SELEct @i = 1,@res='',@len=datalength(@str),@tempStr = Convert(varbinary,@str)
while @i<=@len
begin
SELEct @Asi = subString(@tempstr,1,1),@Cres=''
while @Asi <> 0
begin
SELEct @mods = @Asi %16,
@Cres=Case when (@mods > 9) then Char(Ascii('A')+@mods-10)+@Cres else Cast(@mods as varchar(4)) + @Cres end,
@Asi = @Asi/16
end
SELEct @res = @res + @Cres,@tempStr = subString(@tempStr,2,@len-1),@i = @i+1
end
return @res
end

/****************************
整数转换成16进制
作者：不得闲
QQ: 75492895
Email: appleak46@yahoo.com.cn
****************************/
create function IntToHex(@IntNum int)
returns varchar(16)
as
begin
declare @mods int,@res varchar(16)
set @res=''
while @IntNum <> 0
begin
set @mods =@IntNum % 16
if @mods > 9
set @res = Char(Ascii('A')+@mods-10)+@res
else
set @res = Cast(@mods as varchar(4)) + @res
set @IntNum = @IntNum/16
end
return @res
end