加密与解密函数
<%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%>