在ASP利用中如何限制同1表单被屡次提交-交流共享-唐山网站建设

在ASP利用中如何限制同1表单被屡次提交

核心提示：在Internet上我们每天都会碰到数不清的表单，也看到其中大部份并没有限制用户屡次提交同1个表单。缺少这类限制有时候会产生某些预感不到的结果，如重复定阅邮件服务或重复投票等...

在Internet上我们每天都会碰到数不清的表单，也看到其中大部份并没有限制用户屡次提交同1个表单。缺少这类限制有时候会产生某些预感不到的结果，如重复定阅邮件服务或重复投票等。

本文先容在ASP利用中避免用户在当前会话期间屡次提交同1表单的1个简单方法。它主要由4个子程序组成，在较为简单的利用处合，你只要将这些代码放在包括文件中直接援用即可；对那些较为复杂的环境，我们在文章的最后给出1些改进建议。

1、基本工作进程

下面我们顺次讨论这4个子程序。

（1）初始化

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

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

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

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

以下为援用的内容：

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

（2）天生表单的唯1标识符

下面这个函数GenerateFID()用于天生表单的唯1标志。该函数首先将FID值加1，然后返回它：

以下为援用的内容：

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

（3）登记已提交表单

当表单成功地提交时，在Dictionary对象中登记它的唯1标识：

以下为援用的内容：

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

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

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

以下为援用的内容：

Function CheckFID()
Dim strFID
InitializeFID
strFID = Request("FID")
CheckFID = not Session("FIDlist").Exists(strFID)
End Function

2、如何使用

有两个地方要用到上述函数，即表单天生时与结果处理时。假定上述4个子程序已放进包括文件Forms.inc中，下面的代码根据FID值来决定天生表单还是处理表单结果，它所描写的处理进程合适于大多数ASP利用：

以下为援用的内容：

< %Option Explicit%>
< !--#include file="forms.inc"
< HTML>
< HEAD>
< TITLE>表单提交测试< /TITLE>
< /HEAD
< BODY>
< %
If Request("FID") = "" Then
GenerateForm
Else
ProcessForm
End If
%>
< /BODY>
< /HTML>

GenerateForm负责天生表单，表单中应当含有1个隐躲的FID，如：

以下为援用的内容：

< %
Sub GenerateForm()
%>
< form action="< %=Request.ServerVariables("PATH_INFO")%>" method=GET>
< input type=hidden name=FID value="< %=GenerateFID()%>">
< input type=text name="param1" value="">
< input type=submit value="OK">
< /form>
< %
End Sub
%>

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

以下为援用的内容：

< %
Sub ProcessForm()
If CheckFID() Then
Response.Write "你输进的内容是"

唐山网站建设www.fw8.net

TAG:内容,函数,都会,表单,个子

评论加载中...