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

На странице находятся два блока кода. Первый вызывается при загрузке страницы.

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

If Len(Request.QueryString("ProductID")) - 0 Then

Response.Redirect("./index.aspx") End If

DBConn - New OleDbConnection("Provider-sqloledb;" & "server-localhost;" & "Initial Catalog-INETC15;" & "User Id-sa;" _ i "Password-yourpassword;") DBCommand - New OleDbDataAdapter

("Select ProductName, LongDescription, " & "PathToIcon, PathToFull, Price, CategoryName " _ & "From Products Left Join ProductCategories On " _ & "Products.ProductCategorylD - " _ & "ProductCategories.ProductCategorylD Where " & "ProductID - " & Request.QueryString("ProductID") _ , DBConn) DBCommand.Fill(DSPageData,

"ProductData") lblTitle.Text - "<CENTER>"

& DSPageData.Tables("ProductData"). _ Rows(0).Item("ProductName") & "</CENTER>" lblCategoryName.Text - "Категория:"

& DSPageData.Tables("ProductData"). Rows(0).Item("CategoryName") hyplcon.ImageUrl - DSPageData.Tables("ProductData").

Rows(0).Item("PathToIcon") hyplcon.NavigateUrl - DSPageData.Tables("ProductData"). _

Rows(j0) .Item("PathToFull") lblLongDescription.Text - DSPageData.Tables("ProductData").

Rows(0).Item("LongDescription") lblPrice.Text - "Цена:"

& FormatCurrency(DSPageData.Tables("ProductData"). Rows(0).Item("Price"))

End If End Sub

Первым делом следует удостовериться, что на страницу передан ID товара:If Len(Request.QueryString("ProductID")) - 0 Then

Если ID не передан, то посетитель не должен находиться на данной странице, поэтому мы отправляем его на домашнюю страницу:

Response.Redirect("./index.aspx")

Если ID передан, необходимо извлечь из базы данных всю информацию о товаре, включая название категории:

DBCommand - New OleDbDataAdapter

("Select ProductName, LongDescription, " & "PathToIcon, PathToFull, Price, CategoryName " & "From Products Left Join ProductCategories On "