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

global.asa文件代码如下:

<script Language="VBScript" runat="Server">
Sub Application_OnStart
Application("online") = 0
End Sub
Sub Session_OnStart
Application.Lock
Application("online") = Application("online") 1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("online") = Application("online") - 1
Application.UnLock
End Sub
Sub Application_OnEnd
End Sub
</script>

在要显示在线人数的地方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分钟(时间根据自己的情况写)内未动过就减一,