推薦: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的新聞系統了。 ^_^ 由於代碼比較短,這裡就不進行註釋了以下為引用的內容: % '當目標