asp实现google Url编码转换函数

asp实现google Url编码转换函数

Function toUTF8(szInput)
    Dim wch, uch, szRet
    Dim x
    Dim nAsc, nAsc2, nAsc3
    '如果输入参数为空，则退出函数
    If szInput = "" Then
      toUTF8 = szInput
      Exit Function
    End If
    '开始转换
    For x = 1 To Len(szInput)
      '利用mid函数分拆GB编码文字
      wch = Mid(szInput, x, 1)
      '利用ascW函数返回每一个GB编码文字的Unicode字符代码
      '注：asc函数返回的是ANSI 字符代码，注意区别
      nAsc = AscW(wch)
      If nAsc < 0 Then nAsc = nAsc + 65536
   
      If (nAsc And &HFF80) = 0 Then
          szRet = szRet & wch
      Else
          If (nAsc And &HF000) = 0 Then
            uch = "%" & Hex(((nAsc \ 2 ^ 6)) or &HC0) & Hex(nAsc And &H3F or &H80)
            szRet = szRet & uch
          Else
            'GB编码文字的Unicode字符代码在0800 - FFFF之间采用三字节模版
            uch = "%" & Hex((nAsc \ 2 ^ 12) or &HE0) & "%" & _
                    Hex((nAsc \ 2 ^ 6) And &H3F or &H80) & "%" & _
                    Hex(nAsc And &H3F or &H80)
            szRet = szRet & uch
          End If
      End If
    Next
       
    toUTF8 = szRet
  End Function

Tags: asp google url编码