Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
<asp:HyperLinkColumn
HeaderText="KaTeropMH товара (Щелкните для получения
подробной информации)"
DataNavigateUrlField="ProductCategoryID"
DataNavigateUrlFormatString="./browse.aspx?ProductCategor yID={0}"
DataTextField="CategoryName"
Target="_self"
/>
-
<asp:BoundColumn
HeaderText="Описание"
DataField="CategoryDescription"
/>
-
<ASP:DataGrid
id="dgProducts"
AutoGenerateColumns="false"
Width="90%"
BackColor="beige"
Alternating!temStyle-BackColor="cornsilk"
BorderColor="black"
ShowFooter="false"
CellPadding=3
CellSpacing="0"
Font-Name="Arial"
Font-Size="8pt"
ForeColor="Black"
HeaderStyle-BackColor="burlywood"
HeaderStyle-Font-Bold="True"
runat="server">
<Columns>
<asp:HyperLinkColumn
HeaderText="ToBap (Щелкните для получения
подробной информации)"
DataNavigateOrlField="ProductID"
DataNavigateUrlFormatString="./product.aspx?ProductI D={0}"
DataTextField=-"ProductName"
Target="_self"
/>
<asp:BoundColumn
HeaderText="Описание"
DataField="BriefDescription"
/>
<asp:BoundColumn
HeaderText="IIeHa"
DataField="Price"
DataFormatString="{0:С}"
/>
</Columns>
</asp:DataGrid>
-
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim CurrentCategorylD as Long
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
If Len(Request.QueryString("ProductCategorylD")) = 0 Then
CurrentCategorylD = 1
Else
CurrentCategorylD = Request.QueryString("ProductCategorylD")
End If
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC15;"
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select ProductID, ProductName, BriefDescription, " _
& "Price From Products Where " _
& "ProductCategorylD = " & CurrentCategorylD _
& " Order By ProductName", DBConn)
DBCommand.Fill(DSPageData, _
"Products")
dgProducts.DataSource = _
DSPageData.Tables("Products").DefaultView
dgProducts.DataBind
DBCommand = New OleDbDataAdapter _
("Select ProductCategorylD, CategoryName, " _
& "CategoryDescription From ProductCategories Where " _
& "ParentCategorylD = " & CurrentCategorylD _
& " Order By CategoryName", DBConn)
DBCommand.Fill(DSPageData, _
"Categories")
dgCategories.DataSource =_
DSPageData.Tables("Categories").DefaultView
dgCategories.DataBind
DBCommand = New OleDbDataAdapter _
("Select CategoryName " _
& "From ProductCategories Where " _
& "ProductCategorylD = " s CurrentCategorylD _
, DBConn)
DBCommand.Fill(DSPageData, _
"CategoryName")
IblTitle.Text = "<CENTER>" _
& DSPageData.Tables("CategoryName"). _
Rows(0).ItemC'CategoryName") & "</CENTER>"
End Sub
 |
 |
|
