¿Solo hay URLEncode en ASP, pero no hay solución al problema de UrlDecode?

Este artículo presenta principalmente la solución al problema de Urlencode en ASP y no Urldecode.

Hay una función de sistema muy útil. También se proporcionó, pero después de usarlo, descubrí que el programa informó un error. Qué hacer, hazlo tú mismo.

El principio de Urlencode es realmente muy simple.

1. Función de decodificación de URL de FunctionurDecode (EnStr) '
2. dimdestr
3. dimc, i, v
4. destrucción
5. Fori = 1Tolen (Ensttr)
6. C = Mid (Enstr, I, 1)
7. ifc =%entonces
8. v = eval (& h+mid (Enstr, i+1,2))
9. IFV <128THEN
10. Destr = Destr & Chr (V)
11. i = i+2
12. demás
13. ifisvalidhex (Mid (Enstr, i, 3)) entonces
14. ifisvalidhex (Mid (Enstr, i+3,3)) entonces
15. V = Eval (& H+Mid (Enstr, i+1,2)+Mid (Enstr, i+4,2)))
16. Destr = Destr & Chr (V)
17. i = i+5
18. demás
19. v = eval (& h+mid (Enstr, i+1,2)+cstr (hex (ASC (Mid (Enstr, i+3,1))))))))))
20. Destr = Destr & Chr (V)
21. i = i+3
22. endif
23. demás
24. Destr = Destr & c
25. endif
26. endif
27. demás
28. ifc =+entonces
29. DestR = Destr &
30. demás
31. Destr = Destr & c
32. endif
33. endif
34. próximo
35. Urldecode = destruye
36. Función final
38. FunctionSValidHex (STR)
39. isValidhex = True
40. str = ucase (str)
41. iflen (str) <> 3thenisValidhex = false: ExitFunction
42. ifleft (str, 1) <>%thelisValidhex = false: ExitFunction
43. C = Mid (STR, 2,1)
44. ifnot ((((c> = 0) y (c <= 9)) o ((c> = a) y (c <= z))) entoncesisValidhex = falso: ExitFunction
45. C = Mid (STR, 3,1)
46. ifnot ((((c> = 0) y (c <= 9)) o ((c> = a) y (c <= z))) entoncesisValidhex = falso: ExitFunction
47. Función final

No hay problema con el uso de ASP en formato GB312 después de la prueba.