|
<%@ Page Language="vb" %>
<html>
<head>
<title>Getting cookie values in ASP.NET</title>
</head>
<body>
<p>
<%
Dim Counter1, Counter2 As Integer
Dim Keys(), SubKeys() As String
Dim CookieColl As HttpCookieCollection
Dim Cookie As HttpCookie
Dim Expires As DateTime
CookieColl = Request.Cookies
Keys = CookieColl.AllKeys
For Counter1 = 0 To Keys.GetUpperBound(0)
Cookie = CookieColl(Keys(Counter1))
Response.Write("Cookie: " & Cookie.Name & "<br>")
Expires = Cookie.Expires
Response.Write("Expires: " & Expires & "<br>")
SubKeys = Cookie.Values.AllKeys
For Counter2 = 0 To SubKeys.GetUpperBound(0)
Response.Write("Key " & CStr(Counter2) + ": " & SubKeys(Counter2) & "<br>")
Response.Write("Value " & CStr(Counter2) + ": " & Cookie.Values(Counter2) & "<br>")
Next Counter2
Next Counter1
%>
</p>
</body>
</html>
|