dim bstr,loc_e,strTemp
utf999=""
Utf2GB=""
bstr=""
loc_e=0
if (strUtf="") then
Utf2GB=""
exit function
end if
loc_e=instr(1,strUtf,"%E")
if loc_e=0 then
utf2gb=replace(strutf,"+"," ")
utf2gb=replace(strutf,"%20"," ")
utf2gb=replace(strutf,"%2C",",")
utf2gb=replace(strutf,"%2E",".")
utf2gb=replace(strutf,"%3F","?")
utf2gb=replace(strutf,"%21","!")
utf2gb=replace(strutf,"%3A",":")
utf2gb=replace(strutf,"%3B",";")
utf2gb=replace(strutf,"%2A","*")
utf2gb=replace(strutf,"%28","(")
utf2gb=replace(strutf,"%29",")")
utf2gb=replace(strutf,"%40","@")
utf2gb=replace(strutf,"%25","%")
utf2gb=replace(strutf,"%C2","$")
utf2gb=replace(strutf,"%3D","=")
exit function
end if
'找到一个%E,可以进而循环提取
loc_last_e=1
do while loc_e>0
strtemp=strtemp & mid(strutf,loc_last_e,loc_e-loc_last_e)
utf999=mid(strutf,loc_e,9)
strtemp= strtemp & utf22gb(utf999)
loc_last_e=loc_e+9
loc_e=instr(loc_last_e,strUtf,"%E")
loop
utf2gb= strtemp & mid(strutf,loc_last_e,len(strutf)-loc_last_e+1)
utf2gb=replace(utf2gb,"%20"," ")
End Function