推荐：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的新闻系统了。^_^ 由于代码比较短，这里就不进行注释了 以下为引用的内容： % '当目标