Hanya ada urlencode di ASP, tetapi tidak ada solusi untuk masalah urldecode?

Artikel ini terutama memperkenalkan solusi untuk masalah hanya urlencode di ASP dan tidak ada urldecode?

Ada server fungsi sistem yang sangat berguna.urlencode saat melewati parameter dalam ASP juga disediakan, tetapi setelah menggunakannya, saya menemukan bahwa program melaporkan kesalahan. Apa yang harus dilakukan, lakukan sendiri.

Prinsip urlencode sebenarnya sangat sederhana.

1. FunctionUrlDecode (EnRTR) 'Fungsi Dekode URL
2. Dimdestr
3. DIMC, I, v
4. Destr =
5. fori = 1tolen (enstr)
6. c = mid (enstr, i, 1)
7. ifc =%lalu
8. v = eval (& h+mid (enstr, i+1,2)))
9. IFV <128then
10. Destr = Destr & Chr (V)
11. i = i+2
12. kalau tidak
13. ifisvalidhex (mid (enstr, i, 3)) lalu
14. ifisvalidhex (mid (enstr, i+3,3)) lalu
15. v = eval (& h+mid (enstr, i+1,2)+mid (enstr, i+4,2)))
16. Destr = Destr & Chr (V)
17. i = i+5
18. kalau tidak
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. kalau tidak
24. Destr = Destr & c
25. endif
26. endif
27. kalau tidak
28. ifc =+lalu
29. Destr = Destr &
30. kalau tidak
31. Destr = Destr & c
32. endif
33. endif
34. Berikutnya
35. Urldecode = destr
36. fungsi endfungsi
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 = mid (str, 2,1)
44. ifnot (((c> = 0) dan (c <= 9)) atau ((c> = a) dan (c <= z))) thenisvalidhex = false: ExitFunction
45. c = mid (str, 3,1)
46. ifnot (((c> = 0) dan (c <= 9)) atau ((c> = a) dan (c <= z))) thenisvalidhex = false: ExitFunction
47. fungsi endfungsi

Tidak ada masalah dengan menggunakan ASP dalam format GB312 setelah pengujian.