在ASP应用程序中限制重复提交同一表单

在Internet上我们每天都会遇到数不清的表单,也看到其中大部分并没有限制用户多次提交同一个表
单。缺乏这种限制有时候会产生某些预料不到的结果,如重复订阅邮件服务或重复投票等。或许一些
asp初学者并不清楚在asp应用中如何限制重复提交同一表单,所以在这里向大家介绍在ASP应用中防止
用户在当前会话期间多次提交同一表单的一个简单方法。 

  这个工作主要由四个子程序组成,在较为简单的应用场合,你只要将这些代码放在包含文件中直
接引用即可;对于那些较为复杂的环境,我们在文章的最后给出一些改进建议。

  一、基本工作过程 

  下面我们依次讨论这四个子程序。  

 (一)初始化

  这里我们要在Session对象中保存两个变量,其中:

   ⑴ 每一个表单对应一个称为FID的唯一标识,为使该值唯一要用到一个计数器。

   ⑵ 每当一个表单成功提交,必须在一个Dictionary对象中存储它的FID。

  我们用一个专用的过程来初始化上述数据。虽然以后各个子程序都要调用它,但实际上每一个会
话期间它只执行一次:

复制代码 代码如下:

Sub InitializeFID()
 If Not IsObject(Session("FIDList")) Then
  Set Session("FIDList")=Server.CreateObject("Scripting.Dictionary")
  Session("FID")=0
 End If
End Sub


(二)生成表单的唯一标识符

  下面这个函数GenerateFID()用于生成表单的唯一标志。该函数首先将FID值加1,然后返回它:
复制代码 代码如下:

Function GenerateFID()
 InitializeFID
 Session("FID") = Session("FID") + 1
 GenerateFID = Session("FID")
End Function


(三)登记已提交表单

  当表单成功地提交时,在Dictionary对象中登记它的唯一标识:
复制代码 代码如下:

Sub RegisterFID()
 Dim strFID
 InitializeFID
 strFID = Request("FID")
 Session("FIDlist").Add strFID, now()
End Sub

(四)检查表单是否重复提交

  在正式处理用户提交的表单之前,应该在Dictionary对象中检查它的FID是否已经登记。下面的
CheckFID()函数用来完成这个工作,如已经登记,它返回FALSE,否则返回TRUE:

复制代码 代码如下:

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3504.html