程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> 如何在ASP應用中限制同一表單被多次提交!!

如何在ASP應用中限制同一表單被多次提交!!

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

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


   (二)生成表單的唯一標識符 

   下面這個函數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 "你輸入的內容是" & Request.QueryString("param1") 
RegisterFID 
Else 
Response.Write "此表單只能提交一次!" 
End If 
End Sub 
%> 


   三、限制與改進措施 

   上面我們介紹了在當前會話期間限制同一表單被多次提交的一種方法。在實際應用中可能需要從多方面加以改進,例如: 

   ⑴ 在登記表單ID之前檢查用戶輸入數據的合法性,使得數據不合法時用戶可以按“後退”按鈕返回,在修正後再次提交同一表單。 

   ⑵ 這種對表單提交的限制最多只能在當前會話期間有效。如果要求這種限制能夠跨越多個會話,那麼就要用到Cookeis或數據庫來保存相關數據了。 

   ⑶ 這種方法是不安全的。它僅用於防范誤操作,不能防止熟練用戶有意地多次提交同一表單。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved