Use cookies to track users

Source Code:



<%

' * * * Keeping track of how many times
' * * * A user visits a Web page, by
' * * * * reading and writing cookies.

' * * * in this example "Asphole" would be
' * * * The name of our cookies, and
' * * * * "totalvisit" would be the ' key '
' * * * value we keep track of. You can
' * * * have multiple ' keys ' for each
' * * * cookies.

' * * * * Declare your variables
Dim Numvisit

' * * * Check to the many times they
' * * * * have been to your Web page.
Numvisit = Request.Cookies ("Asphole") ("Totalvisit")

' * * * If This is their The visit to
' * * * * The page numvisit is blank
' * * * The value of numvisit 0.
If numvisit = "" Then
Numvisit = 0
End If

' * * * Display How many times they have
' * * * * visited your Web page.
Response.Write "Visits to this page:" & Numvisit

' * * * Count The visit to the Web page
Numvisit = numvisit + 1

' * * * Write the new total back to
' * * * * The cookie in their browser
Response.Cookies ("Asphole") ("totalvisit") = Numvisit

' * * * Specify when the cookie expires.
' * * * If you don ' t, the cookie would
' * * * expire when the user closes their
' * * * browser, and you'll lose all info.
Response.Cookies ("Asphole"). Expires = "January 1, 2020"

%>




-end-