ASP中漢字和Unicode的相互轉化

網上有很多類似的文章，但多數是一大堆代碼。其實ASP有內建的處理Unicode的函數，很簡單的幾句代碼就可以完成轉化：
推薦指數：★★★★☆

'將漢字轉化為unicode （不支援第二平面漢字，但幾乎極少有人能夠使用到這些漢字）
Function getUnicode(hanzi)
Dim str
str = Left(hanzi,1) '當然這裡需要判斷hanzi是一個字元，如果需要多個字元請使用迴圈
if Len(str)>0 then
   getUnicode = Hex(AscW(str))
else
   getUnicode = ""
end if
End Function

'將unicode轉化為漢字
Funciton getChr(unicode) ‘這裡的參數是上個函數得到的格式，如 4E00
if Len(unicode)>0 then  
    getChr = unescape("%u"&unicode)
else
    getChr = ""
end if
End Function

當然你還可以增加一些控制，比如對Unicode範圍的檢查等等，以使得函數適應性更好。