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 dont, the cookie will

*** expire when the user closes their

*** browser, and youll lose all info.

Response.Cookies("asphole").Expires = "January 1, 2020"

%>

-END-

文章整理：西部数码--专业提供域名注册、虚拟主机服务

http://http://www.zjjv.com//

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!