客戶端頁:client.html
復(fù)制代碼 代碼如下:
<script>
    //jquery的post
    $.post
    (
        'server.asp',
        {
            Act:'DoSubmit',
            UserName:escape('錯新站長站'),//進(jìn)行編碼
           WebSite:'www.survivalescaperooms.com'
        },
        function(data)
        {
            alert(unescape(data));//對返回數(shù)據(jù)進(jìn)行解碼
        }
    );   
</script>

服務(wù)器端頁:server.asp
復(fù)制代碼 代碼如下:
< %
Response.Charset="gb2312"
Dim UserName,WebSite
If Request.Form("Act")="DoSubmit" Then
UserName=Request.Form("UserName")
WebSite =Request.Form("WebSite")
 
'在服務(wù)器端解碼
UserName=VbsUnEscape(UserName)//解碼
 
'處理數(shù)據(jù)
'---省略數(shù)據(jù)處理部分
 
'數(shù)據(jù)處理后輸出，先用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