亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

這篇文章主要介紹了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

%>

這樣就簡單多了

更多信息請查看IT技術專欄