Il n'y a que URLencode dans ASP, mais aucune solution au problème URLDECODE?

Cet article présente principalement la solution au problème de UrLencode unique

Il existe un serveur de fonctions système très utile. a également été fourni, mais après l'avoir utilisé, j'ai constaté que le programme a signalé une erreur. Que faire, faites-le vous-même.

Le principe d'Urlencode est en fait très simple.

1. Fonction de décodage FURECTURLDECODE (ENSTR)
2. divorce
3. dimc, i, v
4. destr =
5. fori = 1Tolen (ENSTR)
6. c = mid (Entr, i, 1)
7. ifc =% alors
8. v = eval (& h + mid (Entr, i + 1,2))
9. ifv <128Then
10. destr = destr & chr (v)
11. i = i + 2
12. autre
13. ifisvalidhex (mid (entr, i, 3)) puis
14. ifisvalidhex (mid (Entr, i + 3,3)) puis
15. v = evale
16. destr = destr & chr (v)
17. i = i + 5
18. autre
19. v = eval (& h + mid (Entr, i + 1,2) + cstr (hex (asc (mid (Entr, i + 3,1))))))))))))
20. destr = destr & chr (v)
21. i = i + 3
22. endire
23. autre
24. destr = destr & c
25. endire
26. endire
27. autre
28. ifc = + alors
29. destr = destr &
30. autre
31. destr = destr & c
32. endire
33. endire
34. suivant
35. UrldeCode = destr
36. finition de fin
38. fonctionisvalidhex (str)
39. isValidhex = true
40. str = ucase (str)
41. iflen (str) <> 3ThenisValidhex = false: exitfunction
42. ifleft (str, 1) <>% thesvalidhex = false: exitfunction
43. c = mid (str, 2,1)
44. ifnot (((c> = 0) et (c <= 9)) ou ((c> = a) et (c <= z))) thesvalidhex = false: exitfunction
45. c = mid (str, 3,1)
46. ifnot (((c> = 0) et (c <= 9)) ou ((c> = a) et (c <= z))) thesvalidhex = false: exitfunction
47. finition de fin

Il n'y a aucun problème à utiliser ASP au format GB312 après le test.