在ASP應(yīng)用程序中限制重復(fù)提交同一表單

2024-05-04 11:02:44

字體：大中小

供稿：網(wǎng)友

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

　　這個(gè)工作主要由四個(gè)子程序組成，在較為簡單的應(yīng)用場(chǎng)合，你只要將這些代碼放在包含文件中直
接引用即可；對(duì)于那些較為復(fù)雜的環(huán)境，我們?cè)谖恼碌淖詈蠼o出一些改進(jìn)建議。

　　一、基本工作過程

　　下面我們依次討論這四個(gè)子程序。　

　（一）初始化

　　這里我們要在Session對(duì)象中保存兩個(gè)變量，其中：

　　 ⑴ 每一個(gè)表單對(duì)應(yīng)一個(gè)稱為FID的唯一標(biāo)識(shí)，為使該值唯一要用到一個(gè)計(jì)數(shù)器。

　　 ⑵ 每當(dāng)一個(gè)表單成功提交，必須在一個(gè)Dictionary對(duì)象中存儲(chǔ)它的FID。

　　我們用一個(gè)專用的過程來初始化上述數(shù)據(jù)。雖然以后各個(gè)子程序都要調(diào)用它，但實(shí)際上每一個(gè)會(huì)
話期間它只執(zhí)行一次：

復(fù)制代碼代碼如下:
Sub InitializeFID()
　If Not IsObject(Session("FIDList")) Then
　　Set Session("FIDList")=Server.CreateObject("Scripting.Dictionary")
　　Session("FID")=0
　End If
End Sub

（二）生成表單的唯一標(biāo)識(shí)符

　　下面這個(gè)函數(shù)GenerateFID()用于生成表單的唯一標(biāo)志。該函數(shù)首先將FID值加1，然后返回它：
復(fù)制代碼代碼如下:
Function GenerateFID()
　InitializeFID
　Session("FID") = Session("FID") + 1
　GenerateFID = Session("FID")
End Function

（三）登記已提交表單

　　當(dāng)表單成功地提交時(shí)，在Dictionary對(duì)象中登記它的唯一標(biāo)識(shí)：
復(fù)制代碼代碼如下:
Sub RegisterFID()
　Dim strFID
　InitializeFID
　strFID = Request("FID")
　Session("FIDlist").Add strFID, now()
End Sub

（四）檢查表單是否重復(fù)提交

　　在正式處理用戶提交的表單之前，應(yīng)該在Dictionary對(duì)象中檢查它的FID是否已經(jīng)登記。下面的
CheckFID()函數(shù)用來完成這個(gè)工作，如已經(jīng)登記，它返回FALSE，否則返回TRUE:

復(fù)制代碼代碼如下:
Function CheckFID()
　Dim strFID
　InitializeFID
　strFID = Request("FID")
　CheckFID = not Session("FIDlist").Exists(strFID)
End Function

二、如何使用

　　有兩個(gè)地方要用到上述函數(shù)，即表單生成時(shí)與結(jié)果處理時(shí)。假設(shè)上述四個(gè)子程序已經(jīng)放入包含文

上一篇：解決rs.absolutepage=-1的問題

下一篇：asp中Byval與Byref的區(qū)別