<%functiondecrypt(dcode)

dimtexts

dimi

fori=1tolen(dcode)

texts=texts&chr(asc(mid(dcode,i,2))-i)

next

decrypt=texts

endfunction

functionencrypt(ecode)

Dimtexts

dimi

fori=1tolen(ecode)

texts=texts&chr(asc(mid(ecode,i,2))+i)

next

encrypt=texts

endfunction

%>

<%=decrypt(123123)%>

<ahref="11111.asp?id=<%=decrypt("sdfasdfs")%>">111111111</a>

<%abc=encrypt(request("id"))%><%=abc%>

下一篇：支持权重的无组件ASP广告显示代码