Unicode 编码转换器

转( http://boke.fj126.net/show-370-1.html) html代码


2. (点击相应格式转换按钮将完成代码的转换)


(查看转换后的效果) (复制转换后的代码到剪贴板中)


提示:可以先修改部分代码后再运行

ASP版本 

ASP/Visual Basic代码
  1. <%   
  2. function htmlunicode(str)   
  3.     dim j   
  4.     for i = 1 to len(str)   
  5.         char = mid(str, i, 1)   
  6.         j=ascw(char)   
  7.   
  8.             if j<0 then j=j+65536    
  9.   
  10.             if j > 128 then   
  11.                 htmlunicode = htmlunicode & "&#" & j & ";"  
  12.             else   
  13.                 htmlunicode = htmlunicode & char   
  14.             end if   
  15.     next   
  16. end Function  
  17.   
  18. response.write htmlunicode("蓝雨")   
  19. %>  


本文来自互联网用户投稿,文章观点仅代表作者本人,不代表本站立场,不承担相关法律责任。如若转载,请注明出处。 如若内容造成侵权/违法违规/事实不符,请点击【内容举报】进行投诉反馈!

相关文章

立即
投稿

微信公众账号

微信扫一扫加关注

返回
顶部