欢迎来到代码驿站!

ASP代码

当前位置:首页 > 软件编程 > ASP代码

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

时间:2021-09-06 09:01:17|栏目:ASP代码|点击:

客户端页:client.html

复制代码 代码如下:

<script>
    //jquery的post
    $.post
    (
        'server.asp',
        {
            Act:'DoSubmit',
            UserName:escape('脚本之家'),//进行编码
           WebSite:'www.jb51.net'
        },
        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&lt;16 Then
            s = s & "%0" & Hex(a)
        ElseIf a>=16 and a&lt;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
%>

在javascript 中escape() 函数可对字符串进行编码,这样就可以在所有的计算机上读取该字符串。

可以使用 unescape() 对 escape() 编码的字符串进行解码。

其实Asp中这两个函数也是起作用的,居然很多asp网站上没有进行介绍。

要不然只能像上面那样写函数进行解码编码了。复杂且性能不好。

上面的服务器端页:server.asp可以写成:

Asp中的unescape() 与 escape() 函数

复制代码 代码如下:

< %
Response.Charset="gb2312"
Dim UserName,WebSite
If Request.Form("Act")="DoSubmit" Then
UserName=Request.Form("UserName")
WebSite =Request.Form("WebSite")
 
'在服务器端解码
UserName=UnEscape(UserName)//解码
 
'处理数据
'---省略数据处理部分
 
'数据处理后输出,先用VbsEscape()编码
Response.Write Escape(UserName)
End If
%>

这样就简单多了。

上一篇:ASP中FSO对象对IIS WEB服务器数据安全的威胁及对策

栏    目:ASP代码

下一篇:查看所有的Server Variables的环境变量

本文标题:Asp中使用JQuery的AJAX提交中文乱码解决方法

本文地址:http://www.codeinn.net/misctech/172940.html

推荐教程

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:914707363 | 邮箱:codeinn#126.com(#换成@)

Copyright © 2020 代码驿站 版权所有