URLEncode-ähnliche Codierungsfunktion und entsprechende Decodierungsfunktion in ASP implementiert

<%
'Coding.inc.asp
'Alle Rechte vorbehalten, [email protected]

Function Encode(Str)
Dim Count, Pos, Ch, Code
Dim SweetCh

„SweetCh中表示不需要进行编码的字符
SweetCh = „ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz_{}[]()“
Kodieren = ""

Anzahl = Len(Str)
Pos = 1
Machen Sie While Pos<=Count
Ch = Mid(Str, Pos, 1)

Code = Asc(Ch)
Wenn Code>=0 und Code<256, dann '汉字不予处理
Wenn Ch<>"%" Dann
Wenn InStr(SweetCh, Ch)=0, dann
Ch = „%“ & Right(“0“ & Hex(Code), 2)
Ende wenn
Anders
Ch = „%25“
Ende wenn
Ende wenn

Encode = Encode & Ch
Pos = Pos + 1
Schleife
Endfunktion

Funktion Decode(Str)
Dim Count, Pos, Ch, Code

Dekodieren = ""

Anzahl = Len(Str)
Pos = 1
Machen Sie While Pos<=Count
Ch = Mid(Str, Pos, 1)
Wenn Ch="%" Dann
Wenn Pos+2<=Anzahl dann
Ch = Chr((InStr("0123456789ABCDEF", UCase(Mid(Str, Pos+1, 1)))-1) * 16 + InStr("0123456789ABCDEF",UCase(Mid(Str, Pos+2, 1)) ) - 1)
Anders
'编码串不正确
Ch = ""
Ende wenn
Pos = Pos + 2
Ende wenn
Dekodieren = Dekodieren & Ch
Pos = Pos + 1
Schleife
Funktion beenden
%>