代码天地

近期在解析一个json的时候，发现中文被Unicode转换了，显示的是一串Unicode代码，怎么使用asp将中文转换成Unicode的呢，或者将Unicod转换成中文呢？代码如下：

<%
dim str : str="张三丰"
response.write("<p>" & tounicode(str) & "</p>")
response.write("<p>" & unicodeto(tounicode(str)) & "</p>")
'中文转unicode
function tounicode(str)
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
'unicode转中文
function unicodeto(str) 
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
%>

记录以上代码供参考