<%
'編碼.inc.asp
'保留所有權利, [email protected]
函數編碼(Str)
暗淡計數、位置、通道、代碼
昏暗的甜蜜
'SweetCh中表示不需要進行編碼的字符
SweetCh = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz_{}[]()"
編碼=“”
計數 = 長度(長度)
位置 = 1
當 Pos<=Count 時執行
Ch = 中(Str, Pos, 1)
代碼 = 升序(Ch)
If Code>=0 And Code<256 then '漢字不予處理
如果 Ch<>"%" 那麼
如果 InStr(SweetCh, Ch)=0 則
Ch = "%" & Right("0" & Hex(代碼), 2)
結束如果
別的
頻道 =“%25”
結束如果
結束如果
編碼 = 編碼 & Ch
位置 = 位置 + 1
環形
結束函數
函數解碼(Str)
暗淡計數、位置、通道、代碼
解碼=“”
計數 = 長度(長度)
位置 = 1
當 Pos<=Count 時執行
Ch = 中(Str, Pos, 1)
如果 Ch="%" 那麼
如果 Pos+2<=計數 則
Ch = Chr((InStr("0123456789ABCDEF", UCase(Mid(Str, Pos+1, 1)))-1) * 16 + InStr("0123456789ABCDEF",UCase(Mid(Str, Pos+2, 1)) ) - 1)
別的
'編碼字串不正確
ch =“”
結束如果
位置 = 位置 + 2
結束如果
解碼 = 解碼 & Ch
位置 = 位置 + 1
環形
結束功能
%>