在线人数代码

关键词:在线人数,在线人数代码,asp代码,asp在线人数



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 t<application("zxsj"&i) then

k=k+1

else

if k>0 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

response.Write i