| 标题 | Asp中使用JQuery的AJAX提交中文乱码解决方法 |
| 范文 | 这篇文章主要介绍了Asp中使用JQuery的AJAX提交中文乱码解决方法,使用Asp中的unescape() 和escape() 函数即可解决乱码问题,需要的朋友可以参考下 客户端页: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<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 %> 在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 %> 这样就简单多了 |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。