recentproductsviewedcontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 23 行

Partial Class Shop_Controls_RecentProductsViewedControl
    Inherits System.Web.UI.UserControl


    Public Function GetCount() As Integer
        Return Profile.RecentlyViewedProducts.Count
    End Function

    Protected Function GetImagePath(ByVal ImagePath As String) As String
        Dim sOut As String = ""
        sOut = Page.ResolveUrl(String.Format("~/IHttpHandler/ImageHandler.ashx?Imagepath=~/{0}&Size={1}", ImagePath, "100,100"))
        Return sOut
    End Function

    Protected Sub Page_Load1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not Page.IsPostBack) Then
            rptRecentProds.DataSource = Profile.RecentlyViewedProducts
            rptRecentProds.DataBind()
        End If
    End Sub
End Class