Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
DBCommand = New OleDbDataAdapter _
("Select PageName as [Страница], " _
& "Count(PageViewID) as [Количество обращений] From PageViews " _
& "Where DateEntered >= '" s txtFfomDate.Text _
& "' And DateEntered <= '" & txtToDate.Text _
& "' Group By PageName " _
& "Order By Count(PageViewID) DESC", DBConn)
-
DBCommand.Fill(DSPageData, _
"PageViews")
-
dgResults.DataSource = _
DSPageData.Tables("PageViews").DefaultView
dgRe suits.DataBindO
-
IblMessage.Text = ""
Изменение кода для Access
Чтобы обеспечить выполнение кода при использовании базы данных Access (а не SQL-сервера), необходимо внести в него ряд изменений. В первую очередь на всех страницах нужно изменить запись о провайдере и ссылки на базу данных:
-
DbConn = New 01eDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath{"/InetBook/C8/UsageTracking/Admin/" _
& "Access/C8UsageTracking.mdb;"))
-
DBInsert.CommandText = "Insert Into PageViews " _
& "(DateEntered, PageName, VisitorlD) Values (" _
& "Now, 'Карта узла', " & Session ("VisitorlD") & ")"
-
DBCommand = New OleDbDataAdapter _
(Select Format (" _
& ateEntered, ""mmm, dd, yyyy hh:nn:ss"")" _
& " as [Date Entered], " _
& "PageName as [Страница] From PageViews " _
& "Where VisitorlD = " & Session ("CurrentVisitorlD")
& " Order By DateEntered", DBConn)
-
DBCoiranand = New OleDbDataAdapter _
("Select PageName as [Страница], " _
& "Count (PageViewID) as [Количество обращений] From PageViews " _
& "Where DateEntered >= #" & txtFromDate.Text _
& "# And DateEntered <= #" & txtToDate.Text _
& "# Group By PageName " _
& "Order By Count (PageViewID) DESC", DBConn)
 |
 |
