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