<WebMethod( Public 'Function NextMonth _
(BaseDate as Date) as String

Dim TheDate as String

If BaseDate.Month = 12 Then

TheDate = "01/01/" & (BaseDate.Year + 1)

TheDate = (BaseDate.Month + 1) & "/01/" & BaseDate.Year
End If
NextMonth = TheDate

Web-служба Количество обращений

Web-служба Количество обращений содержит единственный метод, с помощью которого фиксируется количество посещений страницы. Для работы этой службы необходимо выполнить импорт библиотек:

Imports System.Web.Services
Imports System.Data
Imports System.Data.OLEDB

<WebMethod()> Public Function RecordPageHit _
(PageName as String, VisitorlD as Long) as Long
Dim DBConn as OleDbConnection
Dim DBInsert As New OleDbCommand
Dim DBGommand As OleDbDataAdapter
Dim DSData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC8;"
& "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)
DBCommana.Fill(DSData, _
"CurrentID")
VisitorlD = DSData.Tables("CurrentID"). _
Rows(O) .ItemC'MaxID")
End If
DBInsert.CommahdText = "Insert Into PageViews " _
& "(DateEntered, PageName, VisitorlD) Values (" _
& "GetDateO , эЭ _
& PageName &"',"_
& VisitorlD & ")"
DBInsert.ExecuteNonQuery()
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

DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;"
& "Initial Catalog=INETG8;" _
& "User Id=sa;" _
& "Password=yourpassword;")

DBInsert.Connection = DBConn
DBInsert.Connection.Open