Asp中使用JQuery的AJAX提交中文乱码解决方法
客户端页:client.html
<script>
//jquery的post
$.post
(
'server.asp',
{
Act:'DoSubmit',
UserName:escape('毛票票'),//进行编码
WebSite:'www.nhooo.com'
},
function(data)
{
alert(unescape(data));//对返回数据进行解码
}
);
</script>
服务器端页:server.asp
<%
Response.Charset="gb2312"
DimUserName,WebSite
IfRequest.Form("Act")="DoSubmit"Then
UserName=Request.Form("UserName")
WebSite=Request.Form("WebSite")
'在服务器端解码
UserName=VbsUnEscape(UserName)//解码
'处理数据
'---省略数据处理部分
'数据处理后输出，先用VbsEscape()编码
Response.WriteVbsEscape(UserName)
EndIf
%>
<%
'与javascript中的escape()等效
FunctionVbsEscape(str)
dimi,s,c,a
s=""
Fori=1toLen(str)
c=Mid(str,i,1)
a=ASCW(c)
If(a>=48anda<=57)or(a>=65anda<=90)or(a>=97anda<=122)Then
s=s&c
ElseIfInStr("@*_+-./",c)>0Then
s=s&c
ElseIfa>0anda<16Then
s=s&"%0"&Hex(a)
ElseIfa>=16anda<256Then
s=s&"%"&Hex(a)
Else
s=s&"%u"&Hex(a)
EndIf
Next
VbsEscape=s
EndFunction
'与javascript中的unescape()等效
FunctionVbsUnEscape(str)
Dimx
x=InStr(str,"%")
DoWhilex>0
VbsUnEscape=VbsUnEscape&Mid(str,1,x-1)
IfLCase(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)
EndIf
x=InStr(str,"%")
Loop
VbsUnEscape=VbsUnEscape&str
EndFunction
%>
在javascript中escape()函数可对字符串进行编码，这样就可以在所有的计算机上读取该字符串。
可以使用unescape()对escape()编码的字符串进行解码。
其实Asp中这两个函数也是起作用的，居然很多asp网站上没有进行介绍。
要不然只能像上面那样写函数进行解码编码了。复杂且性能不好。
上面的服务器端页:server.asp可以写成:
Asp中的unescape()与escape()函数
<%
Response.Charset="gb2312"
DimUserName,WebSite
IfRequest.Form("Act")="DoSubmit"Then
UserName=Request.Form("UserName")
WebSite=Request.Form("WebSite")
'在服务器端解码
UserName=UnEscape(UserName)//解码
'处理数据
'---省略数据处理部分
'数据处理后输出，先用VbsEscape()编码
Response.WriteEscape(UserName)
EndIf
%>
这样就简单多了。