防止网上重复投票的方法(一)

80酷酷网    80kuku.com

  投票|重复网上调查是快速收集信息的有效方法,但是目前部分网站的网上调查存在一个不足之处,即任何用户根据自己的爱好可以连续反复投票。因为所有的调查结果都是为决策作参考,不管对一个单位还是一个部门,决策失误都会带来意想不到的损失,所以防止重复投票具有重要意义。本文所给出的基于ASP(Active Server Page)的几种方法在一定程度上可以防止连续反复投票。  

ASP对象  
在ASP中有5个对象:Request、Response、Session、 Application、Server。下面只针对本文能用到的对象属性进行说明,其他方面的属性请参考相关资料。本文提供的方法的原理是:设置一个逻辑变量IsVoted,在投票之前验证IsVoted 的值,只有值为False时,才能投票,否则就认为已投过票。  
Application对象是处理某一特定ASP应用中所有用户共享信息的对象,也就是说Application对象是所有联网机器上所有网页所共享的对象。由 Application对象所定义和设置的变量,所有用户的所有网页均可访问。利用Application对象可以定义变量以及改变变量的值,其语法格式如下: Application(“变量名”)=表达式。在.asp 文件中可通过Application(“变量名”)加以引用。Application把变量的值保存在Web Server 端。  

Session对象用于单个用户管理信息,Session变量只在页面间调用(即在一个Session内)。Session变量是私有的,一个Session中某个变量值的改变不影响另一个Session中同名变量的值。Session对象也把变量值保存在服务器端,但是各个Session保存的位置不同。因为Session是私有的,所以有多少个Session对象就存在多少个IsVoted变量,这些变量之间没有关系。  

Cookies对象是不能单独存在的,它依附于Request和 Response对象,在使用时必须在Cookies前加上Request或Response。同Application和Session 一样,Cookies也能保存变量的值,但是Cookies只在浏览器客户端保存变量的值。用Cookies 所定义的变量有一个属性:可以设置Cookies变量的使用期限,而且一旦设置了使用期限, Cookies变量可以被从同一台机器上登录的所有用户所共享,我们可以利用Cookies的这个属性设置间隔一定时间才能再次投票。  

Server对象主要完成一些需要WWW服务器处理的工作,本文中我们主要利用Request.ServerVariables读取Server的环境变量中客户端的IP地址,并根据IP地址来设定相隔多长时间同一IP地址才能再次投票。  

Global.asa文件完成共享变量和文件的定义及初始化任务。Global.asa文件必须位于ASP应用的根目录下,一个ASP应用只能有一个Global.asa文件。Global.asa中含有Application_OnStart、Application_OnEnd、Session_OnStart、 Session_OnEnd四个事件,我们在Application_OnStart、Session_OnStart事件中定义 Application变量和Session变量以及进行初始化,这样在以后的网页中就可以读取这些变量。 ASP在下列情况下读取Global.asa内容:  

1.在Web Server启动之后,第一次请求调用ASP应用中的任何.asp文件时;  

2.不在Session状态的用户请求调用ASP应用的.asp文件。  

方法一:利用Session对象  
在Global.asa的Session_OnStart事件中设置逻辑变量 IsVoted,初始值为FALSE(表示还没有投票),投票之后在.asp程序中把IsVoted的值改为TRUE(表示已投过票)。每次投票之前都要判断IsVoted的值。如果IsVoted的值为TRUE,就不能再投票;如果值为FALSE,则可以投票。  
因为Session对象的使用必须与浏览器的Cookies功能相配合,所以在判断IsVoted值之前,必须先判断浏览器的Cookies功能是否打开。如处于关闭状态,则此种方法失效,所以在这种情况下必须给出提示信息并用Response.End命令中断.asp程序的执行,防止连续反复投票。其流程如图1:




其中判断Cookies是否打开的函数比较复杂,现给出函数实现代码(VBScript)。  

< %
Function IsCookiesOpen()
Dim ClientIP, URL, QueryString, IsNew

Application.Lock
If Session(“SessionID")=Session.SessionID Then  
IsCookiesOpen = True
ClearApp
Exit Function
End If

IsNew = False
If Session(“SessionID") = Empty Then
CurrentIP =Request.ServerVariables
(“REMOTE_ADDR")
If CurrentIP <> Application(“IP") Then
ClearApp
IsNew = True
End If
End If
If Not IsNew And Application(“Visit") >= 1 Then
IsCookiesOpen = False
ClearApp
Exit Function
End If
Application(“Visit") = Application(“Visit") + 1
Application(“IP") =Request.ServerVariables
(“REMOTE_ADDR")
Session(“SessionID") = Session.SessionID

URL =“_page_=”&Request.ServerVariables
(“PATH_INFO")
QueryString=Request.ServerVariables
(“QUERY_STRING")
If Len(QueryString) > 0 Then URL = URL & “&" & QueryString
If Not Response.IsClientConnected Then ClearApp
End Function

Sub ClearApp()
Application(“Visit") = 0
Application(“IP") = “"
End Sub
% >

在.asp文件中直接用IsCookiesOpen()函数来判定 Cookies是否打开。  

此种方法的漏洞:如果再打开一个新浏览器窗口,会发现在新打开的浏览器窗口中仍然可以投票。这是因为Session是私有的,一个Session中变量的改变并不影响另一个Session的同名变量的值。为了解决这个问题,下面给出方法二。

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: