¡¾·±ÌåÖÐÎÄ¡¿
¡¾ÉèΪÊ×Ò³¡¿
¡¾¼ÓÈëÊղء¿
µ±Ç°Î»ÖãºASP¼¼ÊõÊ×Ò³ >> ASP»ù´¡ >> ʹÓÃCookie¸ú×ÙÀ´·ÃÕß

ʹÓÃCookie¸ú×ÙÀ´·ÃÕß

2006-05-15 08:00:00  ×÷Õߣº  À´Ô´£º»¥ÁªÍø  ä¯ÀÀ´ÎÊý£º0  ÎÄ×Ö´óС£º¡¾´ó¡¿¡¾ÖС¿¡¾Ð¡¡¿
¼ò½é£º¿´¿´ÏÂÃæµÄ´úÂ룬ÎÒÃÇÓÃËüÀ´³ÖÐø¸ú×ÙÒ»¸öÓû§£¬ÒÔ»ñÖªÓû§·ÃÎʹý¶àÉÙ´ÎÍøÕ¾Ò³Ãæ¡£ÆäÖУ¬¡°chunfeng¡±¾ÍÊÇÎÒÃǵÄcookie£¬¡°totalvisit¡±¸ú×ٵļüÖµ¡£
¹Ø¼ü×Ö£ºÀ´·ÃÕß ¸ú×Ù Cookie

¿´¿´ÏÂÃæµÄ´úÂ룬ÎÒÃÇÓÃËüÀ´³ÖÐø¸ú×ÙÒ»¸öÓû§£¬ÒÔ»ñÖªÓû§·ÃÎʹý¶àÉÙ´ÎÍøÕ¾Ò³Ãæ¡£ÆäÖУ¬¡°chunfeng¡±¾ÍÊÇÎÒÃǵÄcookie£¬¡°totalvisit¡±¸ú×ٵļüÖµ¡£

<%

Dim NumVisit

' ÉùÃ÷±äÁ¿

NumVisit = Request.Cookies("chunfeng")("totalvisit")

' ¼ì²éÓû§À´·ÃÎʹý¶àÉÙ´Î

If NumVisit = "" Then

NumVisit = 0

End If

' Èç¹ûÊǵÚÒ»´ÎÀ´·Ã,NumVisit ӦΪ¿Õ,ËùÒÔÎÒÃǽ«NumVisitÉèΪ0

Response.Write "ÒÑÓÐ: " & NumVisit "È˹âÁÙËæ·çÆðÎè!"

NumVisit = NumVisit + 1

' ¿ªÊ¼¼ÆÊý

Response.Cookies("chunfeng")("totalvisit") = NumVisit

' ͨ¹ýËûÃǵÄä¯ÀÀÆ÷½«ÐµÄ×ܼÆÊýд»Øµ½cookieÈ¥

Response.Cookies("chunfeng").Expires = "January 1, 2008"

' Ö¸Ã÷cookieµ½ÆÚʱ¼ä,·ñÔò, cookieÔÚÓû§¹Ø±Õä¯ÀÀÆ÷ʱ¹ýÆÚ,²¢Ê§È¥ËùÓÐÎÒÃÇÏëÓÃcookieÀ´´¢´æµÄÐÅÏ¢

%>

ÔðÈα༭£ºadmin
±¾ÎÄÒýÓõØÖ·£º http://www.3pcode.com/asp/2006/05/82194.htm
Ïà¹ØÎÄÕÂ