Asp中使用JQuery的AJAX提交中文出现乱码解决方法

发布时间：2023-04-06 12:49:36 所属栏目：Asp教程来源：

导读：客户端页:client.html

复制代码代码如下:

<script>

//jquery的post

$.post

(

'server.asp',

{

Act:'DoSubmit',

客户端页:client.html

复制代码代码如下:

<script>

    //jquery的post

    $.post

    (

        'server.asp',

        {

            Act:'DoSubmit',

            UserName:escape('错新站长站'),//进行编码

           WebSite:'www.Cuoxin.com'

        },

        function(data)

        {

            alert(unescape(data));//对返回数据进行解码

        }

    );

</script>

服务器端页:server.asp

复制代码代码如下:

< %

Response.Charset="gb2312"

Dim UserName,WebSite

If Request.Form("Act")="DoSubmit" Then

UserName=Request.Form("UserName")

WebSite =Request.Form("WebSite")

'在服务器端解码

UserName=VbsUnEscape(UserName)//解码

'处理数据

'---省略数据处理部分

'数据处理后输出，先用VbsEscape()编码

Response.Write VbsEscape(UserName)

End If

%>

< %

'与javascript中的escape()等效

Function VbsEscape(str)

    dim i,s,c,a

    s=""

    For i=1 to Len(str)

        c=Mid(str,i,1)

        a=ASCW(c)

        If (a>=48 and a< =57) or (a>=65 and a< =90) or (a>=97 and a< =122) Then

            s = s & c

        ElseIf InStr("@*_+-./",c)>0 Then

            s = s & c

        ElseIf a>0 and a<16 Then

            s = s & "%0" & Hex(a)

        ElseIf a>=16 and a<256 Then

            s = s & "%" & Hex(a)

        Else

            s = s & "%u" & Hex(a)

        End If

    Next

    VbsEscape=s

End Function

'与javascript中的unescape()等效

Function VbsUnEscape(str)

                Dim x

    x=InStr(str,"%")

    Do While x>0

        VbsUnEscape=VbsUnEscape&Mid(str,1,x-1)

        If LCase(Mid(str,x+1,1))="u" Then

            VbsUnEscape=VbsUnEscape&ChrW(CLng("&H"&Mid(str,x+2,4)))

            str=Mid(str,x+6)

        Else

            VbsUnEscape=VbsUnEscape&Chr(CLng("&H"&Mid(str,x+1,2)))

            str=Mid(str,x+3)

        End If

        x=InStr(str,"%")

    Loop

    VbsUnEscape=VbsUnEscape&str

End Function

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!