懂ASP的朋友们进,关于在线人数统计的问题
Sub OnlineCount ()
t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0
Do While application("OnlineIP"&i)<>""
if application("OnlineIP"&i)=Request.ServerVariables("REMOTE_ADDR") then
application("OnlineData"&i)=t
y=1
end if
if t-application("OnlineData"&i)>9 or t<application("OnlineData"&i) then
k=k+1
else
if k>0 then
application.lock
application("OnlineIP"&i-k)=application("OnlineIP"&i)
application("OnlineData"&i-k)=application("OnlineData"&i)
application.unlock
end if
end if
if k>0 then
application.lock
application("OnlineIP"&i)=""
application.unlock
end if
i=i+1
loop
if y=0 then
application("OnlineIP"&i)=Request.ServerVariables("REMOTE_ADDR")
application("OnlineData"&i)=t
else
i=i-1
end if
response.Write(i)
End Sub
如何修改这个方法,达到的效果是让每进来1人=10人,起始的默认基数也作相应修改,比如说默认100人在线,如何修改上面的代码,希望高手指点
参考答案:看清了!因为写出来的是i,所以把i改成10*i就OK了!试试吧!