productbookmarkcontroller.vb

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

Imports System.Collections.Generic
Imports System.Text
Imports System.Web

Namespace NetShopForge.Library.Product

    Public Class ProductBookmarkController


        Public Sub Add(ByVal productID As Integer, ByVal productName As String)
            Dim c As HttpCookie = Nothing
            If HttpContext.Current.Request.Cookies("productBookmark") Is Nothing Then
                c = New HttpCookie("productBookmark")
            Else
                c = HttpContext.Current.Request.Cookies("productBookmark")
            End If

            Dim itemdetails As String
            'productID|productName
            itemdetails = String.Format("{0}|{1}", productID.ToString, productName)
            c.Values(productID.ToString) = itemdetails
            HttpContext.Current.Response.Cookies.Add(c)

        End Sub 'Add
        Public Sub Remove(ByVal productID As Integer)

            Dim c As HttpCookie = HttpContext.Current.Request.Cookies("productBookmark")
            c.Values.Remove(productID.ToString())
            HttpContext.Current.Response.Cookies.Add(c)

        End Sub 'Remove

        Public Sub Clear()
            Dim c As HttpCookie = HttpContext.Current.Request.Cookies("productBookmark")
            c.Values.Clear()
            HttpContext.Current.Response.Cookies.Add(c)
        End Sub
        Public Function GetItems() As System.Collections.Generic.Dictionary(Of Integer, String)

            Dim c As HttpCookie = HttpContext.Current.Request.Cookies("productBookmark")
            If IsNothing(c) Then Return Nothing

            Dim items As New Dictionary(Of Integer, String)
            For i As Integer = 0 To c.Values.Count - 1
                'productID|productName
                If c.Values(i).Length = 0 Then Return Nothing
                Dim vals As String() = c.Values(i).Split("|"c)

                items.Add(vals(0), vals(1))
            Next i
            Return items
        End Function



    End Class
End Namespace