categories.ascx

来自「This is a book about vb.you could learn 」· ASCX 代码 · 共 35 行

<%@ Control Inherits="IBuyAdventure.ControlBase" src="../components/stdctrl.vb" %>
<%@ OutputCache Duration="60" VaryByParam="none" %>

<script language="VB" runat="server">

   Sub Page_Load(sender As Object, e As EventArgs)
   
      Dim dsn As String = getConnStr()
      Dim inventory As New IBuyAdventure.ProductsDB(getConnStr())
      
      CategoryList.DataSource = inventory.GetProductCategories()
      CategoryList.DataBind()
   End Sub

  
</script>

<asp:datalist id="CategoryList" border="0" runat="server"> 

  <ItemTemplate>
    <tr>
      <td valign=top>
        <asp:image ImageURL="/IBuyAdventure/images/bullet.gif" AlternateText="bullet" runat="server" />
      </td>
      <td valign=top>
        <font FACE="Verdana, Arial, Helvetica" SIZE="2">
          <asp:hyperlink NavigateURL='<%# "/IBuyAdventure/catalogue.aspx?ProductType=" + DataBinder.Eval( Container.DataItem, "ProductType" )%>' Text='<%# DataBinder.Eval( Container.DataItem, "ProductType" )%>' runat="server"/>
        </font>
     </td>
    </tr>

  </ItemTemplate>

</asp:datalist>
<br><font size=1>Page Generated:<BR> <%= DateTime.Now.ToString() %>