zx.asp

来自「健康哈师大恺撒奖互动了看见爱好思路委屈戊二醛 问起我iuoeyioquweqwi」· ASP 代码 · 共 35 行

<%dim t,k,j,y
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
j=1
y=0
Do While application("zxip"&j)<>""
if application("zxip"&j)=Request.ServerVariables("REMOTE_ADDR") then
application("zxsj"&j)=t
y=1
end if
if t-application("zxsj"&j)>9 or t<application("zxsj"&j) then
k=k+1
else
if k>0 then
application.lock
application("zxip"&j-k)=application("zxip"&j)
application("zxsj"&j-k)=application("zxsj"&j)
application.unlock
end if
end if
if k>0 then
application.lock
application("zxip"&j)=""
application.unlock
end if
j=j+1
loop
if y=0 then
application("zxip"&j)=Request.ServerVariables("REMOTE_ADDR")
application("zxsj"&j)=t
else
j=j-1
end if
response.write("当前在线"&j&"人 您的IP:"&request.serverVariables("REMOTE_ADDR"))
%>