<%
'Codage.inc.asp
'Tous droits réservés, [email protected]
Fonction Encode(Str)
Nombre de Dim, Pos, Ch, Code
Dim Sweet Ch
'SweetCh中表示不需要进行编码的字符
SweetCh = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz_{}[]()"
Encoder = ""
Nombre = Len(Str)
Pos = 1
Faire pendant que Pos <= Count
Ch = Milieu (Str, Pos, 1)
Code = Asc(Ch)
Si Code>=0 Et Code<256 Alors '汉字不予处理
Si Ch<>"%" Alors
Si InStr(SweetCh, Ch)=0 Alors
Ch = "%" & Droite ("0" & Hex(Code), 2)
Fin si
Autre
Ch = "%25"
Fin si
Fin si
Encoder = Encoder & Ch
Pos = Pos + 1
Boucle
Fin de la fonction
Fonction Décoder (Str)
Nombre de Dim, Pos, Ch, Code
Décoder = ""
Nombre = Len(Str)
Pos = 1
Faire pendant que Pos <= Count
Ch = Milieu (Str, Pos, 1)
Si Ch="%" Alors
Si Pos+2<=Compte Alors
Ch = Chr((InStr("0123456789ABCDEF", UCase(Mid(Str, Pos+1, 1)))-1) * 16 + InStr("0123456789ABCDEF",UCase(Mid(Str, Pos+2, 1)) ) - 1)
Autre
'编码串不正确
Ch = ""
Fin si
Pos = Pos + 2
Fin si
Décoder = Décoder & Ch
Pos = Pos + 1
Boucle
Fonction de fin
%>