续用ASP编写计数器

《 用ASP编写计数器 》一文,详细的说明了如何利用流行的ASP来编写计数器,该文通过使Application.Lock和Applicaiotn.Unlock解决了多用户同时访问站点,计数器只能加1的问题,但是,如果某个用户,反复点击“刷新”按钮,那么计数器还是要不断的增加的,这样对于网站点击率评比来说是不公平的。
要防止上网用户连续按下“刷新”,最好的办法就是利用ASP的Session对象,我们可以借助Session对象首先判断该用户是否为新连接者,如果是,那么
IsEmpty(Session("hasbeenConnected"))=True,也就是说,Session("hasbeenConnected")是空的。那么,运行程序,使计数器加1,然后将该用户的Session("hasbeenConnected")设置为True,也就是说,这个用户已经不是新的连接者,无论他怎么连续按下“刷新”按钮,计数器也不会再增加。
结合《 用ASP编写计数器 》一文,最后的站点计数器count.asp程序应该是:
  
<%
If IsEmpty(Session("hasbeenConnected")) then
   Application.Lock
   Application("number")=Application("number")+1
   Applicaiotn.Unlock
   response.Write("你是第"&number&"位访问者!")
  End If
Session("hasbeenConnected")=True
 %>