防止网上重复投票的方法（一）

答案：网上调查是快速收集信息的有效方法，但是目前部分网站的网上调查存在一个不足之处，即任何用户根据自己的爱好可以连续反复投票。因为所有的调查结果都是为决策作参考，不管对一个单位还是一个部门，决策失误都会带来意想不到的损失，所以防止重复投票具有重要意义。本文所给出的基于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的同名变量的值。为了解决这个问题，下面给出方法二。 

上一个：Session对象失效的客户端解决方法
下一个：防止网上重复投票的方法（二）