لا يوجد سوى urlencode في ASP ، ولكن لا يوجد حل لمشكلة urldecode؟

تقدم هذه المقالة حلًا لمشكلة URLENCODE فقط في ASP وبدون urldecode؟

يوجد خادم نظام مفيد للغاية عند تمرير المعلمات في ASP تم توفيره أيضًا ، ولكن بعد استخدامه ، وجدت أن البرنامج أبلغ عن خطأ. ماذا تفعل ، افعلها بنفسك.

مبدأ urlencode بسيط للغاية.

1. وظيفة DOUSTIONURLDECODE (ENSTR) "فك ​​تشفير URL"
2. خافت
3. DIMC ، أنا ، الخامس
4. تدمير =
5. fori = 1tolen (ENSTR)
6. ج = منتصف (Enstr ، i ، 1)
7. IFC = ٪ ثم
8. v = eval (& h+mid (enstr ، i+1،2))
9. IFV <128then
10. DestR = DestR & CHR (V)
11. i = i+2
12. آخر
13. ifisvalidhex (منتصف (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. DestR = 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. DestR = DestR & CHR (V)
21. i = i+3
22. Endif
23. آخر
24. DestR = DestR & c
25. Endif
26. Endif
27. آخر
28. IFC =+ثم
29. تدمير = تدمير &
30. آخر
31. DestR = DestR & c
32. Endif
33. Endif
34. التالي
35. urldecode = DestR
36. الوظيفية
38. FunctionIsvalidhex (Str)
39. isValidHex = صحيح
40. str = ucase (str)
41. iflen (str) <> 3thenisvalidhex = false: exitfunction
42. ifleft (str ، 1) <> ٪ thenisvalidhex = false: exitfunction
43. ج = منتصف (str ، 2،1)
44. IFNOT (((c> = 0) و (c <= 9)) أو ((c> = a) و (c <= z)) thenisvalidhex = false: exitfunction
45. ج = منتصف (str ، 3،1)
46. IFNOT (((c> = 0) و (c <= 9)) أو ((c> = a) و (c <= z)) thenisvalidhex = false: exitfunction
47. الوظيفية

لا توجد مشكلة في استخدام ASP بتنسيق GB312 بعد الاختبار.