ASP GB2312转UTF-8 URL编码

减小字体

增大字体

作者：佚名来源：本站整理发布时间：2010-11-03 22:11:29

以下这个函数是用于在GB2312页面进行URL编码,并且编码出来的是UTF-8格式字符串。

这样编码后UTF-8页面就可以直接获取URL参数了，不用再编码转换了。

ASP code

<%

Private Function UrlEncode_GBToUtf8(szInput)
    Dim wch, uch, szRet
    Dim x
    Dim nAsc, nAsc2, nAsc3
    If szInput = "" Then
        UrlEncode_GBToUtf8= szInput
        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 & 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
            UrlEncode_GBToUtf8 = szRet
.write UrlEncode_GBToUtf8("新兴网络") '结果：%E6%96%B0%E5%85%B4%E7%BD%91%E7%BB%9C
%>

Tags：

作者：佚名

[]

[]

[]

0

·上一篇：ASP GB2312编码转换UTF-8函数
·下一篇：ASP UTF-8格式URL解码函数

网络学院评论评论内容只代表网友观点，与本站立场无关！

评论摘要(共 0 条，得分 0 分，平均 0 分)

查看完整评论