Imports System.Web.HttpContext Public Class CookieFramework '寫入單個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
'給Cookie集合添加子項 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 '讀取單個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
'讀取Cookie集合中的子項內容 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 '刪除整個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 '刪除Cookie集合中的子項 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