在线人数统计？
如何在jsp中实现在线人数统计？
问题点数：20、回复次数：4Top
1 楼yizia（椅子）回复于 2002-12-14 18:32:45 得分 20
applicationTop
2 楼qlep（）回复于 2002-12-15 10:51:43 得分 0
能详细一点么？Top
3 楼meizz（梅花雪）回复于 2002-12-15 11:08:18 得分 0
<SCRIPT Language="vbscript" RunAt="server">
Sub Application_OnStart
'global.asa 一定是放在网站的虚拟根目录下的
'在根目录下有一个 counter.txt 记录访问总量
'Application("Counter") '计数器的变量名
'Application("Online") '在线人数的变量名
dim objFSO,objTS
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objTS = objFSO.OpenTextFile(Server.MapPath("counter.txt"),1,false)
if not objTS.atendofstream then
Application("Counter") = CLng(objTS.ReadLine) '网站计数器
end if
objTS.close : set objTS=nothing : set objFSO = Nothing
Application("Online") = 0 '在线人数
End Sub
Sub Session_OnStart
Application.Lock
Application("Online") = Application("Online") + 1 '在线人数累加
Application("Counter") = Application("Counter")+ 1 '计数器累加
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("Online") = Application("Online") - 1 '在线人数累减
Application.UnLock
End Sub
Sub Application_OnEnd
dim objFSO,objTS
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
set objTS=objFSO.OpenTextFile(Server.MapPath("counter.txt"),2,true)
objTS.writeline(Application("Counter")) '将计数器记录到文本中
objTS.close : set objTS=nothing : set objFSO = Nothing
End Sub
</SCRIPT>Top
4 楼qlep（）回复于 2002-12-15 11:32:47 得分 0
to up：
上面的代码好象是用asp实现的，在jsp容器里不能运行呀Top
