Write cookie code in asp tutorial
'----------------------------------------------------------------
'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 String
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