<%
'Coding.inc.asp
'Semua Hak Dilindungi Undang- undang,
Encode Fungsi [email protected] (Str)
Hitungan Redup, Pos, Ch, Kode
Redupkan ManisCh
'SweetCh中表示不需要进行编码的字符
SweetCh = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz_{}[]()"
Kode = ""
Hitung = Len(Str)
Pos = 1
Lakukan Sementara Pos<=Hitung
Ch = Tengah(Str, Pos, 1)
Kode = Asc(Ch)
Jika Kode>=0 Dan Kode<256 Maka '汉字不予处理
Jika Ch<>"%" Lalu
Jika InStr(SweetCh, Ch)=0 Maka
Ch = "%" & Kanan("0" & Hex(Kode), 2)
Akhiri Jika
Kalau tidak
Ch = "%25"
Akhiri Jika
Akhiri Jika
Enkode = Enkode & Bab
Pos = Pos + 1
Lingkaran
Fungsi Akhir
(Str)
Hitungan Redup, Pos, Ch, Kode
Dekode = ""
Hitung = Len(Str)
Pos = 1
Lakukan Sementara Pos<=Hitung
Ch = Tengah(Str, Pos, 1)
Jika Ch = "%" Maka
Jika Pos+2<=Hitung Lalu
Ch = Chr((InStr("0123456789ABCDEF", UCase(Mid(Str, Pos+1, 1)))-1) * 16 + InStr("0123456789ABCDEF",UCase(Mid(Str, Pos+2, 1)) ) - 1)
Kalau tidak
'编码串不正确
Ch = ""
Akhiri Jika
Pos = Pos + 2
Akhiri Jika
Dekode = Dekode & Bab
Pos = Pos + 1
Lingkaran
Fungsi Akhir
%>