ASP网址的编码和解码

ASP网址的编码和解码

1.         Public Function [URLEncode](ByVal Str,ByVal OldCode,ByVal NewCode)
   
2.                 Dim TempStr
   
3.                 TempStr = ""
   
4.                 If NewCode <> OldCode Then
   
5.                         Session.CodePage = NewCode
   
6.                         TempStr = Server.UrlEncode(Str)
   
7.                         Session.CodePage = OldCode
   
8.                 Else
   
9.                         TempStr = Server.UrlEncode(Str)
   
10.                 End If
    
11.                 [URLEncode] = TempStr
    
12.         End Function
    
13. 
    
14.         Public Function [URLDecode](ByVal Str)
    
15.                 Dim Start,Final,Length,Char,I,BUtf8,Pass
    
16.                 Dim LeftStr,RightStr,FinalStr
    
17.                 Dim B0,B1,Bx,BLength,Position,U,Utf8
    
18. 
    
19.                 B0 = Array(192,224,240,248,252,254)
    
20.                 Str = Replace(Str,"+"," ")
    
21.                 Pass = 0
    
22.                 Utf8 = -1
    
23. 
    
24.                 Length = Len(Str) : Start = InStr(Str,"%") : Final = InStrRev(Str,"%")
    
25.                 If Start = 0 Or Length < 3 Then [URLDecode] = Str : Exit Function
    
26.                 LeftStr = Left(Str,Start - 1) : RightStr = Right(Str,Length - 2 - Final)
    
27. 
    
28.                 For I = Start To Final
    
29.                         Char = Mid(Str,I,1)
    
30.                         If Char = "%" Then
    
31.                                 Bx = URLDecode_Hex(Mid(Str,I + 1,2))
    
32.                                 If Bx > 31 And Bx < 128 Then
    
33.                                         I = I + 2
    
34.                                         FinalStr = FinalStr & ChrW(Bx)
    
35.                                 ElseIf Bx > 127 Then
    
36.                                         I = I + 2
    
37.                                         If Utf8 < 0 Then
    
38.                                                 BUtf8 = 1 : BLength = -1 : B1 = Bx
    
39.                                                 For Position = 4 To 0 Step -1
    
40.                                                         If B1 >= B0(Position) And B1 < B0(Position + 1) Then
    
41.                                                                 BLength = Position
    
42.                                                                 Exit For
    
43.                                                         End If
    
44.                                                 Next
    
45.                                                 If BLength > -1 Then
    
46.                                                         For Position = 0 To BLength
    
47.                                                                 B1 = URLDecode_Hex(Mid(Str,I + Position * 3 + 2,2))
    
48.                                                                 If B1 < 128 Or B1 > 191 Then BUtf8 = 0 : Exit For
    
49.                                                         Next
    
50.                                                 Else
    
51.                                                         BUtf8 = 0
    
52.                                                 End If
    
53.                                                 If BUtf8 = 1 And BLength = 0 Then BUtf8 = -2
    
54.                                                 If BUtf8 > -1 And Utf8 = -2 Then I = Start - 1 : FinalStr = "" : Pass = 1
    
55.                                                 Utf8 = BUtf8
    
56.                                         End If
    
57.                                         If Pass = 0 Then
    
58.                                                 If Utf8 = 1 Then
    
59.                                                         B1 = Bx : U = 0 : BLength = -1
    
60.                                                         For Position = 4 To 0 Step -1
    
61.                                                                 If B1 >= B0(Position) And B1 < B0(Position + 1) Then
    
62.                                                                         BLength = Position
    
63.                                                                         B1 = (B1 xOr B0(Position)) * 64 ^ (Position + 1)
    
64.                                                                         Exit For
    
65.                                                                 End If
    
66.                                                         Next
    
67.                                                         If BLength > -1 Then
    
68.                                                                 For Position = 0 To BLength
    
69.                                                                         Bx = URLDecode_Hex(Mid(Str,I + 2,2)) : I = I + 3
    
70.                                                                         If Bx < 128 Or Bx > 191 Then U = 0 : Exit For
    
71.                                                                         U = U + (Bx And 63) * 64 ^ (BLength - Position)
    
72.                                                                 Next
    
73.                                                                 If U > 0 Then FinalStr = FinalStr & ChrW(B1 + U)
    
74.                                                         End If
    
75.                                                 Else
    
76.                                                         B1 = Bx * &H100 : U = 0
    
77.                                                         Bx = URLDecode_Hex(Mid(Str,I + 2,2))
    
78.                                                         If Bx > 0 Then
    
79.                                                                 U = B1 + Bx
    
80.                                                                 I = I + 3
    
81.                                                         Else
    
82.                                                                 If Left(Str,1) = "%" Then
    
83.                                                                         U = B1 + Asc(Mid(Str,I + 3,1))
    
84.                                                                         I = I + 2
    
85.                                                                 Else
    
86.                                                                         U = B1 + Asc(Mid(Str,I + 1,1))
    
87.                                                                         I = I + 1
    
88.                                                                 End If
    
89.                                                         End If
    
90.                                                         FinalStr = FinalStr & Chr(U)
    
91.                                                 End If
    
92.                                         Else
    
93.                                                 Pass = 0
    
94.                                         End If
    
95.                                 End If
    
96.                         Else
    
97.                                 FinalStr = FinalStr & Char
    
98.                         End If
    
99.                 Next
    
100.                 [URLDecode] = LeftStr & FinalStr & RightStr
     
101.         End Function

复制代码

楼主是个实在人！

一往情僧 发表于 2024-11-14 08:01
楼主是个实在人！