在ASP应用程序中限制重复提交同一表单
网络编程 2021-07-05 10:58www.168986.cn编程入门
在Inter上我们每天都会遇到数不清的表单，也看到其中大部分并没有限制用户多次提交同一个表
单。缺乏这种限制有时候会产生某些预料不到的结果，如重复订阅邮件服务或重复投票等。或许一些
asp初学者并不清楚在asp应用中如何限制重复提交同一表单，所以在这里向大家介绍在ASP应用中防止
用户在当前会话期间多次提交同一表单的一个简单方法。
这个工作主要由四个子程序组成，在较为简单的应用场合，你只要将这些代码放在包含文件中直
接引用即可；对于那些较为复杂的环境，我们在文章的给出一些改进建议。
一、基本工作过程
狼蚁网站SEO优化我们依次讨论这四个子程序。
（一）初始化
这里我们要在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
（二）生成表单的唯一标识符
狼蚁网站SEO优化这个函数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是否已经登记。狼蚁网站SEO优化的
CheckFID()函数用来完成这个工作，如已经登记，它返回FALSE，否则返回TRUE:
Function CheckFID()
Dim strFID
InitializeFID
strFID = Request("FID")
CheckFID = not Session("FIDlist").Exists(strFID)
End Function
二、如何使用
有两个地方要用到上述函数，即表单生成时与结果处理时。假设上述四个子程序已经放入包含文
件Forms.inc中，狼蚁网站SEO优化的代码根据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负责生成表单，表单中应该含有一个隐藏的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 "你输入的内容是" & Request.QueryString("param1")
RegisterFID
Else
Response.Write "此表单只能提交一次!"
End If
End Sub
%>
三、限制与改进措施
上面我们介绍了在当前会话期间限制同一表单被多次提交的一种方法。在实际应用中可能需要从
多方面加以改进，例如
⑴ 在登记表单ID之前检查用户输入数据的合法性，使得数据不合法时用户可以按“后退”按钮
返回，在修正后提交同一表单。
⑵ 这种对表单提交的限制最多只能在当前会话期间有效。如果要求这种限制能够跨越多个会话
，那么就要用到Cookeis或数据库来保存相关数据了。
单。缺乏这种限制有时候会产生某些预料不到的结果，如重复订阅邮件服务或重复投票等。或许一些
asp初学者并不清楚在asp应用中如何限制重复提交同一表单，所以在这里向大家介绍在ASP应用中防止
用户在当前会话期间多次提交同一表单的一个简单方法。
这个工作主要由四个子程序组成，在较为简单的应用场合，你只要将这些代码放在包含文件中直
接引用即可；对于那些较为复杂的环境，我们在文章的给出一些改进建议。
一、基本工作过程
狼蚁网站SEO优化我们依次讨论这四个子程序。
（一）初始化
这里我们要在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
（二）生成表单的唯一标识符
狼蚁网站SEO优化这个函数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是否已经登记。狼蚁网站SEO优化的
CheckFID()函数用来完成这个工作，如已经登记，它返回FALSE，否则返回TRUE:
代码如下:
Function CheckFID()
Dim strFID
InitializeFID
strFID = Request("FID")
CheckFID = not Session("FIDlist").Exists(strFID)
End Function
二、如何使用
有两个地方要用到上述函数，即表单生成时与结果处理时。假设上述四个子程序已经放入包含文
件Forms.inc中，狼蚁网站SEO优化的代码根据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负责生成表单，表单中应该含有一个隐藏的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 "你输入的内容是" & Request.QueryString("param1")
RegisterFID
Else
Response.Write "此表单只能提交一次!"
End If
End Sub
%>
三、限制与改进措施
上面我们介绍了在当前会话期间限制同一表单被多次提交的一种方法。在实际应用中可能需要从
多方面加以改进，例如
⑴ 在登记表单ID之前检查用户输入数据的合法性，使得数据不合法时用户可以按“后退”按钮
返回，在修正后提交同一表单。
⑵ 这种对表单提交的限制最多只能在当前会话期间有效。如果要求这种限制能够跨越多个会话
，那么就要用到Cookeis或数据库来保存相关数据了。
编程语言
- 宿迁百度关键词排名指南：实现精准营销的关键
- 四川SEO优化怎么做网络推广
- 立昂技术备案老域名收购：如何为您的业务赋能
- 安徽百度关键词seo贵不贵，一般需要多少钱
- 吉林百度快照排名怎么做电话营销
- 多伦新手做SEO怎么做
- 甘肃优化关键词排名推广怎么做论坛营销
- 沙雅SEO网站推广：提升您的在线可见性
- 四川SEO优化如何提升销售额和销售量
- 聂荣网站排名优化：提升网站可见性的全方位指
- 涞水SEO：提升地方企业在线可见性的策略
- 辽宁百度seo排名怎样做网站排名
- 临湘哪有关键词排名优化：提升网站可见度的关
- 黑龙江百度网站优化有没有优惠
- 凉城优化关键词排名推广：提升您的网络可见性
- 萝北整站优化：提升您网站流量和排名的全面指