asp將中文漢字字符轉為unicode編碼(\u編碼)與把unicode編碼轉為漢字
網絡 2019/4/16 11:19:50 深山行者 字體:
大 中 小 瀏覽 10406
<%
dim zhuan_text
zhuan_text = "深山工作室"
%>
要轉換的內容：<%=zhuan_text%><br />
轉換之后的代碼：<%=tounicode(zhuan_text)%><br />
轉碼之后的文字：<%=unicodeto("\\u6df1\u5c71\u5de5\u4f5c\u5ba4")%><br />
<%
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
'\u6df1\u5c71\u5de5\u4f5c\u5ba4
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
%>
- 相關閱讀
- 旅行社手機網站模板6
- 常用正則表達式集錦
- 06 iis中Server Application Error問題如何修復
- 微信公眾平臺
- 使用uiautomatorviewer連接模擬器頁面報錯No Android devices were detected by adb.
- 另類的title提示文字
- 02. 解決只能運行asp頁面不能運行數據庫錯誤
- 小程序中利用addPhoneContact將聯系人的信息添加到手機通訊錄支持保存聯系人頭像
- 共有0條關于《asp將中文漢字字符轉為unicode編碼(\u編碼)與把unicode編碼轉為漢字》的評論
- 發表評論
蘇公網安備 32070502010230號