首页 > > 网络编程 > Asp编程 >

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

2020-03-20 16:00:20来源：爱站网阅读 ()

在ASP开发中，我们可能会接触到JQuery和AJAX，然而这个时候也可能导致程序员混乱，下面好好看看爱站技术频道小编带给大家的Asp中使用JQuery的AJAX提交中文乱码解决方法吧！

客户端页:client.html

复制代码代码如下:

<script>

??? //jquery.html" target="_blank">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

%>