转换中文为unicode 转换unicode到正常文本

            [U]复制代码[/U] 代码如下:
'//转换中文为unicode
function URLEncoding(vstrIn)
    dim i
    dim strReturn,ThisChr,innerCode,Hight8,Low8
    strReturn = ""
    for i = 1 to Len(vstrIn)
        ThisChr = Mid(vStrIn,i,1)
        If Abs(Asc(ThisChr))