Unicode 编码转换器
转( http://boke.fj126.net/show-370-1.html)
html代码
提示:可以先修改部分代码后再运行
ASP版本
ASP/Visual Basic代码- <%
- function htmlunicode(str)
- dim j
- for i = 1 to len(str)
- char = mid(str, i, 1)
- j=ascw(char)
- if j<0 then j=j+65536
- if j > 128 then
- htmlunicode = htmlunicode & "" & j & ";"
- else
- htmlunicode = htmlunicode & char
- end if
- next
- end Function
- response.write htmlunicode("蓝雨")
- %>
本文来自互联网用户投稿,文章观点仅代表作者本人,不代表本站立场,不承担相关法律责任。如若转载,请注明出处。 如若内容造成侵权/违法违规/事实不符,请点击【内容举报】进行投诉反馈!
