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

时间：2021-05-25

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

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

　　一、基本工作过程

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

　（一）初始化

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

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

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

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

复制代码 代码如下:
SubInitializeFID()
　IfNotIsObject(Session("FIDList"))Then
　　SetSession("FIDList")=Server.CreateObject("Scripting.Dictionary")
　　Session("FID")=0
　EndIf
EndSub


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

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


（三）登记已提交表单

　　当表单成功地提交时，在Dictionary对象中登记它的唯一标识：
复制代码 代码如下:
SubRegisterFID()
　DimstrFID
　InitializeFID
　strFID=Request("FID")
　Session("FIDlist").AddstrFID,now()
EndSub

（四）检查表单是否重复提交

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

复制代码 代码如下:
FunctionCheckFID()
　DimstrFID
　InitializeFID
　strFID=Request("FID")
　CheckFID=notSession("FIDlist").Exists(strFID)
EndFunction

二、如何使用

　　有两个地方要用到上述函数，即表单生成时与结果处理时。假设上述四个子程序已经放入包含文
件Forms.inc中，下面的代码根据FID值来决定生成表单还是处理表单结果，它所描述的处理过程适合
于大多数ASP应用：
复制代码 代码如下:
<%OptionExplicit%>
<!--#includefile="forms.inc"-->
<HTML>
<HEAD>
<TITLE>表单提交测试</TITLE>
</HEAD
<BODY>
<%
IfRequest("FID")=""Then
GenerateForm
Else
ProcessForm
EndIf
%>
</BODY>
</HTML>

GenerateForm负责生成表单，表单中应该含有一个隐藏的FID，如：

复制代码 代码如下:
<%
SubGenerateForm()
%>
<formaction="<%=Request.ServerVariables("PATH_INFO")%>"method=GET>
<inputtype=hiddenname=FIDvalue="<%=GenerateFID()%>">
<inputtype=textname="param1"value="">
<inputtype=submitvalue="OK">
</form>
<%
EndSub
%>

ProcessForm负责处理通过表单提交的内容，但在处理之前应该先调用CheckFID()检查当前表单是否已
经提交，代码类如：

复制代码 代码如下:

<%
SubProcessForm()
　IfCheckFID()Then
　　Response.Write"你输入的内容是"&Request.QueryString("param1")
　　RegisterFID
　Else
　　Response.Write"此表单只能提交一次!"
　EndIf
EndSub
%>

三、限制与改进措施

　　上面我们介绍了在当前会话期间限制同一表单被多次提交的一种方法。在实际应用中可能需要从
多方面加以改进，例如：　

　　⑴在登记表单ID之前检查用户输入数据的合法性，使得数据不合法时用户可以按“后退”按钮
返回，在修正后再次提交同一表单。

　　⑵这种对表单提交的限制最多只能在当前会话期间有效。如果要求这种限制能够跨越多个会话
，那么就要用到Cookeis或数据库来保存相关数据了。

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章