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("蓝雨")
- %>