在ASP应用中如何限制同一表单被多次提交- ASP

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在ASP应用中如何限制同一表单被多次提交

ASP: 浅谈 ASP 模板技术之参数传递; 九种防MDB数据库被下载的方法; 如何采集静态文章系统; 提供几个关于采集的函数(ASP); ASP小偷(远程数据获取)程序的入门教程; 远程图片自动按文件夹上传到服务器-默飞出品; 纯编码实现Access数据库的建立或压缩; 同一个帐号不能同时登陆的问题; 跨越fso、wsh、 application写文件; 用ASP设计购物推车; ASP中Web页面间的数据传递方式; ASP得到文件的大小类型最后修改时间; 截取实际长度字符串，并用空格替换; 本人常用的分页代码; 一句话木马连接客户端; 编写网页木马详解; Asp生成HTML方法大全; 利用xmlhttp和adodb.stream加缓存技术下载远程Web文件; 用ASP实现远程批量文件改名; 如何准确定时运行ASP文件

No. « ‹ 26 27 28 29 › »

技术文章搜索

关键字

在ASP应用中如何限制同一表单被多次提交

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 32 ::

收藏到网摘: n/a

快速掌握ASP连接11种数据库的常用语法 ASP防止同时登陆的问题

在Internet上我们每天都会遇到数不清的表单，也看到其中大部分并没有限制用户多次提交同一个表单。缺乏这种限制有时候会产生某些预料不到的结果，如重复订阅邮件服务或重复投票等。

本文介绍在ASP应用中防止用户在当前会话期间多次提交同一表单的一个简单方法。它主要由四个子程序组成，在较为简单的应用场合，你只要将这些代码放在包含文件中直接引用即可；对于那些较为复杂的环境，我们在文章的最后给出一些改进建议。

一、基本工作过程

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

（一）初始化

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

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

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

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

（二）生成表单的唯一标识符

下面这个函数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 "你输入的内容是"

快速掌握ASP连接11种数据库的常用语法 ASP防止同时登陆的问题

在ASP应用中如何限制同一表单被多次提交

评论 (0) All