为完成网站访问计数器可是伤透脑筋，今天完成了第一个版本，记录信息如下：
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
