<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
'Changes to the HTTP response header, in which cookies
'are sent back to the client, must be made before
'sending any data to the user.
Response.Expires = 0
'Get the last visit date/time string from the cookie that
'resides in the HTTP request header.
Dim LastVisitCookie
LastVisitCookie = Request.Cookies("CookieVBScript")
'Send the current date/time string in a cookie enclosed
'in the response header. Note that because IE now uses
'case-sensitive cookie paths, we have explicitly set
'the cookie path to be that of the URL path to this
'page. By default, the path would be that of the
'IIS Application context for this page ("IISSAMPLES").
Response.Cookies("CookieVBScript") = FormatDateTime(NOW)
%>
Using Cookies
Using Cookies
<%
If (LastVisitCookie = "") Then
'The cookie has never been set. This must
'be the user's first visit to this page.
Response.Write("Welcome to this page.")
Else
'Remind the user of the last time she/he
'visited this page.
Response.Write("You last visited this page on " + LastVisitCookie)
End If
%>
Revisit This Page