<% t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time())) k=0 i=1 y=0 Do While application("zxip"&i)<>""  if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") then   application("zxsj"&i)=t   y=1  end if  if t-application("zxsj"&i)>9 or t0 then    application.lock    application("zxip"&i-k)=application("zxip"&i)    application("zxsj"&i-k)=application("zxsj"&i)    application.unlock   end if  end if  if k>0 then   application.lock   application("zxip"&i)=""   application.unlock  end if  i=i+1 loop if y=0 then  application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")  application("zxsj"&i)=t else  i=i-1 end if%>