一、基本工作過程
下面我們依次討論這四個子程序。
（一）初始化
這里我們要在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
（四）檢查表單是否重復提交
在正式處理用戶提交的表單之前，應該在Dictionary對象中檢查它的FID是否已經登記。下面的CheckFID()函數用來完成這個工作，如已經登記，它返回FALSE，否則返回TRUE:
Function CheckFID()
Dim strFID
InitializeFID
strFID = Request("FID")
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 "你輸入的內容是" amp; Request.QueryString("param1")
RegisterFID
Else
Response.Write "此表單只能提交一次!"
End If
End Sub
%＞
三、限制與改進措施
上面我們介紹了在當前會話期間限制同一表單被多次提交的一種方法。在實際應用中可能需要從多方面加以改進，例如：
⑴ 在登記表單ID之前檢查用戶輸入數據的合法性，使得數據不合法時用戶可以按“后退”按鈕返回，在修正后再次提交同一表單。
⑵ 這種對表單提交的限制最多只能在當前會話期間有效。如果要求這種限制能夠跨越多個會話，那么就要用到Cookeis或數據庫來保存相關數據了。
⑶ 這種方法是不安全的。它僅用于防范誤操作，不能防止熟練用戶有意地多次提交同一表單。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
