＜ %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或数据库来保存相关数据了。

上一页  [1] [2] 

在google里搜索更多在ASP应用程序中限制重复提交同一表单

	Web www.51ec.org

上一篇信息学院： ASP中GetRows的用法详解！

下一篇信息学院： Exchange Server关于文档属性扩充…