统计网站的在线人数

简介: 统计网站的在线人数

第一步: 先在系统中创建一个表,这个表用来存储每个用户的ip.

在Application_Start中添加以下代码。

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' 在应用程序启动时运行的代码
        Dim dt As DataTable = New DataTable()
        dt.Columns.Add("UIP", GetType(String))
        Dim pk(1) As DataColumn
        pk(0) = dt.Columns("UIP")
        dt.PrimaryKey = pk
        Application("DT") = dt
        dim count as integer=0
        Application("count")=count
 End Sub

第二步:

 Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' 在新会话启动时运行的代码
        Dim ip As String = Request.ServerVariables("REMOTE_ADDR").ToString  '获取客户端IP地址
        Dim dt As DataTable = Application("DT")
       If dt.Rows.Contains(uid) Then
              Application.Lock()
              Dim Row As DataRow = dt.NewRow()
              Row("UIP") = uid
              dt.Rows.Add(Row)
              Application.Set("DT", dt)
             dim count  as integer=Application("count")
             count+=1
             Application.set("count",count)
             Application.UnLock()
       End If
End Sub

第三步:

 Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        Application.Lock()
        Dim ip As String = Request.ServerVariables("REMOTE_ADDR").ToString 
        Try
            Dim i As Integer
            Dim dt As DataTable = Application("DT")
            Dim len as integer=dt.Rows.Count - 1
            For  i = 0  To  len
           Dim row As DataRow = dt.Rows(i)
                If row("UIP").ToString.Equals(ip) Then
                    dt.Rows.Remove(row)
                    Exit For
                End If
            Next
            Application.Set("DT", dt)
             dim count  as integer=Application("count")
             count-=1
             Application.set("count",count)
            Application.UnLock()
        Catch ex As Exception
        End Try
    End Sub

最后要在web.config文件中设置

sessionstate 模式设置为 ' InProc ',因为只有设置为InProc才会触发Session_End

目录
打赏
0
0
0
0
13
分享
相关文章
如何优雅地实现在线人数统计功能:技术干货分享
在现代Web开发中,实时在线人数统计是一个常见且重要的功能,它不仅提升了用户体验,还能为网站运营者提供宝贵的数据支持。今天,我们将深入探讨如何优雅地实现这一功能,结合前端展示、后端处理及数据存储等多个方面,为您呈现一套完整的技术解决方案。
570 5
网站统计
google 统计 http://www.google.cn/intl/zh-CN_ALL/analytics/ 监控宝  统计 http://www.jiankongbao.com
678 0
网站访问量统计小案例 | 学习笔记
快速学习网站访问量统计小案例。
298 0
周排行、月排行榜开发总结
预备知识:group by,MYSQL函数week()、month() 在设计数据库时一般都有一个字段来记录文章的点击率,如果我们要统计一周或一个月点击率排行光靠这一个字段是肯定是无法实现的。这时就要新建一个表,用来记录每篇文章每天的点击率。
1008 0

热门文章

最新文章