ÔÚWebÓ¦ÓóÌÐòÖУ¬µ±Ò»¸öÓû§·ÃÎʸÃÓ¦ÓÃʱ£¬SessionÀàÐ͵ıäÁ¿¿ÉÒÔ¹©Õâ¸öÓû§ÔÚ¸ÃWebÓ¦ÓõÄËùÓÐÒ³ÃæÖй²ÏíÊý¾Ý£»Èç¹ûÁíÒ»¸öÓû§Ò²Í¬Ê±·ÃÎʸÃWebÓ¦Óã¬ËûÒ²ÓµÓÐ×Ô¼ºµÄSession±äÁ¿£¬µ«Á½¸öÓû§Ö®¼äÎÞ·¨Í¨¹ýSession±äÁ¿¹²ÏíÐÅÏ¢£¬¶øApplicationÀàÐ͵ıäÁ¿Ôò¿ÉÒÔʵÏÖÕ¾µã¶à¸öÓû§Ö®¼äÔÚËùÓÐÒ³ÃæÖй²ÏíÐÅÏ¢¡£¿ÉÒÔÀí½âSessionÊǾֲ¿±äÁ¿£¬¶øApplicationÔòΪȫ¾Ö±äÁ¿¡£
ÔÚͬһÐéÄâĿ¼¼°Æä×ÓĿ¼ÏµÄËùÓÐ .ASP Îļþ¹¹³ÉÁË ASP Ó¦ÓóÌÐò¡£ÎÒÃǷǵ«¿ÉÒÔʹÓà Application ¶ÔÏó£¬ÔÚ¸ø¶¨µÄÓ¦ÓóÌÐòµÄËùÓÐÓû§Ö®¼ä¹²ÏíÐÅÏ¢£¬²¢ÔÚ·þÎñÆ÷ÔËÐÐÆÚ¼ä³Ö¾ÃµÄ±£´æÊý¾Ý¡£¶øÇÒ£¬Application ¶ÔÏó»¹ÓпØÖÆ·ÃÎÊÓ¦ÓòãÊý¾ÝµÄ·½·¨ºÍ¿ÉÓÃÓÚÔÚÓ¦ÓóÌÐòÆô¶¯ºÍֹͣʱ´¥·¢¹ý³ÌµÄʼþ¡£
Ò»¡¢Application("name")=Value
ÕýÈçSession("name")=valueÒ»Ñù£¬Application¶ÔÏóҲûÓÐÄÚÖõÄÊôÐÔ¡£µ±È»Óû§¿ÉÒÔ×Ô¶¨ÒåÊôÐÔ£¬¸ÃÊôÐÔÒ²¿É³ÆÎª¼¯ºÏ¡£
Ò»µ©·ÖÅäÁËApplication¶ÔÏóµÄÊôÐÔ£¬Ëü¾Í»á³Ö¾ÃµØ´æÔÚ£¬Ö±µ½¹Ø±ÕWEB·þÎñÆ÷·þÎñʹµÃ Application Í£Ö¹¡£ÓÉÓÚ´æ´¢ÔÚ Application ¶ÔÏóÖеÄÊýÖµ¿ÉÒÔ±»Ó¦ÓóÌÐòµÄËùÓÐÓû§¶ÁÈ¡£¬ËùÒÔ Application ¶ÔÏóµÄÊôÐÔÌØ±ðÊʺÏÔÚÓ¦ÓóÌÐòµÄÓû§Ö®¼ä´«µÝÐÅÏ¢¡£
¶þ¡¢Application.Lock
Lock·½·¨ÊǽûÖ¹ÆäËûÓû§ÐÞ¸ÄApplication¶ÔÏóµÄÊôÐÔ£¬ÒÔÈ·±£ÔÚͬһʱ¿Ì½öÓÐÒ»¸ö¿Í»§¿ÉÐ޸ĺʹæÈ¡ Application ±äÁ¿¡£Èç¹ûÓû§Ã»ÓÐÃ÷È·µ÷Óà Unlock ·½·¨£¬Ôò·þÎñÆ÷½«»áÔÚ .ASP Îļþ½áÊø»ò³¬Ê±ºó¼´½â³ý¶Ô Application ¶ÔÏóµÄËø¶¨¡£×î¼òµ¥µÄ¾ÍÊǽøÐÐÒ³Ãæ¼ÇÊýµÄÀý×ÓÁË¡£
1£¬num.ASP
ÄãÊDZ¾Ò³µÄµÚλ·ÃÎÊÕß
µ±È»£¬ÈôÈç¹ûÄãÐèÒª¼ÇÊýµÄ³õʼֵÄǾ͸Ãд¸öÅжÏÁË¡£
<%
if Application("NumVisits")
ÄãÊDZ¾Ò³µÄµÚλ·ÃÎÊÕß
ÉÏÃæµÄ³ÌÐò£¬Äã»á·¢ÏÖÿˢÐÂÒ»´Î£¬¶¼»á¼ÇÊýÀÛ¼Ó£¬Èç°´IPÖµ·ÃÎÊÀ´¼ÇÊýµÄ»°£¬Ôò½¨Á¢Ò»¸öSession
2£¬vnum.ASP
ÄãÊDZ¾Ò³µÄµÚλ·ÃÎÊÕß
Èý¡¢Application.Unlock
ÓëLock·½·¨Ïà·´£¬Unlock·½·¨ÊÇÔÊÐíÆäËûÓû§ÐÞ¸Ä Application ¶ÔÏóµÄÊôÐÔ¡£¿ÉÒÔ¿´³öÔÚÉÏÃæµÄÀý×ÓÖУ¬Unlock·½·¨½â³ý¶ÔÏóµÄËø¶¨£¬Ê¹µÃÏÂÒ»¸ö¿Í»§¶ËÄܹ»Ôö¼Ó NumVisits µÄÖµ¡£
µ±È»ÐèҪעÒâµÄÊÇ£º¼ÇÊýҪȷ±£·þÎñÆ÷²»±»ÖØÆô£¬ÒòΪËùÒԵķÃÎÊÊÇÊýÖµÊǽ¨Á¢ÔÚÒ³ÃæÖ®Éϵ쬲¢Î´½øÐб£´æ³ÉÎļþ»ò±£´æµ½Êý¾Ý¿âÕâÑùµÄ´¦Àí¡£
Ò»°ãµ±·þÎñÆ÷ÖØÐÂÆô¶¯¾Í»á´¥·¢ApplicationµÄʼþÁË¡£
ËÄ¡¢Application_OnEnd
Application_OnEnd ʼþÔÚÓ¦ÓóÌÐòÍ˳öʱÓÚ Session_OnEnd ʼþÖ®ºó·¢Éú£¬µ±È»Application_OnEnd ʼþµÄ´¦Àí¹ý³ÌÒ²±ØÐëдÔÚ Global.asa ÎļþÖ®ÖС£
±ÈÈçÉÏÃæµÄ³ÌÐòÖУ¬Èô·þÎñÆ÷¹Ø»ú±ØÈ»»á´¥·¢Application_OnEndʼþ£¬ÄÇô¸Ãʼþ¾Í¿ÉÒÔ½øÐÐÊý¾Ý±£´æµÄ¹¤×÷£¬ÒÑʹµÃÏ´ÎÊý¾ÝµÄÐøÑØ¡£
µ±È»Application_OnEnd ʼþÔÚÓ¦ÓóÌÐòÍ˳öʱÓÚSession_OnEnd ʼþÖ®ºó·¢Éú
¾ßÌåGlobal.asaÊÇÔõôһ»ØÊ£¿ÇÒÌýÏ»طֽⰡ£º£©
5´ó¶ÔÏó»ù±¾ÕÆÎÕÁË£¬À´¸öÀýÌâÁ·Ï°ÏÂ
²ÂÊý×ÖÓÎÏ·
<%
dim GuessNum
on error resume next
GuessNum=Request("Number")
if GuessNum="" then GuessNum="0" End if
GuessNum=Clng(GuessNum)
Session("Count")=Session("Count") + 1
if Session("Count") < 10 and GuessNum session("Number") then
%>
<%
end if
if GuessNum100 then
Response.write "ÇëÊäÈë1~100Ö®¼äµÄÕûÊý"
elseif GuessNum=0 then
session("Count") = 0
Randomize
session("Number") = Int(rnd * 100 + 1)
Response.write "ÇëÊäÈë1~100Ö®¼äµÄÕûÊý"
elseif GuessNum > session("Number") then
response.write "Äã²ÂµÄÌ«´óÁË"
elseif GuessNum
ÖØÐ²Â

