程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> Asp中使用JQuery的AJAX提交中文亂碼解決方法

Asp中使用JQuery的AJAX提交中文亂碼解決方法

編輯:關於ASP編程

客戶端頁: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
%>

這樣就簡單多了。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved