·ÀÖ¹ÍøÕ¾ÄÚÈݱ»ÈËС͵ºÍ²É¼¯µÄASP´úÂë

¹Âµ¥Ò»¸öÈË

·ÀÖ¹Ò»°ãµÄ²É¼¯ÒÔ¼°Ð¡Íµ¶ÁÈ¡£¬¼ÓÔÚ¶¥²¿¡£
ͬÀí£¬¿ÉÒÔ¸ÄÔì³ÉJS½Å±¾¡£
<%
Dim AppealNum,AppealCount

AppealNum=10                                                 'ͬһIP60ÃëÄÚÇëÇóÏÞÖÆ10´Î
AppealCount=Request.Cookies("AppealCount")
If AppealCount="" Then
response.Cookies("AppealCount")=1
AppealCount=1
response.cookies("AppealCount").expires=dateadd("s",60,now())
Else
response.Cookies("AppealCount")=AppealCount+1
response.cookies("AppealCount").expires=dateadd("s",60,now())
End If
if int(AppealCount)>int(AppealNum) then
response.write "ץȡºÜÀÛ£¬ÐªÒ»»á¶ù°É£¡"
response.end
End If
%>