最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

ASP中進行HTML數(shù)據(jù)及JS數(shù)據(jù)編碼函數(shù)

 更新時間:2009年11月11日 19:11:51   作者:  
在有些時候我們無法控制亂碼的出現(xiàn), 比如發(fā)送郵件的時候有些郵件顯示亂碼, 比如Ajax返回數(shù)據(jù)總是亂碼. 怎么辦?
前些天我就碰到了用Ajax提交表單, 然后發(fā)送郵件的情況. 于是寫出了下面的兩個函數(shù)來解決這兩個問題.

第一個函數(shù)把HTML中的數(shù)據(jù)轉(zhuǎn)成HTML實體, 而HTML標簽則自動不轉(zhuǎn), 這樣無論到哪里都不會亂碼, 可以在發(fā)送郵件時選擇發(fā)送HTML格式的郵件.
第二個函數(shù)把JS數(shù)據(jù)同樣是換成轉(zhuǎn)義字符, 同樣避開了JS關(guān)鍵詞等字符的轉(zhuǎn)換, 不管網(wǎng)頁是什么編碼它都不會亂碼. 廢話少說, 看下面的代碼.
復制代碼 代碼如下:

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

如果你是抱著拿著就用的態(tài)度那么可以什么也不管直接用, 當然很多時候我們?yōu)榱藵M足特殊情況的需要, 會改寫一些代碼, 如果你報著學習與研究的態(tài)度, 那么這里需要注意的是 Ascw(char) 函數(shù)有可能返回長整型值, 而ASP把它當成整型看待, 需要做些小的處理.

相關(guān)文章

最新評論

商洛市| 中阳县| 石嘴山市| 木里| 宁城县| 石渠县| 安多县| 甘泉县| 南溪县| 五常市| 舒兰市| 平山县| 密山市| 房产| 邻水| 青海省| 潮州市| 东乌| 遂宁市| 洛隆县| 普安县| 安庆市| 吉林市| 怀安县| 凤凰县| 德安县| 敦化市| 肥西县| 绩溪县| 聂荣县| 克东县| 边坝县| 永寿县| 临漳县| 安国市| 韶关市| 菏泽市| 民勤县| 麻城市| 岫岩| 阿勒泰市|