Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
<asp:ButtonColumn
HeaderText=''Щелкните для удаления товара из корзины"
ButtonType="LinkButton"
Text="Удалить"
CommandName="cmdRemoveItem"
-
<asp:Label
id="lblPriceTotal"
Font-Bold="True"
Width="90%"
runat="server"
/>
-
<asp:Label
id="lblShippingTotal"
Font-Bold="True"
Width="90%"
runat="server"
/>
-
<asp:Label
id="lblGrandTotal"
Font-Bold="True"
Width="90%"
runat="server"
/>
-
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Len(Session("CustomerlD")) <> 0 Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC15;" _
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select ShoppingCartltemID, ProductName, "
& "Quantity, Price, Shipping From " _
& "ShoppingCartltems Where " _
& "CustomerlD = " & Session("CustomerlD") _
& " Order By ProductName" __
, DBConn)
DBCommand.Fill(DSPageData, _
"ShoppingCart")
If DSPageData.Tables("ShoppingCart").Rows.Count = 0 Then
iblPriceTotal.Text = "В Вашей корзине " _
& "нет товаров."
Else
dgShoppingCart.DataSource = _
DSPageData.Tables("ShoppingCart").DefaultView
dgShoppingCart.DataBind,
DBCommand = New OleDbDataAdapter _
("Select Sum(Price) as PriceSum, " _
& "Sum(Shipping) as ShippingSum From " _
& "ShoppingCartltems Where " _
& "CustomerlD = " & Session("CustomerlD") _
, DBConn)
DBCommand.Fill(DSPageData, _
"Totals")
IblPriceTotal.Text = "Итого: " _
& FormatCurrency(DSPageData.Tables("Totals"). _
Rows(O).Item("PriceSum"))
IblShippingTotal.Text = "Доставка: " _
& FormatCurrency(DSPageData.Tables ("Totals") . _
Rows(O).Item("ShippingSum"))
IblGrandTotal.Text = "Всего: " _
& FormatCurrency(DSPageData.Tables ("Totals") . _
Rows(0).Item("PriceSum") + _
DSPageData.Tables("Totals"). _
Rows(O).Item("ShippingSum"))
End.If
Else
IblPriceTotal.Text = " В Вашей корзине " _
& "нет товаров."
End If
End Sub
-
If Len(Session("CustomerlD")) о 0 Then
 |
 |
|
