在ASP应用程序中限制重复提交同一表单_Web开发_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

作者：闵涛文章来源：闵涛的学习笔记点击数：618 更新时间：2009/4/23 10:28:03

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

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

　　一、基本工作过程

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

　（一）初始化

　　这里我们要在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
　　（二）生成表单的唯一标识符

　　下面这个函数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是否已经登记。下面的CheckFID()函数用来完成这个工作，如已经登记，它返回FALSE，否则返回TRUE:

Function CheckFID()
　Dim strFID
　InitializeFID
　strFID = Request("FID")
　CheckFID = not Session("FIDlist").Exists(strFID)
End Function
　　二、如何使用

　　有两个地方要用到上述函数，即表单生成时与结果处理时。假设上述四个子程序已经放入包含文件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负责生成表单，表单中应该含有一个隐藏的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或数据库来保存相关数据了。
15a

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：在ASP应用程序中加入智能搜索

下一篇教程：无限分类算法 js 的实现

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Web开发  · 网页制作
· 平面设计  · 网站运营
· 网站推广  · 搜索优化
· 建站心得  · 站长故事
· 互联动态

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……