代码如下:
'//转换中文为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))  &HFF then 
            strReturn = strReturn & ThisChr 
        else 
            innerCode = Asc(ThisChr) 
            If innerCode  0 then 
                innerCode = innerCode + &H10000 
            end If 
            Hight8...[ 查看全文 ]