ASP Tutorial Write cookie Code
'----------------------------------------------------------------
' Name:writecookie (ByVal strcookiename As String, ByVal Strkeyname as String, ByVal strKeyValue as String)
' Parameters:
' [ByVal] Strcookiename-cookie name
' [ByVal] strkeyname-Key Name
' [ByVal] strkeyvalue-key value.
' Return:string
'----------------------------------------------------------------
Public Function Writecookie (ByVal strcookiename As String, ByVal Strkeyname as String, ByVal strKeyValue as String) as Str Ing
Dim Objenc as System.Text.Encoding = System.Text.Encoding.GetEncoding ("GB2312")
strKeyValue = System.Web.HttpUtility.UrlEncode (strKeyValue, Objenc)
System.Web.HttpContext.Current.Response.Cookies (Strcookiename) (strkeyname) = strKeyValue
End Function
Clear Code
Sub cleancookies ()
Dim i As Integer
Dim cookie As System.Web.HttpCookie
for i = 0 to System.web.httpcontext.current.request.cookies.count-1
Cookie = System.Web.HttpContext.Current.Request.Cookies (i)
System.Web.HttpContext.Current.Response.Cookies (CSTR) ( Cookie. Name)). Value = ""
System.Web.HttpContext.Current.Response.Cookies (CStr (cookie). Name)). Expires = DateAdd (Dateinterval.day,-1, now)
Next
End Sub