categories_usingdatabinder.ascx

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

<%@ Control Inherits="IBuyAdventure.ControlBase" src="../components/stdctrl.vb" %>

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

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

  
</script>

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

  <template name="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>

  </template>

</asp:datalist>