Файлы проекта располагаются в двух группах папок. В первой из них размещены файлы узла, для которого исследуется интенсивность посещений. Этот узел включает файл Global.asax и три страницы ASP.NET. Коды ASP.NET-страниц практически идентичны, поэтому мы рассмотрим только один из них.

Другая группа папок содержит административный узел и состоит из пяти страниц ASP.NET. Далее мы ознакомимся с кодами и элементами управления этих страниц.

Файл GlobaLasax содержит программу, которая запускается, когда посетитель входит на узел, независимо от того, к какой странице он обращается. Программа записывает информацию об используемых пользователем браузере и серверных переменных.

Код активизируется, когда начинается сеанс.

Sub Session_OnStart
Dim BCaps As HttpBrowserCapabilities
Dim DBConn as OleDbConnection
Dim DBInsert As New OleDbCommand
Dim DBCoiranand As OleDbDataAdapter
Dim DSData as New DataSet
Dim I As Integer
Dim NameArrayO As String
Dim VisitorSV As NameValueCollection
BCaps = Request.Browser
DBConn = New OleDbConnectionC'Provider-sqloledb;" _
& "server=localhost;" _
& "Initial Catalog-INETCS;"
& "User Id=sa;" _
& "Passwo.rd-yourpassword;")
DBInsert.CommandText = "Insert Into Visitors " _
& "(DateEntered, AOL, BackgroundSounds, Beta, Browser, " _
& "Cookies, Crawler, MajorVersion, MinorVersion, " _
& "Platform, Winl6, Win32) Values (GetDateO, "
& "•" & BCaps.AOL & "', "
& "'" & BCaps.BackgroundSounds S "', " _
& "'" & BCaps.Beta &"',"_
& ""' & BCaps.Browser & "', " _
& '"" & BCaps.Cookies & "', "
& "'" & BCaps.Crawler & "', "
& ""' & BCaps.MajorVersion & "', "
& "'" & BCaps.MinorVersion & "', "
& "'" & BCaps.Platform & "', "
& "'" & BCaps.Winl6 S "', " _
& "'" & BCaps.Win32 & "')"
DBInsert.Connection - DBConn
DBInsert.Connection.Open
DBInsert.ExecuteNonQueryО
DBCommand = New OleDbDataAdapter _
("Select Max(VisitorlD) as MaxID " _
& "From Visitors", DBConn)
DBCommand.Fill(DSData, _
"CurrentID")
Session("VisitorlD") - DSData.Tables("CurrentID"). _
Rows(0).Item("MaxID")
VisitorSV = Request.ServerVariables
NameArray = VisitorSV.AllKeys
For I = 0 To UBound(NameArray)
DBInsert.CommandText = "Insert Into ServerVariables " _
& "(VisitorlD, KeyName, KeyValue) values (" _
& Session("VisitorlD") & ", " _
& LeftTReplace(VisitorSV.Item(I), "'","''"), 255)
& "')"
DBInsert.ExecuteNonQuery()
Next
End Sub

Dim BCaps As HttpBrowserCapabilities

Dim NameArrayO As String

Dim VisitorSV As NameValueCollection

BCaps = Request.Browser