asp将中文汉字字符转为unicode编码与unicode编码转为汉字

要转换的内容：<%=zhuan_text%>
转换之后的代码：<%=tounicode(zhuan_text)%>
转码之后的文字：<%=unicodeto("\\u6df1\u5c71\u5de5\u4f5c\u5ba4")%>

1. <%
   
2. function tounicode(str) '中文转unicode
   
3. tounicode=""
   
4. dim i
   
5. for i=1 to len(str)
   
6. 'asc函数：返回字符串的第一个字母对应的ANSI字符代码
   
7. 'AscW函数：返回每一个GB编码文字的Unicode字符代码
   
8. 'hex函数：返回表示十六进制数字值的字符串
   
9. tounicode=tounicode & "\u" & LCase(Right("0000" & Cstr(hex(AscW(mid(str,i,1)))),4))
   
10. next
    
11. end function
    
12. 
    
13. '\u6df1\u5c71\u5de5\u4f5c\u5ba4
    
14. function unicodeto(str) 'unicode转中文
    
15. str=replace(str,"\u","")
    
16. unicodeto=""
    
17. dim i
    
18. for i=1 to len(str) step 4
    
19. 'cint函数：将Variant类型强制转换成int类型
    
20. 'chr函数：返回数值对应的ANSI编码字符
    
21. 'ChrW函数：返回数值对应的Unicode编码字符
    
22. unicodeto=unicodeto & ChrW(cint("&H" & mid(str,i,4)))
    
23. next
    
24. end function
    
25. %>

复制代码