ASP如何防止表單重復(fù)提交_ASP教程

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

推薦：如何解決left截取字符標(biāo)題長(zhǎng)度不一
我們經(jīng)�？吹街苯佑胠eft截字符串時(shí),因?yàn)闃?biāo)題中會(huì)出現(xiàn)漢字和英文共存,所以造成兩條新聞標(biāo)題長(zhǎng)度不一，為了解決這個(gè)問題我們可以使用下面這個(gè)函數(shù)。 % ’************************************************** ’函數(shù)名：gotTopic ’作用：截字符串，漢字一個(gè)算

用戶提交表單時(shí)經(jīng)常會(huì)遇到一些意外情況,比如多次刷新頁(yè)面、按了后退鍵等，如果不采取控制措施就會(huì)引起表單重復(fù)提交的問題。
本文介紹的這種防止方法，主要由四個(gè)子程序組成，在較為簡(jiǎn)單的應(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í)行一次：

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，然后返回它：
Function GenerateFID()
InitializeFID
Session("FID") = Session("FID") + 1
GenerateFID = Session("FID")
End Function

（三）登記已提交表單

當(dāng)表單成功地提交時(shí)，在Dictionary對(duì)象中登記它的唯一標(biāo)識(shí)：

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:

Function CheckFID()
Dim strFID
InitializeFID
strFID = Request("FID")
CheckFID = not Session("FIDlist").Exists(strFID)
End Function

分享：解讀用asp編寫類似搜索引擎功能的代碼
首先建一個(gè) access 數(shù)據(jù)庫(kù) ，庫(kù)中有一個(gè)URLINDEX表，其中URL和Keywords字段分別添加了索引，如下： URL 文本(索引:有(無重復(fù))) Title文本 Description文本 Summary文本 Keywords文本(索引:有(無重復(fù))) 程序文件doquery.asp，代碼： HTMLHEADTITLE簡(jiǎn)單搜索引擎