在ASP应用中如何限制同一表单被多次提交

整理日期：2008年08月12日【字体：大中小】

伊图教程网[www.etoow.com]
http://www.etoow.com/html/2008-08/1218573190.html

　　（二）生成表单的唯一标识符

　　下面这个函数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:

Tags：多次提交表单限制 ASP应用

在ASP应用中如何限制同一表单被多次提交
'http://www.etoow.com/html/2008-08/1218573190.html

最新文章教程

　　在Internet上我们每天都会遇到数不清的表单，也看到其中大部分并没有限制用户多次提交同一个表单。缺乏这种限制有时候会产生某些预料不到的结果，如重复订阅邮件服务或重复投票等。

　　本文介绍在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