青岛网站建设网页中统计在线人数代码 ASP

青岛网站建设网页中统计在线人数代码 ASP

<%

Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID

RefreshTime = 10           '设置网页自动更新时间为10秒

IdleTime = RefreshTime * 3 '设置闲置时间为自动更新时间的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.SessionID

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 (Timer - 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

%>

    ">

    目前在线人数：<%= Application("TotalUsers") %>

青岛微塔罗信息科技有限公司主营网站建设、网站开发、网页设计、微信开发、微信运营、网络推广等业务，公司成立至今服务客户3000多家，公司拥有资深界面设计师、交互设计师以及程序工程师和营销专家。通过将商业目标、场景营销、情感连结融入设计，从而创造出符合企业定位的网站，并结合主流线上资源推广来实现客户网站最大化的价值，有效的提升了用户体验和客户品牌价值。更多服务细节及案例，请浏览企业载体建设网站www.microtarot.com.cn及企业官网www.microtarot.com。