SQL 将URL编码转汉字!

来源:互联网 发布:合肥英语培训 知乎 编辑:程序博客网 时间:2024/06/05 07:44
-- =============================================-- 作    者: ruijc-- 描    述: 将Url编码转明文字符串-- =============================================CREATE FUNCTION FN_URLDecode( @Str VARCHAR(8000)--已经编码的字符串)RETURNS VARCHAR(8000)ASBEGIN  DECLARE @Position  INT;          --'%'字符所在位置  DECLARE @Chr       CHAR(16);     --字符常量  DECLARE @Pattern   CHAR(21);  DECLARE @ParseStr  VARCHAR(8000);--解码后的字符串  DECLARE @Hex UNIQUEIDENTIFIER;--定义16进制模板,因为GUID方便转为BYTE  DECLARE @CurrWord INT;--当前字  DECLARE @BitsCount INT        ;--当前解码位数  DECLARE @HightByte TINYINT;--高位字节  DECLARE @LowByte   TINYINT;--低位字节    /****************变量初始化***********************/  SET     @Chr = '0123456789abcdef';  SET     @Pattern = '%[%][a-f0-9][a-f0-9]%';  SET     @ParseStr=@Str;  SET     @Hex= '00000000-0000-0000-0000-000000000000';  SET     @CurrWord=0;  SET     @BitsCount=0;  SET     @HightByte=0;  SET     @LowByte=0;    IF (@Str IS NOT NULL OR @Str<>'')   BEGIN     SET    @Position = PATINDEX(@Pattern, @ParseStr);--取得第一个'%'所在的位置     WHILE @Position>0      BEGIN        SET @Hex=STUFF(@Hex,7,2,LEFT(RIGHT(@ParseStr,len(@ParseStr) - @Position),2));        SET @HightByte=CAST(CAST(@Hex AS BINARY(1)) AS INT);                IF (@HightByte & 127=@HightByte)         BEGIN--ASCII码直接转为UTF-8或UTF-16           SET @CurrWord=@HightByte;           SET @BitsCount=1;         END                 IF (@HightByte & 192=192)         BEGIN--Unicode编码           SET @CurrWord=@HightByte & 31 ;           SET @BitsCount=2;         END        IF (@HightByte & 224=224)         BEGIN--UTF-8编码SET@CurrWord = @HightByte & 15SET @BitsCount = 3         END        IF (@HightByte & 240=240)         BEGIN--UTF-16编码SET@CurrWord = @HightByte & 7SET @BitsCount = 4         END        DECLARE @Index INT;                DECLARE @NEWCHAR NVARCHAR(2);        SET @Index=1;        SET @NEWCHAR='';        WHILE @Index<@BitsCount         BEGIN              IF (LEN(@ParseStr)-@Position-3*@Index)<0               BEGIN                   SET @ParseStr=@Str ;                      SET @Position=0;                   BREAK;                             ENDSET @NEWCHAR = LEFT(RIGHT(@ParseStr,LEN(@ParseStr) - @Position - 3* @Index),2);              --如果没有16进制编码则中断外层WHILEIF @NEWCHAR NOT LIKE '[a-f0-9][a-f0-9]' BEGINSET @ParseStr = @StrSET @Position=0;--中断外层WHILEBREAK; END SET @Hex = STUFF(@Hex, 7, 2, @NEWCHAR)SET @LowByte = CAST(CAST(@Hex AS BINARY(1)) AS INT);IF @LowByte&192=192BEGINSET @ParseStr = @StrSET @Position=0;--中断外层WHILEBREAK;END SET @CurrWord = (@CurrWord * 64) | (@LowByte & 63)SET @Index =@Index+ 1                        END                                    IF @BitsCount > 1                     SET @ParseStr = STUFF(@ParseStr, @Position, 3*(@BitsCount), NCHAR(@CurrWord)) ELSE   BEGINset @ParseStr = STUFF(@ParseStr, @Position, 2, NCHAR(@CurrWord))set @ParseStr = STUFF(@ParseStr, @Position+1, 1, N'')  END----取得下一个'%'所在的位置        SET  @Position = PATINDEX(@Pattern, @ParseStr);      END   END   RETURN @ParseStr;ENDGOSELECT dbo.FN_URLDecode('%E4%BD%A0%E6%98%AF%E5%93%AA%E4%B8%AA')

原创粉丝点击