亚洲av小电影在线免费,国产亚洲精品久午夜波多野结衣久久,亚洲日韩精品视频一区二区,国产全黄A一级视频

將想法與焦點和您一起共享

ASP中進行HTML數據及JS數據編碼發布者:本站     時間:2020-05-06 16:05:42

在有些時候我們無法控制亂碼的出現, 比如發送郵件的時候有些郵件顯示亂碼, 比如Ajax返回數據總是亂碼. 怎么辦? 前些天我就碰到了用Ajax提交表單, 然后發送郵件的情況. 于是寫出了下面的兩個函數來解決這兩個問題.
第一個函數把HTML中的數據轉成HTML實體, 而HTML標簽則自動不轉, 這樣無論到哪里都不會亂碼, 可以在發送郵件時選擇發送HTML格式的郵件.
第二個函數把JS數據同樣是換成轉義字符, 同樣避開了JS關鍵詞等字符的轉換, 不管網頁是什么編碼它都不會亂碼. 廢話少說, 看下面的代碼.
Function htmlentities(str)
Dim a,i,char
For i = 1 to Len(str)
char = mid(str, i, 1)
a=Ascw(char)
If a > 128 Or a < 0 then
htmlentities = htmlentities & “&#” & clng(”&h” & hex((Ascw(char)))) & “;”
Else
htmlentities = htmlentities & char
End if
Next
End Function
Function Unicode(str1)
Dim str,temp
str = “”
For i=1 To Len(str1)
temp = Hex(AscW(Mid(str1,i,1)))
If len(temp) < 5 Then temp = Right(”0000″ & temp, 4)
str = str & “\u” & temp
Next
Unicode = str
End Function
如果你是抱著拿著就用的態度那么可以什么也不管直接用, 當然很多時候我們為了滿足特殊情況的需要, 會改寫一些代碼, 如果你報著學習與研究的態度, 那么這里需要注意的是 Ascw(char) 函數有可能返回長整型值, 而ASP把它當成整型看待, 需要做些小的處理.



選擇我們,優質服務,不容錯過
1. 優秀的網絡資源,強大的網站優化技術,穩定的網站和速度保證
2. 15年上海網站建設經驗,優秀的技術和設計水平,更放心
3. 全程省心服務,不必擔心自己不懂網絡,更省心。
------------------------------------------------------------
24小時聯系電話:021-58370032
主站蜘蛛池模板: 榆社县| 四川省| 五峰| 武清区| 余干县| 神农架林区| 松阳县| 安康市| 平湖市| 诸城市| 青田县| 尚义县| 临猗县| 惠州市| 怀化市| 杭锦后旗| 宝兴县| 东阿县| 灵宝市| 英德市| 新邵县| 潜山县| 荔浦县| 上蔡县| 班戈县| 外汇| 盘山县| 阆中市| 宝鸡市| 衢州市| 虞城县| 开封市| 临清市| 漳州市| 嵊泗县| 略阳县| 富源县| 内江市| 长岛县| 德州市| 长海县|