asp在线人数统计

最简单的方法一,就是利用global.asa文件,把global.asa文件保存到你主机的根据目录

global.asa文件代码如下:

在要显示在线人数的地方response.write(application("online"))就行了,

方法二:

global.asa 的写法：
在聊天室编写中常用到。看下面一段。

< SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
VisitorCountFilename = Server.MapPath ("/ex2") + "VisitCount.txt"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out= FileObject.OpenTextFile (VisitorCountFilename, 1, FALSE, FALSE)
Application("visitors") = Out.ReadLine
Application("VisitorCountFilename") = VisitorCountFilename
End Sub
'=========================================================
SUB Application_OnEnd
Set FileOutObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out= FileOutObject.CreateTextFile (Application("VisitorCountFilename"), TRUE,FALSE)
Out.WriteLine(application("visitors"))
End Sub
'=========================================================Sub Session_OnStart
Session.Timeout = 5
Application("visitors") = Application("visitors") + 1
Session("ID")=Session.SessionID
End Sub
< /SCRIPT>
上面用到了文件系统对象操作,

方法三:

就是利用数据库来保存了,这种做法比较麻烦也是比较全的方法,就是记录新的IP来做了,如果有新IP且在数据库在不存在就加一,如果一IP在20分钟(时间根据自己的情况写)内未动过就减一,