В ASP есть только Urlencode, но нет решения проблемы UrldEcode?

Эта статья в основном вводит решение проблемы только Urlencode в ASP и No Urldecode?

Существует очень полезный системный сервер. При прохождении параметров в ASP Также был предоставлен, но после его использования я обнаружил, что программа сообщила об ошибке. Что делать, делай это самостоятельно.

Принцип Urlencode на самом деле очень прост.

1. Функция URL -функция FunctionUrlDecode (ENSTR) '
2. Dimdestr
3. Dimc, I, v
4. destry =
5. fori = 1tolen (enstr)
6. c = середина (enstr, i, 1)
7. ifc =%then
8. v = eval (& h+mid (enstr, i+1,2))
9. IFV <128then
10. dests = destr & chr (v)
11. i = i+2
12. еще
13. ifisvalidHex (Mid (enstr, i, 3)), затем
14. ifisvalidHex (mid (enstr, i+3,3))
15. v = eval (& h+mid (enstr, i+1,2)+mid (enstr, i+4,2))
16. dests = destr & chr (v)
17. i = i+5
18. еще
19. v = eval (& h+mid (enstr, i+1,2)+cstr (hex (asc (mid (enstr, i+3,1)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
20. dests = destr & chr (v)
21. i = i+3
22. эндиф
23. еще
24. Dests = Dests & c
25. эндиф
26. эндиф
27. еще
28. ifc =+then
29. Dests = Dests &
30. еще
31. Dests = Dests & c
32. эндиф
33. эндиф
34. следующий
35. Urldecode = destr
36. конечная функция
38. functionIsValidHex (str)
39. isvalidHex = true
40. str = ucase (str)
41. iflen (str) <> 3thenisvalidhex = false: exitfunction
42. ifleft (str, 1) <>%thenisvalidhex = false: exitfunction
43. c = середина (str, 2,1)
44. ifnot (((c> = 0) и (c <= 9)) или ((c> = a) и (c <= z))) thenisvalidhex = false: exitfunction
45. c = середина (str, 3,1)
46. ifnot (((c> = 0) и (c <= 9)) или ((c> = a) и (c <= z))) thenisvalidhex = false: exitfunction
47. конечная функция

Нет проблем с использованием ASP в формате GB312 после тестирования.