ASP实现中文字符与UNICODE编码(\u编码)互转函数

人气:
433
日期:
2019/1/11
HTML 网页设计 W3C 433

摘要:ASP实现中文字符与UNICODE编码(\u编码)互转函数

<%

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

%>




Copyright © 2014 ASP技巧教程源码大全 All Rights Reserved
晋ICP备14006235号-3 页面执行时间:92.773毫秒 返回顶部

?分享按钮