ASP防止表单重复提交的办法

发布时间：2022-10-08 15:46:34 所属栏目：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值加1ASP表单，然后返回它：

　　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应用：

　　表单提交测试

（编辑：海洋资讯信息网_我爱站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!