这是叫祖哥的人写的记算在线人数的代码!
我个人觉得比现在网上流行的那种教程级的
计算在线人数的好用!而且大多数人都在用UD
可能都不知道GLOBAL.ASA是什么了!
现在这个,你只要把它贴进去就好了!
<%Application.Lock

If Session("UserID") = "" Then
If Application("TotalUsers") = "" Then Application("TotalUsers") = 0
Application("TotalUsers") = Application("TotalUsers") + 1
Session("UserID") = Application("TotalUsers")
End If

Application(Session("UserID") & "LastAccess") = Timer

If RefreshTime < 10 Then RefreshTime = 10
IdleTime = RefreshTime * 3

UserOnLine = 0
For I = 1 To Application("TotalUsers")
If Application(I & "LastAccess") <> "" Then
If Abs(Application(I & "LastAccess") - Timer) < IdleTime Then
UserOnLine = UserOnLine + 1
Else
Application(I & "LastAccess") = ""
End If
End If
Next

Application.UnLock

%>