Sub InitializeFID() If Not IsObject(Session("FIDList")) Then Set Session("FIDList")=Server.CreateObject("Scripting.Dictionary") Session("FID")=0 End If End Sub
< %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 %>