Домашняя страница административного узла не содержит кода, на ней обеспечивается связь с другими страницами этого узла. На странице расположены два элемента управления. Первый элемент предназначен для отображения заголовка страницы:

<asp:Label
id="lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
Тех="Административный узел"
runat="server" />

<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Tahoma"
Font-Bold="True"
ТехЪ="Выберите ссылку."
runat="server"

На странице Путь посетителя выводятся данные для отдельного пользователя, включая информацию о том, какие страницы были посещены. Первый элемент управления Label предназначен для вывода заголовка страницы:

<asp:Label
id="lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
Text="Путь посетителя"
runat="server" />

<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Tahoma"
Font-Bold="True"
runat="server" />

< asp:DataGrid
id="dgPageViews"
Width="90%"
BackColor="beige"
AlternatingItemStyle-BackColor=neornsil]c"
BorderColor="blac)c"
ShowFooter="false"
CellPadding=3
Cellspacing="0"
Font-Name="Arial"
Font-Size="8pt"
ForeColor="Black"
HeaderStyle-BackColor="burlywood"
HeaderStyle-Font-Bold="True"
runat="server">
>/asp:DataGrid>

<asp:button
id="butViewAnother"
text=''Следующий посетитель"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC8;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select VisitorlD, DateEntered, Browser, " _
& "Platform, MajorVersion, MinorVersion From " _
& "Visitors Where VisitorlD = " _
& "(Select Max(VisitorlD) From Visitors)" _
, DBConn)
DBCommand.Fill(DSPageData, _
"VisitorRecord")
Session("CurrentVisitorlD") =_
DSPageData.Tables("VisitorRecordV). _
Rows(O).Item("VisitorlD")
IblMessage.Text = "Дата: " _
& DSPageData.Tables("VisitorRecord"). _
R9ws(0) .Item("DateEnter,ed") ,_
& "^Ьг>0раузер: ""_
& DSPageData.Tables("VisitorRecord"). _
Rows(0).Item("Browser") & " " _
& DSPageData.Tables("VisitorRecord").
Rows(O).Item("MajorVersion") & "." _
& DSPageData.Tables("VisitorRecord^);l _
Rows(O).Item("MinorVersion") _
& "<Ьг>Платформа: " _
& DSPageData.Tables("VisitorRecord"). _
Rows(0).Item("Platform")
& "<Ьг><Ьг>Просмотренные страницы:<br><br>"
DBCommand = New OleDbDataAdapter _
("Select Convert(varchar(25),DateEntered,100) " _
4 "as [Дата], " _
& "PageName as [Страница] From PageViews " _
& "Where VisitorlD = " & Session("CurrentVisitorlD") _
& " Order By DateEntered", DBConn)
DBCommand.Fill(DSPageData, _
"PageViews")
dgPageViews.DataSource = _
DSPageData.Tables("PageViews").DefaultView
dgPageViews.DataBind()
End If
End Sub