<% '**************************************** '程序设计:阿米 EMAIL:beyong2001@sina.com '2004年11月3日 '**************************************** function tEncode(t1,t2) if t1<>"" and t2<>"" then Encode="" for i=1 to len(t2) s1=Mid(t2,i,1) s1=asc(s1) j=i mod len(t1) if j=0 then j=len(t1) end if s2=mid(t1,j,1) s2=asc(s2) &
.: 
