Imports System. Web. HttpContext
Public Class CookieFramework
'Write a single Cookie
Public Shared Function WriteCookie (ByVal CookieName As String, ByVal CookieValue As String, ByVal ExpiresDate As Integer) As Boolean
Dim aCookie As New HttpCookie (CookieName)
ACookie. Value = CookieValue
ACookie. Expires = DateTime. Now. AddDays (ExpiresDate)
System. Web. HttpContext. Current. Response. Cookies. Add (aCookie)
End Function 'Add subitem to the Cookie set
Public Shared Function WriteCookies (ByVal CookieName As String, ByVal CookieItem As String, ByVal ItemValue As String, ByVal ExpiresDate As Integer) As Boolean
Dim aCookie As HttpCookie
If Current. Request. Cookies (CookieName) Is Nothing Then
ACookie = New HttpCookie (CookieName)
Else
ACookie = Current. Request. Cookies (CookieName)
End If
ACookie. Values (CookieItem) = ItemValue
ACookie. Expires = DateTime. Now. AddDays (ExpiresDate)
System. Web. HttpContext. Current. Response. Cookies. Add (aCookie)
End Function
'Read a single Cookie
Public Shared Function ReadCookie (ByVal CookieName As String) As String
If Current. Request. Cookies (CookieName) Is Nothing Then
Return Nothing
Else
Return Current. Request. Cookies (CookieName). Value
End If
End Function 'Read the subitem content in the Cookie set
Public Shared Function ReadCookies (ByVal CookieName As String, ByVal CookieItem As String) As String
If Current. Request. Cookies (CookieName) Is Nothing Then
Return Nothing
Else
If Current. Request. Cookies (CookieName). Values (CookieItem) Is Nothing Then
Return Nothing
Else
Return Current. Request. Cookies (CookieName). Values (CookieItem)
End If
End If
End Function
'Delete the entire Cookie
Public Shared Function DeleteCookie (ByVal CookieName As String) As Boolean
Dim aCookie As New HttpCookie (CookieName)
Dim I As Integer
Dim limit As Integer = Current. Request. Cookies. Count-1
For I = 0 To limit
ACookie = Current. Request. Cookies (I)
ACookie. Expires = DateTime. Now. AddDays (-1)
Current. Response. Cookies. Add (aCookie)
Next
End Function
'Delete the subitem in the Cookie set.
Public Shared Function DeleteCookies (ByVal CookieName As String, ByVal ItemName As String) As Boolean
Dim aCookie As HttpCookie = Current. Request. Cookies (CookieName)
ACookie. Values. Remove (ItemName)
ACookie. Expires = DateTime. Now. AddDays (1)
Current. Response. Cookies. Add (aCookie)
End Function
End Class |
