使用Cookie来跟踪用户

Source Code:



<%

@#*** Keeping track of how many times
@#*** a user visits a web page, by
@#*** reading and writing cookies.

@#*** In this example "asphole" will be
@#*** the name of our cookie, and
@#*** "totalvisit" will be the @#key@#
@#*** value we keep track of. You can
@#*** have multiple @#keys@# for each
@#*** cookie.

@#*** Declare your variables
Dim NumVisit

@#*** Check to see how many times they
@#*** have been to your web page.
NumVisit = Request.Cookies("asphole")("totalvisit")

@#*** If this is their first visit to
@#*** the page NumVisit is blank, so
@#*** make 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 will
@#*** expire when the user closes their
@#*** browser, and you@#ll lose all info.
Response.Cookies("asphole").Expires = "January 1, 2020"

%>




-END-

原文转自：http://www.ltesting.net