ASPにはurlencodeのみがありますが、urldecodeの問題の解決策はありませんか？

この記事では、主にASPのUrlencodeの問題の解決策を紹介します

ASPにパラメーターを渡すときに、非常に有用なシステムfunction serverがありますまた、それを使用した後、私はそれを想像したようにこのデコード機能を提供していないことが判明したことがわかりました。何をすべきか、自分でやる。

Urlencodeの原理は、実際には非常に単純です。特殊文字を16進コード値に変換するため、デコード機能は16進のASCを対応する文字に変換する必要があります。

1. functionurldecode（ensst） 'urlデコード関数
2. dimdestr
3. dimc、i、v
4. 破壊=
5. fori = 1tolen（ensst）
6. c = mid（ensst、i、1）
7. ifc =％then
8. v = eval（＆h+mid（ensst、i+1,2））
9. IFV <128then
10. 破壊=破壊＆chr（v）
11. i = i+2
12. それ以外
13. ifisvalidhex（mid（ensst、i、3））その後
14. ifisvalidhex（mid（ensst、i+3,3））
15. v = eval（＆h+mid（ensst、i+1,2）+mid（ensst、i+4,2））
16. 破壊=破壊＆chr（v）
17. i = i+5
18. それ以外
19. v = eval（＆h+mid（ensst、i+1,2）+cstr（hex（asc（mid（ensst、i+3,1）））））））））））
20. 破壊=破壊＆chr（v）
21. i = i+3
22. endif
23. それ以外
24. 破壊=破壊＆c
25. endif
26. endif
27. それ以外
28. ifc =+then
29. 破壊=破壊＆
30. それ以外
31. 破壊=破壊＆c
32. endif
33. endif
34. 次
35. urldecode =破壊
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 = mid（str、2,1）
44. ifnot（（（c> = 0）および（c <= 9））または（（c> = a）および（c <= z）））thinisvalidhex = false：exitFunction
45. c = mid（str、3,1）
46. ifnot（（（c> = 0）および（c <= 9））または（（c> = a）および（c <= z）））thinisvalidhex = false：exitFunction
47. エンド機能

テスト後にGB312形式でASPを使用することに問題はありません。