Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
If Len(Request.QueryString("ProductID")) = 0 Then
-
Response.Redirect("./index.aspx")
-
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")
-
IblTitle.Text = "<CENTER>" _
& DSPageData.Tables("ProductData"). _
Rows(0).Item("ProductName") & "</CENTER>"
-
IblCategoryName.Text = "Категория: " _
& DSPageData.Tables("ProductData"). _
Rows (0) .Item("CategoryName")
-
hyplcon.ImageUrl = DSPageData.Tables("ProductData"). _
Rows(O) .Item("PathToIcon")
-
hyplcon.NavigateUrl = DSPageData.Tables("ProductData"). _
Rows(O) .ItemC'PathToFull")
-
IblLongDescription.Text = DSPageData.Tables("ProductData"). _
Rows(0).Itern("LongDescription")
-
IblPrice.Text = "Цена: " _
& FormatCurrency(DSPageData.Tables("ProductData"). _
Rows(O).Item("Price"))
-
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBInsert As New OleDbCommand
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
Dim CurrentQuantity as Integer
Dim CurrentPrice as Single
Dim CurrentShipping as Single
Dim CurrentProductName as String
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC15;" _
& "User Id=sa;" _
S "Password=(yourpassword;")
DBInsert.Connection = DBConn
DBInsert.Connection.Open
If Len(Session("CustomerlD")) = 0 Then
DBInsert.CormnandText = "Insert Into Customers " _
& "(Status, DateEntered) values ('Shopping', '" _
& Now ()&"')"
DBInsert.ExecuteNonQuery()
DBCommand = New OleDbDataAdapter _
("Select Max(CustomerlD) as MaxID " _
& "From Customers", DBConn)
DBCommand.Fill(DSPageData, _
"CustomerlD")
Session("CustomerlD") = DSPageData.Tables("CustomerlD"). _
Rows(0).Item("MaxID")
End If
DBCommand = New OleDbDataAdapter _
("Select ProductName, ShippingCharge, " _
5 "Price From Products Where " _
6 "ProductID = " & Request.QueryString("ProductID") _
, DBConn)
DBCommand.Fill(DSPageData, _
"ProductData")
CurrentQuantity = txtQuantity.Text
CurrentPrice = CurrentQuantity * _
DSPageData.Tables("ProductData"). _
Rows(O).Item("Price")
CurrentShipping = CurrentQuantity * _
DSPageData.Tables("ProductData"). _
Rows(O).Item("ShippingCharge")
CurrentProductName = DSPageData.Tables("ProductData"). _
Rows (0) .Item,("ProductName")
DBInsert.CommandText = "Insert Into ShoppingCartltems " _
& "(CustomerlD, ProductName, Quantity, Price, Shipping) " _
& "values (" _
& Session("CustomerlD") & ", " _
& "'" & CurrentProductName & "', " _
& CurrentQuantity & ", " _
& CurrentPrice & ", " _
& CurrentShipping & ")"
DBInsert.ExecuteNonQuery()
Response.Redirect("./shopping_cart.aspx")
End Sub
 |
 |
|
