程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> .NET網頁編程 >> ASP.NET >> 關於ASP.NET >> Asp.Net中對Cookie的基本操作

Asp.Net中對Cookie的基本操作

編輯:關於ASP.NET

實例代碼演示Asp.Net中對Cookie的基本操作。

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved