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 = (innerCode and &HFF00)/ &HFF Low8 = innerCode and &HFF strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) end If next
URLEncoding = strReturn
end function
'//轉換unicode到正常文本 function bytes2BSTR(vIn) dim i dim strReturn,ThisCharCode,nextCharCode
strReturn = "" for i = 1 to LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 then strReturn = strReturn & Chr(ThisCharCode) else nextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(nextCharCode)) i = i + 1 end If next bytes2BSTR = strReturn
