網站地圖 | RSS訂閱 老鐵博客 - 上海SEO優化|上海網站建設|蜘蛛池出租|站群代搭建
你的位置:首頁 ? ASP程序 ? 正文

ASP實現中文字符與UNICODE編碼(\u編碼)互轉函數

2016-11-24 9:13:13 | 作者:老鐵SEO | 4個評論 | 人瀏覽

<%
dim str : str="凌陳亮"
response.write("<p>" & tounicode(str) & "</p>")
response.write("<p>" & unicodeto(tounicode(str)) & "</p>")
function tounicode(str) '中文轉unicode
    tounicode=""
    dim i
    for i=1 to len(str)
	'asc函數:返回字符串的第一個字母對應的ANSI字符代碼
        'AscW函數:返回每一個GB編碼文字的Unicode字符代碼
        'hex函數:返回表示十六進制數字值的字符串
    	tounicode=tounicode & "\u" & LCase(Right("0000" & Cstr(hex(AscW(mid(str,i,1)))),4))
    next
end function
'\u51cc\u9648\u4eae\u535a\u5ba2
function unicodeto(str) 'unicode轉中文
    str=replace(str,"\u","")
    unicodeto=""
    dim i
    for i=1 to len(str) step 4
	'cint函數:將Variant類型強制轉換成int類型
        'chr函數:返回數值對應的ANSI編碼字符
        'ChrW函數:返回數值對應的Unicode編碼字符
    	unicodeto=unicodeto & ChrW(cint("&H" & mid(str,i,4)))
    next
end function
%>

輸出結果:

\u51cc\u9648\u4eae

凌陳亮

  • 本文來自: 老鐵博客,轉載請保留出處!歡迎發表您的評論
  • 相關標簽:ASP教程  編碼轉換  
  • 已有4位網友發表了一針見血的評論,你還等什么?

    必填

    選填

    記住我,下次回復時不用重新輸入個人信息

    必填,不填不讓過哦,嘻嘻。

    ◎歡迎參與討論,請在這里發表您的看法、交流您的觀點。

    色情激情片日本大全