'
Convert double-byte characters as legitimate URL transport strings
FUNCTION
Geturlencodel (Byval URL)
DIM
I, Code geturlencodel
=
""
IF
TRIM
(URL)
=
""
THEN
Exit
FUNCTION
for
i
=
1
TO
Len
(URL) CODE
=
ASC
(
MID
(URL, I,
1
))
IF
code
<
0
THEN
code
=
code
65536
IF
code
>
255
THEN
Geturlencodel
=
Geturlencodel
&
"
%
"
&
Left
(
HEX
(Code),
2
)
&
"
%
"
&
Right
(
HEX
(Code),
2
)
Else
Geturlencodel
=
Geturlencodel
&
MID
(URL, I,
1
)
end
IF
NEXT
end
FUNCTION