国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

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

2024-05-04 11:04:02
字體:
來源:轉載
供稿:網友

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 海门市| 安新县| 津南区| 五台县| 鲁山县| 出国| 三亚市| 牡丹江市| 六枝特区| 琼结县| 奉贤区| 沈丘县| 平塘县| 博湖县| 香港| 金寨县| 隆回县| 昌乐县| 临武县| 佳木斯市| 福海县| 宝丰县| 天台县| 娄烦县| 乐至县| 铁力市| 海安县| 江津市| 读书| 绩溪县| 铜鼓县| 兴仁县| 通河县| 威信县| 永清县| 临漳县| 博野县| 卢湾区| 四平市| 黔东| 玉树县|