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