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

发布时间：2023-10-07 10:26:15 所属栏目：Asp教程来源：

导读：客户端页:client.html
复制代码代码如下:
<script>
//jquery的post
$.post
(
'server.asp',
{
Act:'DoSubmit',
UserName:escape(&#

客户端页: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

（编辑：汽车网）

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