Cómo utilizar VB para implementar la codificación y decodificación de URL
function?URLEncode(nstr)
For?i?=?1?To?Len(nstr)nmid=Mid(nstr,?i,?1)nasc=Asc(nmid)if?nasc?lt ;?0?Thennhex= right("000"?&?Hex(nasc),4)URLEncode?=?URLEncode?&?" "?"?&?Left(nhex,?2)?&? ""?& ?Derecha(nhex,?2) elseif? " Elseif(nasc?gt;=?48?Y?nasc?lt;=?57)?O(nasc?gt;=?65?Y?nasc ?lt;=? 90)?O(nasc?gt;=?97?Y?nasc?lt;=?122)?Entonces URLEncode?=?URLEncode?amp;?nmid De lo contrario URLEncode?=?URLEncode??amp ;?right(" 0"? amp;?Hex(nasc),2) Finalizar si
Siguiente
finalizar?