技术支持

如果建站过程中遇到问题,请到这里查看解决办法

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

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



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

京ICP备2014020853号  QQ在线咨询   邮箱:46334847@qq.com   版权所有 2004-2014 云华互联保留所有权利

网站关键字:云华互联  单县网站建设  单县网站设计  单县网页制作