手机
当前位置:查字典教程网 >编程开发 >ASP教程 >在ASP应用程序中限制重复提交同一表单
在ASP应用程序中限制重复提交同一表单
摘要:在Internet上我们每天都会遇到数不清的表单,也看到其中大部分并没有限制用户多次提交同一个表单。缺乏这种限制有时候会产生某些预料不到的结...

在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%>

<>

<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或数据库来保存相关数据了。

【在ASP应用程序中限制重复提交同一表单】相关文章:

在ASP程序中打印Excel表格的新方法

用ASP应用程序实现自己的UrlDeCode

如何在ASP.NET应用程序中初始化

CJJ专用ASP类库中的某个class

在ASP中使用均速分页法提高分页速度的方法

在线用表单建立文件夹

用ASP实现远程批量文件改名

小偷,采集程序常用函数

ASP应用之模板采用

ASP自动上传远程图片到指定文件夹目录

精品推荐
分类导航