ASP中文URL解码URLDecode函数实现

上善若水

大家都知道，在asp中，我们一般都通过 Server.UrlEncode 进行url的编码，这样使得一些特殊的字符能够通过链接正常访问，但当我们把这个编码后的url字符存入数据库后，有些时候需要程序读取这个url进行处理时，就需要对其进行url解码，在php中这些功能很完善，但asp中，我们是找不到Server.UrlDecode函数的，鉴于这个问题，我们就要自己写一个解码函数了，以下是一段支持中文URLDecode的Asp函数，可以基于这个函数将其写成一个类，呵呵，这里就不细说了。

1. <%
2. function URLDecode(strIn)
3. URLDecode = ""
4. Dim sl: sl = 1
5. Dim tl: tl = 1
6. Dim key: key = "%"
7. Dim kl: kl = Len(key)
9. sl = InStr(sl, strIn, key, 1)
10. Do While sl>0
11. If (tl=1 And sl<>1) Or tl<sl Then
12. URLDecode = URLDecode & Mid(strIn, tl, sl-tl)
13. End If
15. Dim hh, hi, hl
16. Dim a
17. Select Case UCase(Mid(strIn, sl+kl, 1))
18. Case "U": 'Unicode URLEncode
19. a = Mid(strIn, sl+kl+1, 4)
20. URLDecode = URLDecode & ChrW("&H" & a)
21. sl = sl + 6
23. Case "E": 'UTF-8 URLEncode
24. hh = Mid(strIn, sl+kl, 2)
25. a = Int("&H" & hh) 'ascii码
26. If Abs(a)<128 Then
27. sl = sl + 3
28. URLDecode = URLDecode & Chr(a)
29. Else
30. hi = Mid(strIn, sl+3+kl, 2)
31. hl = Mid(strIn, sl+6+kl, 2)
32. a = ("&H" & hh And &H0F) * 2 ^12 Or ("&H" & hi And &H3F) * 2 ^ 6 Or ("&H" & hl And &H3F)
33. If a<0 Then a = a + 65536
34. URLDecode = URLDecode & ChrW(a)
35. sl = sl + 9
36. End If
37. Case Else: 'Asc URLEncode
38. hh = Mid(strIn, sl+kl, 2) '高位
39. a = Int("&H" & hh) 'ascii码
40. If Abs(a)<128 Then
41. sl = sl + 3
42. Else
43. hi = Mid(strIn, sl+3+kl, 2) '低位
44. a = Int("&H" & hh & hi) '非ascii码
45. sl = sl + 6
46. End If
47. URLDecode = URLDecode & Chr(a)
48. End Select
50. tl = sl
51. sl = InStr(sl, strIn, key, 1)
52. Loop
54. URLDecode = URLDecode & Mid(strIn, tl)
55. End function
56. %>

复制代码

转载自：https://www.awaimai.com/268.html

来源：https://blog.csdn.net/chlung/article/details/82756578
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！