ASP中文和Unicode互转

ASP中文和Unicode互转

1.         Public Function Tounicode(ByVal Str)
   
2.                 Tounicode = ""
   
3.                 Dim I
   
4.                 For I = 1 To Len(Str)
   
5.                         Tounicode = Tounicode & "\u" & LCase(Right("0000" & Cstr(Hex(AscW(Mid(Str,I,1)))),4))
   
6.                 Next
   
7.         End Function
   
8. 
   
9.         Public Function Unicodeto(ByVal Str)
   
10.                 Str = Replace(Str,"\u","")
    
11.                 Unicodeto = ""
    
12.                 Dim I
    
13.                 For I = 1 To Len(Str) Step 4
    
14.                         Unicodeto = Unicodeto & ChrW(Cint("&H" & Mid(Str,I,4)))
    
15.                 Next
    
16.         End Function

复制代码

向楼主的无私奉献致敬！

一往情僧 发表于 2024-11-14 08:00
向楼主的无私奉献致敬！