| 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- 注意：联系我时，请一定说明是从【S】看到的信息，谢谢。 |
 联系电话： 联系 QQ： 打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！ 三亚上门维修电脑 |