Existe apenas urlencode no ASP, mas nenhuma solução para o problema do urldecode?

Este artigo apresenta principalmente a solução para o problema de apenas Urlencode no ASP e sem urldecode?

Existe um servidor de função do sistema muito útil Também foi fornecido, mas depois de usá -lo, descobri que o programa relatou um erro. O que fazer, faça você mesmo.

O princípio do URLENCODE é realmente muito simples.

1. Função de decodificação da URL da FunctUrlDecode (ENSTR)
2. DimDest
3. dimc, i, v
4. destro =
5. fori = 1Tolen (Enstr)
6. C = MID (ENSTR, I, 1)
7. ifc =%então
8. V = EVALL (& H+MID (ENSTR, I+1,2))
9. ifv <128then
10. Dest = destro & Chr (V)
11. i = i+2
12. outro
13. ifisValidhex (MID (Enstr, i, 3)) então
14. ifisValidhex (MID (ENSTR, I+3,3)) então
15. V = EVALL (& H+MID (ENSTR, I+1,2)+MID (ENSTR, I+4,2))
16. Dest = destro & Chr (V)
17. i = i+5
18. outro
19. V = EVALL (& H+MID (ENSTR, I+1,2)+CSTR (HEX (ASC (MID (ENSTR, I+3,1)))))))))))))))))))))))))
20. Dest = destro & Chr (V)
21. i = i+3
22. endif
23. outro
24. desto = destro & c
25. endif
26. endif
27. outro
28. ifc =+então
29. desto = destro &
30. outro
31. desto = destro & c
32. endif
33. endif
34. próximo
35. Urldecode = destro
36. Função final
38. FunctionisValidhex (STR)
39. isvalidhex = true
40. str = ucase (str)
41. iflen (str) <> 3ThenisValidhex = false: exitfunção
42. ifleft (str, 1) <>%thenisvalidhex = false: exitfunção
43. C = MID (STR, 2,1)
44. ifnot (((c> = 0) e (c <= 9)) ou ((c> = a) e (c <= z))) thenisvalidhex = false: exitfunção
45. C = MID (STR, 3,1)
46. ifnot (((c> = 0) e (c <= 9)) ou ((c> = a) e (c <= z))) thenisvalidhex = false: exitfunção
47. Função final

Não há problema em usar o formato ASP no formato GB312 após o teste.