ASP에는 UrlenCode 만 있지만 UrlDecode 문제에 대한 해결책이 없습니까?

이 기사는 주로 ASP에서 Urlencode의 문제에 대한 솔루션을 소개하고 필요하면 필요하다면 참조하십시오

ASP에서 매개 변수를 전달할 때 매우 유용한 시스템 기능 서버가 있습니다 또한 사용한 후 프로그램이 상상 했듯이이 디코딩 기능을 제공하지 않았다는 것이 밝혀졌습니다. 해야 할 일, 직접하십시오.

Urlencode의 원리는 실제로 특수 문자를 16 진 ASC 코드 값으로 변환하는 것이 매우 간단하므로 해독 기능은 16 진수를 해당 문자로 다시 변환해야합니다.

1. functionurldecode (enstr) 'URL 디코딩 함수
2. DIMDEST
3. DIMC, I, v
4. Dest =
5. fori = 1tolen (enstr)
6. C = MID (Enstr, I, 1)
7. IFC =%
8. V = 평가 (& H+MID (ENSTR, I+1,2))
9. ifv <128then
10. Dest = Dest & Chr (V)
11. i = i+2
12. 또 다른
13. ifisvalidHex (MID (Enstr, I, 3))
14. ifisvalidHex (MID (Enstr, I+3,3))
15. V = 평가 (& H+MID (ENSTR, I+1,2)+MID (ENSTR, I+4,2))
16. Dest = Dest & Chr (V)
17. i = i+5
18. 또 다른
19. V = Eval (& H+MID (ENSTR, I+1,2)+CSTR (HEX (ASC (ASC (MID (MID (ENSTR, I+3,1))))))))))))))
20. Dest = Dest & Chr (V)
21. i = i+3
22. endif
23. 또 다른
24. Desp = Dest & c
25. endif
26. endif
27. 또 다른
28. IFC =+그런 다음
29. 파괴 = 파괴 &
30. 또 다른
31. Desp = Dest & c
32. endif
33. endif
34. 다음
35. urldecode = desp
36. 최종 기능 장애
38. functionisValidHex (str)
39. isvalidHex = true
40. str = ucase (str)
41. iflen (str) <> 3thenisvalidHex = false : exitfunction
42. ifleft (str, 1) <>%whenisvalidHex = false : exitfunction
43. C = MID (STR, 2,1)
44. ifnot (((c> = 0) 및 (c <= 9)) 또는 ((c> = a) 및 (c <= z)))) then isvalidhex = false : exitfunction
45. C = MID (STR, 3,1)
46. ifnot (((c> = 0) 및 (c <= 9)) 또는 ((c> = a) 및 (c <= z)))) then isvalidhex = false : exitfunction
47. 최종 기능 장애

테스트 후 GB312 형식에서 ASP를 사용하는 데 아무런 문제가 없습니다.