ASP.NET. Учебный курс (Г.Бучек.)

Единственный метод в данной службе используется для добавления записи в таблицу PageViews базы данных, а в том случае, когда посетитель начинает просмотр содержимого узла с текущей страницы, запись делается и в таблицу Visitors.

<WebMethod()> Public Function RecordPageHit _

(PageName аь String, VisitorlD as Long) as Long

Dim DBConn as OleDbConnection

Dim DBInsert As New OleDbCommand

Dim DBCommand As OleDbDataAdapter

Dim DSData as New DataSet

DBConn - New OleDbConnection("Provider-sqloledb;" _ & "server-localhost;" _ & "Initial Catalog«IHETC8;" & "User Id-sa;" _ & "Password-yourpassword;") DBInsert.Connection » DBConn DBInsert.Connection.Open If VisitorlD - 0 Then

DBInsert.CommandText - "Insert Into Visitors "

& "(DateEntered) Values (GetDateO)" DBInsert.ExecuteNonQuery() DBCommand - New OleDbDataAdapter

("Select Max(VisitorlD) as MaxID " & "From Visitors", DBConn) DBCommand.Fill(DSData,

"CurrentID") VisitorlD - DSData.Tables("CurrentID"). Rows(0).Item("MaxID")

End If

DBInsert.CommandText - "Insert Into PageViews "

& "(DateEntered, PageName, VisitorlD) Values (" & "GetDateO, & PageName & "', " _ & VisitorlD & ")" DBInsert.ExetuteNonQuery() RecordPageHit - VisitorlD End Function

Метод имеет два параметра. Первый — это название посещенной страницы, второй — идентификатор посетителя. Он же, идентификатор посетителя, возвращается в качестве результата:

<WebMethod()> Public Function RecordPageHit

(PageName as String, VisitorlD as Long) as Long

Для функционирования этого метода потребуются объекты для работы с базой данных:

Dim DBConn as OleDbConnection Dim DBInsert As New OleDbCommand Dim DBCommand As OleDbDataAdapter Dim DSData as New DataSet

Далее устанавливается связь с базой данных, описанной в главе 8:

DBConn - New OleDbConnection("Provider-sqloledb;" & "server-localhost;"