asp將中文漢字字符轉(zhuǎn)為unicode編碼(\u編碼)與把unicode編碼轉(zhuǎn)為漢字
網(wǎng)絡 2019/4/16 11:19:50 深山行者 字體:
大 中 小 瀏覽 10613
<%
dim zhuan_text
zhuan_text = "深山工作室"
%>
要轉(zhuǎn)換的內(nèi)容：<%=zhuan_text%><br />
轉(zhuǎn)換之后的代碼：<%=tounicode(zhuan_text)%><br />
轉(zhuǎn)碼之后的文字：<%=unicodeto("\\u6df1\u5c71\u5de5\u4f5c\u5ba4")%><br />
<%
function tounicode(str) '中文轉(zhuǎn)unicode
tounicode=""
dim i
for i=1 to len(str)
'asc函數(shù)：返回字符串的第一個字母對應的ANSI字符代碼
'AscW函數(shù)：返回每一個GB編碼文字的Unicode字符代碼
'hex函數(shù)：返回表示十六進制數(shù)字值的字符串
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轉(zhuǎn)中文
str=replace(str,"\u","")
unicodeto=""
dim i
for i=1 to len(str) step 4
'cint函數(shù)：將Variant類型強制轉(zhuǎn)換成int類型
'chr函數(shù)：返回數(shù)值對應的ANSI編碼字符
'ChrW函數(shù)：返回數(shù)值對應的Unicode編碼字符
unicodeto=unicodeto & ChrW(cint("&H" & mid(str,i,4)))
next
end function
%>
- 相關閱讀
- asp統(tǒng)計信息/文章每日、每周、每月、總訪問量的方法
- 華東賓館
- 膠球清洗
- 購買深山旅行社管理系統(tǒng)后享受哪些服務?
- 一行內(nèi)文本超出指定寬度后用省略號代替
- asp計算頁面執(zhí)行時間顯示到毫秒
- 2012-7-20升級部分
- QQ強聊
- 共有0條關于《asp將中文漢字字符轉(zhuǎn)為unicode編碼(\u編碼)與把unicode編碼轉(zhuǎn)為漢字》的評論
- 發(fā)表評論
蘇公網(wǎng)安備 32070502010230號