加密与解密函数 %function decrypt(dcode) dim texts dim i for i=1 to len(dcode) texts=texts chr(asc(mid(dcode,i,2))-i) next decrypt=texts end function function encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts chr(asc(mid(ecode,i,2))+i) next encrypt = texts end function %>
%=decrypt(123123)%> a href="11111.asp?id=%=decrypt("sdfasdfs")%>">111111111/a> %abc=encrypt(request("id"))%>%=abc%>
