关于在线人数的有关问题
日期：2014-05-17 浏览次数：20990 次
在线等 关于在线人数的问题
我用Application 和Session 写的一个测试在线人数的代码.....
为什么无法正常显示....总显示在线人数为:0
实在找不出原因.... 谢谢个位 帮我解决下
我的代码:
<%
Dim RefreshTime,IdleTime,TotalUsers,OnlineUser(),Tmp(),Num,I,ID
RefeshTime=10
IdleTime=RefreshTime*3
Application.Lock
'清点所有联机到此网页的浏览器，然后将目前的打开的浏览器的SessionID放入数组的最后面
If Application(Session.SessionID& "LastAccessTime ")=Empty Then
If Application( "TotalUsers ")=Empty Then Application( "TotalUsers ")=0
ReDim Tmp(Application( "TotalUsers ")+1)
Num=0
If Application( "TotalUsers ")> 0 Then
For I=LBOUND(Application( "OnlineUser ")) To UBOUND(Application( "OnlineUser "))
ID=Application( "OnlineUser ")(I)
If ID <> Session.SessionID Then
Tmp(Num)=ID
Num=Num+1
End If
Next
End If
Tmp(Num)=Session( "UserName ")
Application( "TotalUsers ")=Num+1
ReDim Preserve Tmp(Application( "TotalUsers "))
Application( "OnlineUser ")=Tmp
End If
'记录目前打开的浏览器的最近存取时间
Application(Session.SessionID& "LastAccessTime ")=Timer
'检查所有联机到此网页的用户的最近存取时间，若与目前时间相差30秒以上，表示离线
ReDim Tmp(Application( "TotalUsers "))
Num=0
For I=0 To Application( "Totalusers ")-1
ID=Application( "OnlineUser ")(I)
If (Time-Application(ID& "LastAccessTime ")) <IdleTime Then
Tmp(Num)=ID
Num=Num+1
Else
Application(ID& "LastAccessTime ")=Empty
End If
Next
' Num表示目前在线人数，若于Application( "TotalUsers ")不同，表示中间有人离线
If Num <> Application( "TotalUsers ") Then
ReDim Preserve Tmp(Num)
Application( "OnlineUser ")=Tmp
Application( "TotalUsers ")=Num
End If
Application.Unlock
%>
<HTML>
<HEAD>
<META HTTP-EQUIV= "Refresh " CONTENT= " <%= RefreshTime %> ,URL= <%=Request.ServerVariables( "PATH_INFO ")%> ">
</HEAD>
<BODY>
目前在线人数： <%=Application( "TotalUsers ")%>
</BODY>
</HTML>
----
我用Application 和Session 写的一个测试在线人数的代码.....
为什么无法正常显示....总显示在线人数为:0
实在找不出原因.... 谢谢个位 帮我解决下
我的代码:
<%
Dim RefreshTime,IdleTime,TotalUsers,OnlineUser(),Tmp(),Num,I,ID
RefeshTime=10
IdleTime=RefreshTime*3
Application.Lock
'清点所有联机到此网页的浏览器，然后将目前的打开的浏览器的SessionID放入数组的最后面
If Application(Session.SessionID& "LastAccessTime ")=Empty Then
If Application( "TotalUsers ")=Empty Then Application( "TotalUsers ")=0
ReDim Tmp(Application( "TotalUsers ")+1)
Num=0
If Application( "TotalUsers ")> 0 Then
For I=LBOUND(Application( "OnlineUser ")) To UBOUND(Application( "OnlineUser "))
ID=Application( "OnlineUser ")(I)
If ID <> Session.SessionID Then
Tmp(Num)=ID
Num=Num+1
End If
Next
End If
Tmp(Num)=Session( "UserName ")
Application( "TotalUsers ")=Num+1
ReDim Preserve Tmp(Application( "TotalUsers "))
Application( "OnlineUser ")=Tmp
End If
'记录目前打开的浏览器的最近存取时间
Application(Session.SessionID& "LastAccessTime ")=Timer
'检查所有联机到此网页的用户的最近存取时间，若与目前时间相差30秒以上，表示离线
ReDim Tmp(Application( "TotalUsers "))
Num=0
For I=0 To Application( "Totalusers ")-1
ID=Application( "OnlineUser ")(I)
If (Time-Application(ID& "LastAccessTime ")) <IdleTime Then
Tmp(Num)=ID
Num=Num+1
Else
Application(ID& "LastAccessTime ")=Empty
End If
Next
' Num表示目前在线人数，若于Application( "TotalUsers ")不同，表示中间有人离线
If Num <> Application( "TotalUsers ") Then
ReDim Preserve Tmp(Num)
Application( "OnlineUser ")=Tmp
Application( "TotalUsers ")=Num
End If
Application.Unlock
%>
<HTML>
<HEAD>
<META HTTP-EQUIV= "Refresh " CONTENT= " <%= RefreshTime %> ,URL= <%=Request.ServerVariables( "PATH_INFO ")%> ">
</HEAD>
<BODY>
目前在线人数： <%=Application( "TotalUsers ")%>
</BODY>
</HTML>
----
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
