ASP使用ajax來傳遞中文參數的編碼處理

来源:https://www.cnblogs.com/xusx2014/archive/2019/11/27/11940441.html

背景 asp的第一版是0.9測試版,自從1996年ASP1.0誕生,迄今20餘載。雖然asp在Windows2000 IIS服務5.0所附帶的ASP 3.0發佈後好像再沒有更新過了,但是由於其入手簡單,天然的asp+access零配置,在零幾年火的就像現在的微信小程式。雖然時過境遷,其至今在國內還有 ...


背景

asp的第一版是0.9測試版,自從1996年ASP1.0誕生,迄今20餘載。雖然asp在Windows2000 IIS服務5.0所附帶的ASP 3.0發佈後好像再沒有更新過了,但是由於其入手簡單,天然的asp+access零配置,在零幾年火的就像現在的微信小程式。雖然時過境遷,其至今在國內還有小規模的用戶市場。

據工信部發佈消息,截止到2018年底,中國中小企業的數量已經超過了3000萬家,個體工商戶數量超過7000萬戶。中小企業信息化普遍面臨資金短缺、信息人才不足等問題,為了降低成本,故而企業網站一般外包給其他小規模的網路公司製作、維護,網路公司一般是套站、仿站。操作系統一般使用Windows,web程式搭建上,一般使用php+MySQL或者asp+access的“黃金”組合。

實踐

這不,筆者最近又用上了asp+access,不過不是企業站的,而是一個小型的教學管理系統。

開發過程中碰到一個問題,asp頁面前後端都是用的gb2312編碼,前端使用ajax來傳遞中文參數,後端進行編碼處理後,以免存入access為亂碼。

註:建議前後端都是用utf-8編碼,就沒下麵這麼麻煩了。

前端代碼:

$.post("result.asp?act=update",{
  val: escape(val)
},function(result){
  result = JSON.parse(result);
});

後端代碼:

Dim val
val = Trim(vbsUnEscape(request.form("val")))

ECMAScript v3 已從標準中刪除了 escape() 函數和 unescape() 函數,並反對使用它們,因此應該使用 decodeURI() 和 decodeURIComponent() 取而代之。

… All of the language features and behaviours specified in this annex have one or more undesirable characteristics and in the absence of legacy usage would be removed from this specification. …
… Programmers should not use or assume the existence of these features and behaviours when writing new ECMAScript code. …

https://www-archive.mozilla.org/js/language/E262-3.pdf
https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/escape
Function vbsUnEscape(str)
    Dim i,s,c
    s=""
    For i=1 to Len(str)
        c=Mid(str,i,1)
        If Mid(str,i,2)="%u" and i<=Len(str)-5 Then
            If IsNumeric("&H" & Mid(str,i+2,4)) Then
                s=s & CHRW(CInt("&H" & Mid(str,i+2,4)))
                i=i+5
            Else
                s=s & c
            End If
        ElseIf c="%" and i<=Len(str)-2 Then
            If IsNumeric("&H" & Mid(str,i+1,2)) Then
                s=s & CHRW(CInt("&H" & Mid(str,i+1,2)))
                i=i+2
            Else
                s=s & c
            End If
        Else
            s=s & c
        End If
    Next
    vbsUnEscape=s
End Function

另附上一般這裡用不上的vbsEscape:

'escape時不變的7個符號: *(42) +(43) -(45) .(46) /(47) @(64) _(95)
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

如果,在前端使用的是encodeURI/encodeURIComponent,而不是escape,那麼,後端還可以像下麵這樣寫:

<%
Function strDecode(str)
    Dim objScript
    Set objScript = Server.CreateObject("ScriptControl")
    objScript.Language = "JavaScript"
    strDecode = objScript.Eval("decodeURIComponent(""" & str & """.replace(/\+/g,"" ""))")
    Set objScript = NOTHING
End Function
%>

上面的vbsUnEscape函數也可以這麼寫!

原文:https://xushanxiang.com/2019/11/asp-ajax-escape.html


您的分享是我們最大的動力!

更多相關文章
  • 由於項目中難免會碰到需要實時刷新,無論是獲取簡訊碼,還是在支付完成後輪詢獲取當前最新支付狀態,這時就需要用到定時器。但是,定時器如果不及時合理地清除,會造成業務邏輯混亂甚至應用卡死的情況,這個時就需要清除定時器。某個頁面中啟動定時器後,一定要在頁面關閉時將定時器清除掉。即在頁面卸載(關閉)的生命周期 ...
  • 什麼是‘路由’,路由相當於一個映射,一個url地址對應一個組件,當url地址A變為url地址B,那麼對應地址A的組件就會改變為對應地址B的組件。應用於spa,即:單頁應用,url地址改變,它不會跳轉頁面,只會用url對應的模塊取代上一個url對應的模塊,始終都在一個頁面操作。取代了傳統的多頁應用。值 ...
  • 練習1:求一個數字的階乘 function getJieCheng(num) { var result = 1; for (var i = 1; i <= num; i++) { result *= i; } return result; } console.log(getJieCheng(6)); ...
  • 淺談Vue下的components模板在我們越來越深入Vue時,我們會發現我們對HTML代碼的工程量會越來越少,今天我們來談談Vue下的 components模板的 初步使用方法與 應用 我們先來簡單的寫一段components代碼(局部方法創造模板) <div id="app"> <haha></ ...
  • 1.多了兩個新方法 (1)startWith:判斷一個字元串是否以某個欄位開頭 let str='asdfgh'; console.log(str.startsWith('a'));//true 應用: let str='http://it.kaikeba.com';if(str.startsWit ...
  • <script> document.write("<s"+"cript type='text/javascript' src='../utils/getUrl.js?112"+Math.random()+"'></scr"+"ipt>"); </script> 刷新頁面,重新載入js,清除緩存拒絕3 ...
  • 功能描述: 1.滑鼠經過 左右側箭頭顯示,滑鼠離開 箭頭隱藏 2.動態添加底部小圓圈並綁定單擊事件,並且讓小圓圈的點擊事件和左右箭頭點擊事件同步 3.拷貝第一張圖片添加到ul最後可以實現動態添加圖片 4.給箭頭綁定單擊事件,並且使圖片可以無縫輪播 5.實現自動輪播(動畫函數) 具體實現代碼: 1.鼠 ...
  • 一、背景 前段時間,寫的一篇關於博客園主題皮膚分享的文章,一經發出便受到了極大的熱捧,後來很多網友留言說,想要讓我分享現在的模板,畢竟現在這個模板已經比之前分享的那個多經歷了N多個版本的改進和優化。那本文我就來分享我博客園中的所有的特性,以供大家直接開箱即用。廢話不多說,直接開搞~ 二、最新版CSS ...
一周排行
  • 比如要拆分“呵呵呵90909086676喝喝999”,下麵當type=0返回的是中文字元串“呵呵呵,喝喝”,type=1返回的是數字字元串“90909086676,999”, private string GetStrings(string str,int type=0) { IList<strin ...
  • Swagger一個優秀的Api介面文檔生成工具。Swagger可以可以動態生成Api介面文檔,有效的降低前後端人員關於Api介面的溝通成本,促進項目高效開發。 1、使用NuGet安裝最新的包:Swashbuckle.AspNetCore。 2、編輯項目文件(NetCoreTemplate.Web.c ...
  • 2020 年 7 月 30 日, 由.NET基金會和微軟 將舉辦一個線上和為期一天的活動,包括 微軟 .NET 團隊的演講者以及社區的演講者。本次線上大會 專註.NET框架構建微服務,演講者分享構建和部署雲原生應用程式的最佳實踐、模式、提示和技巧。有關更多信息和隨時瞭解情況:https://focu... ...
  • #abp框架Excel導出——基於vue #1.技術棧 ##1.1 前端採用vue,官方提供 UI套件用的是iview ##1.2 後臺是abp——aspnetboilerplate 即abp v1,https://github.com/aspnetboilerplate/aspnetboilerp ...
  • 前言 本文的文字及圖片來源於網路,僅供學習、交流使用,不具有任何商業用途,版權歸原作者所有,如有問題請及時聯繫我們以作處理。 作者:碧茂大數據 PS:如有需要Python學習資料的小伙伴可以加下方的群去找免費管理員領取 input()輸入 Python提供了 input() 內置函數從標準輸入讀入一 ...
  • 從12年到20年,python以肉眼可見的趨勢超過了java,成為了當今It界人人皆知的編程語言。 python為什麼這麼火? 網路編程語言搜索指數 適合初學者 Python具有語法簡單、語句清晰的特點,這就讓初學者在學習階段可以把精力集中在編程對象和思維方法上。 大佬都在用 Google,YouT ...
  • 在社會上存在一種普遍的對培訓機構的學生一種歧視的現象,具體表現在,比如:當你去公司面試的時候,一旦你說了你是培訓機構出來的,那麼基本上你就涼了,那麼你瞞著不說,然後又通過了面試成功入職,但是以後一旦在公司被髮現有培訓經歷,可能會面臨被降薪,甚至被辭退,培訓機構出來的學生,在用人單位眼裡就是能力低下的 ...
  • from typing import List# 這道題看了大佬寫的代碼,經過自己的理解寫出來了。# 從最外圍的四周找有沒有為O的,如果有的話就進入深搜函數,然後深搜遍歷# 判斷上下左右的位置是否為Oclass Solution: def solve(self, board: List[List[s ...
  • import requests; import re; import os; # 1.請求網頁 header = { "user-agent":'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_5) AppleWebKit/537.36 (KHTML, li ...
  • import requests; import re; import os; import parsel; 1.請求網頁 header = { "user-agent":'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_5) AppleWebKit/537. ...