-
'การเข้ารหัส.inc.asp
'สงวนลิขสิทธิ์ [email protected]
เข้ารหัสฟังก์ชัน (Str)
จำนวนติ่ม, Pos, Ch, รหัส
ดิม สวีตช
'SweetCh中表示不需要进行编码的字符
SweetCh = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz_{}[]()"
เข้ารหัส = ""
จำนวน = Len(Str)
ตำแหน่ง = 1
ทำในขณะที่ Pos<=นับ
Ch = กลาง(Str, Pos, 1)
รหัส = Asc(Ch)
ถ้า Code>=0 และ Code<256 แล้วก็ '汉字不予处理
ถ้า Ch<>"%" แล้ว
ถ้า InStr(SweetCh, Ch)=0 แล้ว
Ch = "%" & ขวา ("0" & เลขฐานสิบหก (รหัส), 2)
สิ้นสุดถ้า
อื่น
ช = "%25"
สิ้นสุดถ้า
สิ้นสุดถ้า
เข้ารหัส = เข้ารหัส & Ch
โพส = โพส + 1
วนซ้ำ
ฟังก์ชันสิ้นสุด
ถอดรหัสฟังก์ชัน(Str)
จำนวนติ่ม, Pos, Ch, รหัส
ถอดรหัส = ""
จำนวน = Len(Str)
ตำแหน่ง = 1
ทำในขณะที่ Pos<=นับ
Ch = กลาง(Str, Pos, 1)
ถ้า Ch = "%" แล้ว
ถ้า Pos+2<=นับแล้ว
Ch = Chr((InStr("0123456789ABCDEF", UCase(กลาง(Str, Pos+1, 1)))-1) * 16 + InStr("0123456789ABCDEF",UCase(กลาง(Str, Pos+2, 1)) ) - 1)
อื่น
'编码串不正确
ช = ""
สิ้นสุดถ้า
ตำแหน่ง = ตำแหน่ง + 2
สิ้นสุดถ้า
ถอดรหัส = ถอดรหัส & Ch
โพส = โพส + 1
วนซ้ำ
ฟังก์ชันสิ้นสุด
-