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

新客网 XKER.COM 2005-11-21 来源：收藏本文

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

下面这个函数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

【收藏】【评论】【推荐】【投稿】【打印】【关闭】

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