• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

ASP.NET中实现简单访问统计计数器

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

为完成网站访问计数器可是伤透脑筋,今天完成了第一个版本,记录信息如下:
1、记录每天的访问用户数
2、记录每天的点击次数

就为实现这两个简单功能,也让我着实头痛,暂时没有太多考虑性能,只是实现。
简单说明一下:
由于为了精确实现计数器,那么要么简单使用Application.Lock锁定线程,要么自己写多线程的程序,他们都会造成系统性能的严重影响,因此,在锁定线程期间做的事情越少越好,因此不能频繁的往数据库写用户访问的计数统计信息,我使用了间隔一段时间写一次的方法,可以减少往数据库记录数据的次数,下面的代码在Application_EndRequest中检查用户上次记录数据的时间到现在是否超过了设定的时间间隔,如果是,那么再次记录,这样就极大的减少了写数据库的次数,对性能的影响和数据库服务器的影响也小一些。
如果服务器停止,那么最后一次时间间隔内的用户访问可能不会被记录,因此在Application_End事件中进行记录。

往数据库中传递的参数为:当前日期(yyyy-MM-dd格式),计数类别:用户数/页面点击数,计数。在存储过程中首先以日期参数为主键更新数据,如果更新失败(当天还没有记录过),那么插入新数据。数据库中该表有三个字段:TodayDate(Date),TodayVisitCNT(number),TodayClickCNT(number)。TodayDate为主键。

Option Explicit On
Option Strict On

Imports System
Imports System.Web
Imports System.Web.SessionState
Imports System.Runtime.Remoting

Imports System.IO
Imports Microsoft.VisualBasic

Namespace MyWeb
    Public Class Global
        Inherits System.Web.HttpApplication

        ' 保存访问计数
        Private Shared _visitCount As New Hashtable
        ' 记录最后一次更新计数信息的时间
        Private Shared _lastUpdate As DateTime

#Region " 组件设计器生成的代码 "

        Public Sub New()
            MyBase.New()

            '该调用是组件设计器所必需的。
            InitializeComponent()

            '在 InitializeComponent() 调用之后添加任何初始化

        End Sub

        '组件设计器所必需的
        Private components As System.ComponentModel.IContainer

        '注意:以下过程是组件设计器所必需的
        '可以使用组件设计器修改此过程。
        '不要使用代码编辑器修改它。
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            components = New System.ComponentModel.Container
        End Sub

#End Region

#Region "系统事件"


        Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
           ' 系统启动时间定为最后一次更新时间
            _lastUpdate = DateTime.Now
        End Sub

        Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
            ' 当前日期访问用户数加1
            Application.Lock()
            Dim Key As String = Now.ToString("yyyy-MM-dd") & "_USERCOUNT"
            _visitCount(Key) = CInt(_visitCount(Key)) + 1
            Application.UnLock()
      End Sub


        Sub Application_EndRequest(ByVal sender As Object, ByVal e As EventArgs)
            ' 用户日期页面请求次数增加1,到一定访问量以后记录到数据库
            Application.Lock()

            Dim Key As String = Now.ToString("yyyy-MM-dd") & "_PAGECOUNT"
            Dim count As Integer

            count = CInt(_visitCount(Key))
            count += 1
            _visitCount(Key) = count

            ' 如果上次记录时间超过了指定的时间间隔,那么再次记录计数器
            If DateTime.Now.Subtract(_lastUpdate).TotalSeconds > 60 Then
                ' 1、往数据库记录所有访问信息
                Dim item As String
                Dim mDate As Date
                Dim mType As String
                Dim mCount As Integer

                For Each item In _visitCount.Keys
                    mCount = CInt(_visitCount(item))
                    mDate = CDate(Split(item, "_")(0))
                    mType = CStr(Split(item, "_")(1))
                  ' 往数据库写数据
                    With New BusinessFacade.PagesSystem
                        .VisitCountLog(mDate, mType, mCount)
                    End With
                Next

                ' 2、将计数器归零
                _visitCount.Clear()
                ' 将记录时间更新
                _lastUpdate = DateTime.Now
            End If

            Application.UnLock()

        End Sub

        Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
            ' 在应用程序结束时激发

            ' 1、往数据库记录所有访问信息
            Dim item As String
            Dim mDate As Date
            Dim mType As String
            Dim mCount As Integer

            For Each item In _visitCount.Keys
                mCount = CInt(_visitCount(item))
                mDate = CDate(Split(item, "_")(0))
                mType = CStr(Split(item, "_")(1))
                With New BusinessFacade.PagesSystem
                    .VisitCountLog(mDate, mType, mCount)
                End With
            Next
            ' 2、将计数器归零
            _visitCount.Clear()

        End Sub

#End Region

    End Class
End Namespace


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Asp.net常用的操作函数发布时间:2022-07-10
下一篇:
ASP.NET页面间的传值的几种方法的总结发布时间:2022-07-10
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap