The mutual transformation of Chinese characters and Unicode in ASP

There are many similar articles on the web, but most of them are a lot of code. In fact, the ASP has built-in processing of Unicode functions, a simple few lines of code to complete the conversion:
Recommendation Index: ★★★★☆

' Convert Chinese characters to Unicode (not supported for second-plane Chinese characters, but few people can use these characters)
Function Getunicode (Hanzi)
Dim Str
str = left (hanzi,1) ' Of course here you need to judge Hanzi is a character, if you need more than one character, use the loop
If Len (str) >0 Then
Getunicode = Hex (AscW (str))
Else
Getunicode = ""
End If
End Function

' Convert Unicode to Kanji
Funciton GETCHR (Unicode) ' Here the parameter is the format of the last function, such as 4E00
If Len (Unicode) >0 Then
GETCHR = unescape ("%u" &unicode)
Else
GETCHR = ""
End If
End Function

Of course you can also add some controls, such as checking the Unicode range and so on, to make the function more adaptable.