📄 products.aspx
字号:
<%@ Page Language="VB" %>
<%@ Register TagPrefix="Banana" TagName="Header" Src="header.ascx" %>
<%@ Register TagPrefix="Banana" TagName="Menu" Src="menu.ascx" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
' Obtain CategoryID from QueryString
Dim CategoryID As String = CStr(Request.Params("cat"))
'set image and label
imgCategory.ImageURL = "images/" & CategoryID & ".gif"
lblCategory.Text = "<b>" & CategoryID & "</b>"
' Populate List with Category Products
Dim objBanana As New BananaMobile.BananaMobile
Dim objReader As OleDbDataReader = objBanana.GetCategory(CategoryId)
dlItems.DataSource = objReader
dlItems.DataBind()
objReader.Close()
objBanana.Dispose
End Sub
</script>
<html><body background="images/banana_bg.gif">
<table height="100%" cellspacing=0 cellpadding=0 width="100%">
<Banana:Header runat="server"/>
<tr height="100%">
<Banana:Menu runat="server"/>
<td align=left valign="top" width=100% nowrap>
<table height="100%" valign="top" align="left" cellspacing=0 cellpadding=0 width="100%">
<tr height="100%" valign="top">
<td nowrap>
<table cellspacing=0 cellpadding=0 width="100%">
<tr>
<td valign="top" width="110">
<asp:Image id="imgCategory" runat="server"
Border="1" Align="TextTop"/><br>
<asp:Label id="lblCategory" runat="server"/>
</td>
<td valign="top">
<form runat="server">
<asp:DataList id="dlItems" RepeatColumns="2" runat="server">
<ItemTemplate>
<table border=0 width="200">
<tr>
<td width="200" valign="center">
<b><%# Container.DataItem("Name") %></b><br>
<%# Container.DataItem("Description") %><br>
<b>Price: </b><%# System.String.Format("{0:c}", Container.DataItem("Price")) %><br>
<a href="AddToCart.aspx?PartID=<%# Container.DataItem("PartID") %>&cat=<%# Container.DataItem("Category") %>">
<font color="#9D0000"><b>Add To Cart<b></font>
</a>
</td>
</tr>
</table>
</ItemTemplate>
</asp:DataList>
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -