• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

asp中如何限制重复提交同一表单

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