¡¾·±ÌåÖÐÎÄ¡¿
¡¾ÉèΪÊ×Ò³¡¿
¡¾¼ÓÈëÊղء¿
µ±Ç°Î»ÖãºASP¼¼ÊõÊ×Ò³ >> ASP»ù´¡ >> ASP±à³ÌÈëÃŽø½×£¨¾Å£©£ºÄÚÖöÔÏóApplication

ASP±à³ÌÈëÃŽø½×£¨¾Å£©£ºÄÚÖöÔÏóApplication

2006-05-15 08:00:00  ×÷Õߣº  À´Ô´£º»¥ÁªÍø  ä¯ÀÀ´ÎÊý£º0  ÎÄ×Ö´óС£º¡¾´ó¡¿¡¾ÖС¿¡¾Ð¡¡¿
¼ò½é£ºÔÚWebÓ¦ÓóÌÐòÖУ¬µ±Ò»¸öÓû§·ÃÎʸÃÓ¦ÓÃʱ£¬SessionÀàÐ͵ıäÁ¿¿ÉÒÔ¹©Õâ¸öÓû§ÔÚ¸ÃWebÓ¦ÓõÄËùÓÐÒ³ÃæÖй²ÏíÊý¾Ý£»Èç¹ûÁíÒ»¸öÓû§Ò²Í¬Ê±·ÃÎʸÃWebÓ¦Óã¬ËûÒ²ÓµÓÐ×Ô¼ºµÄSession±äÁ¿£¬µ«Á½¸öÓû§Ö®¼äÎÞ·¨Í¨¹ýSession...

ÔÚ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

ÖØÐ²Â

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