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

如何在ASP中限制表單的多次重復(fù)提交？在Internet上我們每天都會(huì)遇到數(shù)不清的表單，也看到其中大部分并沒(méi)有限制用戶多次提交同一個(gè)表單。缺乏這種限制有時(shí)候會(huì)產(chǎn)生某些預(yù)料不到的結(jié)果，如重復(fù)訂閱郵件服務(wù)或重復(fù)投票等。

本文介紹在ASP應(yīng)用中防止用戶在當(dāng)前會(huì)話期間多次提交同一表單的一個(gè)簡(jiǎn)單方法。它主要由四個(gè)子程序組成，在較為簡(jiǎn)單的應(yīng)用場(chǎng)合，你只要將這些代碼放在包含文件中直接引用即可；對(duì)于那些較為復(fù)雜的環(huán)境，我們?cè)谖恼碌淖詈蠼o出一些改進(jìn)建議。

一、基本工作過(guò)程

下面我們依次討論這四個(gè)子程序。

（ASP中限制表單的多次重復(fù)提交一）初始化

這里我們要在Session對(duì)象中保存兩個(gè)變量，其中：

⑴ 每一個(gè)表單對(duì)應(yīng)一個(gè)稱為FID的唯一標(biāo)識(shí)，為使該值唯一要用到一個(gè)計(jì)數(shù)器。

⑵ 每當(dāng)一個(gè)表單成功提交，必須在一個(gè)Dictionary對(duì)象中存儲(chǔ)它的FID。

我們用一個(gè)專用的過(guò)程來(lái)初始化上述數(shù)據(jù)。雖然以后各個(gè)子程序都要調(diào)用它，但實(shí)際上每一個(gè)會(huì)話期間它只執(zhí)行一次：

以下為引用的內(nèi)容： Sub InitializeFID() If Not IsObject(Session("FIDList")) Then Set Session("FIDList")=Server.CreateObject("Scripting.Dictionary") Session("FID")=0 End If End Sub

（ASP中限制表單的多次重復(fù)提交二）生成表單的唯一標(biāo)識(shí)符

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

以下為引用的內(nèi)容： Function GenerateFID() InitializeFID Session("FID") = Session("FID") 1 GenerateFID = Session("FID") End Function

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

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

以下為引用的內(nèi)容： Sub RegisterFID() Dim strFID InitializeFID strFID = Request("FID") Session("FIDlist").Add strFID, now() End Sub

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

在正式處理用戶提交的表單之前，應(yīng)該在Dictionary對(duì)象中檢查它的FID是否已經(jīng)登記。下面的CheckFID()函數(shù)用來(lái)完成這個(gè)工作，如已經(jīng)登記，它返回FALSE，否則返回TRUE:

以下為引用的內(nèi)容： Function CheckFID() Dim strFID InitializeFID strFID = Request("FID") CheckFID = not Session("FIDlist").Exists(strFID) End Function

二、如何使用

有兩個(gè)地方要用到上述函數(shù)，即表單生成時(shí)與結(jié)果處理時(shí)。假設(shè)上述四個(gè)子程序已經(jīng)放入包含文件Forms.inc中，下面的代碼根據(jù)FID值來(lái)決定生成表單還是處理表單結(jié)果，它所描述的處理過(guò)程適合于大多數(shù)ASP應(yīng)用：

以下為引用的內(nèi)容： < %Option Explicit%> < !--#include file="forms.inc" < HTML> < HEAD> < TITLE>表單提交測(cè)試< /TITLE> < /HEAD < BODY> < % If Request("FID") = "" Then GenerateForm Else ProcessForm End If %> < /BODY> < /HTML>

GenerateForm負(fù)責(zé)生成表單，表單中應(yīng)該含有一個(gè)隱藏的FID，如：

以下為引用的內(nèi)容： < % 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負(fù)責(zé)處理通過(guò)表單提交的內(nèi)容，但在處理之前應(yīng)該先調(diào)用CheckFID()檢查當(dāng)前表單是否已經(jīng)提交，代碼類(lèi)如：

以下為引用的內(nèi)容： < % Sub ProcessForm() If CheckFID() Then Response.Write "你輸入的內(nèi)容是"

分享：ASP如何生成html？
已經(jīng)有很多生成html的新聞系統(tǒng)，但是都是用的模板，本函數(shù)實(shí)現(xiàn)把a(bǔ)sp頁(yè)面產(chǎn)生的html代碼保存成為一個(gè)html文件，這樣就沒(méi)有必要改動(dòng)原來(lái)的頁(yè)面就可以輕松完成一個(gè)生成html的新聞系統(tǒng)了。^_^ 由于代碼比較短，這里就不進(jìn)行注釋了 以下為引用的內(nèi)容： % '當(dāng)目標(biāo)