亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

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

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

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

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)度那么可以什么也不管直接用, 當(dāng)然很多時(shí)候我們?yōu)榱藵M足特殊情況的需要, 會(huì)改寫(xiě)一些代碼, 如果你報(bào)著學(xué)習(xí)與研究的態(tài)度, 那么這里需要注意的是 Ascw(char) 函數(shù)有可能返回長(zhǎng)整型值, 而ASP把它當(dāng)成整型看待, 需要做些小的處理.

相關(guān)文章

  • JavaScript File API實(shí)現(xiàn)文件上傳預(yù)覽

    JavaScript File API實(shí)現(xiàn)文件上傳預(yù)覽

    這篇文章主要為大家介紹了JavaScript File API實(shí)現(xiàn)文件上傳預(yù)覽,F(xiàn)ile API將極大地方便 Web 端的文件上傳等操作,本文將介紹 File API的概況,并用兩個(gè)實(shí)例展示File API的應(yīng)用,感興趣的小伙伴們可以參考一下
    2016-02-02
  • 最新評(píng)論