|
浅淡如何用ASP实现在线人数统计
(jaklin2000.8.17)
我发现这几天问此问题的人挺多的。就此我想说说我个的用法， 请各位大虾指教。
在线人数是指一个时段内的访客人数统计，时间的长短是由设计者设定的。
在这个时段内，各个不同IP访问本站点的总数，就是当前的线上人数。在ASP中，一般是使用Session对象来实现统计，实现代码如下：
1. 在Golobal.asa文件中：
〈SCRIPT LANGUAGE=″VBScript″ RUNAT=″Server″〉
Sub Session_OnStart
application(″online″)=application(″online″)＋1
End Sub
Sub Session_OnEnd
application(″online″)=application(″online″)－1
End Sub
sub Application_OnStart
application(″online″)=0
End Sub
sub Application_OnEnd
application(″online″)=0
End Sub
〈/SCRIPT〉
2. Online.asp 文件内容
〈％ tmp=application(″online″)
tmp=Cstr(tmp)
dim disp(20)
dim images(20)
dbbits=len(tmp)
for i= 1 to dbbits
disp(i)=left(right(tmp,i),i－(i－1))
next
for i=dbbits to 1 step －1
images(i)=″〈img src=http://cfan.net.cn/info/″＆″http://xxxx.com.cn/pic″＆″/″＆disp(i)＆″.gif〉″
response.write ″document.write(′ ″＆images(i)＆″ ′);″
next ％〉
若那位大虾有更好的方法， 也顺便告诉我一下：fz_chenjl@163.net. OK?
|
