URL 参数 GB2312转UTF

时间:2018-12-04 17:38:48 浏览人数: 栏目:帮助中心

 以下这个函数是用于在GB2312页面进行URL编码,并且编码出来的是UTF-8格式字符串。
     这样编码后UTF-8页面就可以直接获取URL参数了,不用再编码转换了。

<%Private Function UrlEncode_GBToUtf8(szInput)    Dim wch, uch, szRet    Dim x    Dim nAsc, nAsc2, nAsc3    If szInput = "" Then
        UrlEncode_GBToUtf8= szInput        Exit Function
    End If
    For x = 1 To Len(szInput)
        wch = Mid(szInput, x, 1)
        nAsc = AscW(wch)        If nAsc < 0 Then nAsc = nAsc + 65536        If wch = "+" then
            szRet = szRet & "%2B"
        ElseIf wch = "%" then
            szRet = szRet & "%25"
        ElseIf (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
                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
    UrlEncode_GBToUtf8 = szRetEnd Functionresponse.write UrlEncode_GBToUtf8("加速度网络") '结果:12


Copyright © 2011-2018 加速度网络 保留公司所有权利   冀ICP备11003175号-1 网站地图

在线
客服

在线客服服务时间:8:30-17:30

客服
热线

4000-309-369
7*24小时客服服务热线

关注
微信

扫描加好友
顶部