ASP中限制表單的多次重復提交_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：ASP多重查詢的解決方案
我們經常會遇到多重查詢問題，而長長的SQL語句往往讓人丈二和尚摸不著頭腦。特別是客戶端部分填入查詢條件時，如用普通方法將更是難上加難。以下巧妙地利用where 1=1的恒等式（事實上很多，讓它值為TRUE即可）解決此問題。正文概要 'subject 信息標題 'com

如何在ASP中限制表單的多次重復提交？在Internet上我們每天都會遇到數不清的表單，也看到其中大部分并沒有限制用戶多次提交同一個表單。缺乏這種限制有時候會產生某些預料不到的結果，如重復訂閱郵件服務或重復投票等。

本文介紹在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

（ASP中限制表單的多次重復提交二）生成表單的唯一標識符

下面這個函數GenerateFID()用于生成表單的唯一標志。該函數首先將FID值加1，然后返回它：

以下為引用的內容：

Function GenerateFID()
InitializeFID
Session("FID") = Session("FID") 1
GenerateFID = Session("FID")
End Function

（ASP中限制表單的多次重復提交三）登記已提交表單

當表單成功地提交時，在Dictionary對象中登記它的唯一標識：

以下為引用的內容：

Sub RegisterFID()
Dim strFID
InitializeFID
strFID = Request("FID")
Session("FIDlist").Add strFID, now()
End Sub

（ASP中限制表單的多次重復提交四）檢查表單是否重復提交

在正式處理用戶提交的表單之前，應該在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 "你輸入的內容是"

分享：ASP如何生成html？
已經有很多生成html的新聞系統，但是都是用的模板，本函數實現把asp頁面產生的html代碼保存成為一個html文件，這樣就沒有必要改動原來的頁面就可以輕松完成一個生成html的新聞系統了。^_^ 由于代碼比較短，這里就不進行注釋了以下為引用的內容： % '當目標