>  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
 &

上一页  [1] [2] [3] 下一页

在google里搜索更多在ASP应用中如何限制同一表单被多次提交

	Web www.51ec.org

上一篇信息学院： ASP和SQLServer时间处理方法

下一篇信息学院： ASP Image 使用范例…