网站地图 | 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位网友发表了一针见血的评论,你还等什么?

    必填

    选填

    记住我,下次回复时不用重新输入个人信息

    必填,不填不让过哦,嘻嘻。

    ◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

    港警再次呼吁暴徒放下武器 有序走出理工大学校园
    增持国寿、卖出人保 市场为何如此偏心?
    香港理工大学附近部分暴徒被警方抓获
    海南第七批建设项目开工 全省固投增速连续9个月回升
    蒙牛获评社科院社会责任榜单第一 副总裁发表演讲
    国内最大国际邮轮母港17日开港 部分国际航线免签
    无锡银行:持股6.3%股东万新机械拟减持不超过1.62%
    苗圩:深化5G等新一代信息技术与制造业融合发展
    44天内海航控股收6亿元政府补 航线补贴占94%
    大风刮出一座名校?中北大学被吹成“北大”(图)
    ,