在Internet上我們每天都會遇到數不清的表單，也看到其中大部分并沒有限制用戶多次提交同一個表單。缺乏這種限制有時候會產生某些預料不到的結果，如重復訂閱郵件服務或重復投票等。或許一些asp初學者并不清楚在asp應用中如何限制重復提交同一表單，所以在這里向大家介紹在ASP應用中防止用戶在當前會話期間多次提交同一表單的一個簡單方法。

　　這個工作主要由四個子程序組成，在較為簡單的應用場合，你只要將這些代碼放在包含文件中直接引用即可；對于那些較為復雜的環境，我們在文章的最后給出一些改進建議。

　　一、基本工作過程

　　下面我們依次討論這四個子程序。

　　（一）初始化

　　這里我們要在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

Function GenerateFID()

InitializeFID

Session("FID") = Session("FID") + 1

GenerateFID = Session("FID")

End Function

Sub RegisterFID()

Dim strFID

InitializeFID

strFID = Request("FID")

Session("FIDlist").Add strFID, now()

End Sub

Function CheckFID()

Dim strFID

InitializeFID

strFID = Request("FID")

CheckFID = not Session("FIDlist").Exists(strFID)

End Function

< %Option Explicit%>
< !--#include file="forms.inc"-->
< HTML>
< HEAD>
< TITLE>表單提交測試< /TITLE>
< /HEAD
< BODY>
< %
If Request("FID") = "" Then
GenerateForm
Else
ProcessForm
End If
%>
< /BODY>
< /HTML>

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

< %
Sub ProcessForm()

If CheckFID() Then

Response.Write "你輸入的內容是" & Request.QueryString("param1")

RegisterFID

Else

Response.Write "此表單只能提交一次!"

End If

End Sub
%>