The code copy is as follows:
'//Convert Chinese to unicode
functionURLEncoding(vstrIn)
dimi
dimstrReturn, ThisChr, innerCode, Hight8, Low8
strReturn=""
fori=1toLen(vstrIn)
ThisChr=Mid(vStrIn,i,1)
IfAbs(Asc(ThisChr))<&HFFthen
strReturn=strReturn&ThisChr
else
innerCode=Asc(ThisChr)
IfinnerCode<0then
innerCode=innerCode+&H10000
endIf
Hight8=(innerCodeand&HFF00)/&HFF
Low8=innerCodeand&HFF
strReturn=strReturn&"%"&Hex(Hight8)&"%"&Hex(Low8)
endIf
next
URLEncoding=strReturn
endfunction
'//Convert unicode to normal text
functionbytes2BSTR(vIn)
dimi
dimstrReturn,ThisCharCode, nextCharCode
strReturn=""
fori=1toLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80then
strReturn=strReturn&Chr(ThisCharCode)
else
nextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(nextCharCode))
i=i+1
endIf
next