日期:2010-10-03  浏览次数:21350 次

  这里所谓的复杂表单,是指表单中包含多种不同的输入类型,比如下拉列表框、单行文本、多行文本、数值等。在经常需要更换这类表单的场合,需要有一个表单的动态生成程序。本文介绍的正是这样一个系统,它以数据库保存表单定义数据,利用ASP脚本动态生成表单HTML代码以及验证表单输入的脚本。

  一、定义数据库表结构

  在Web上经常可以看到“每周调查”之类的表单,这就是一种需要经常更新的表单。如果有一个动态生成表单及其验证脚本的程序,可以大大减少制作这些表单的工作量。

  在本文的动态表单生成与验证示例中,我们使用一个Access数据库来存储有关表单的定义信息,同时为简单计,用户在表单中输入的数据也保存到同一数据库。定义表单需要两个表:第一个表(Definitons)用于表单输入域的定义,第二个表(Lists)保存各个输入域的附加信息,比如选择列表的选择项。

  表Definitons包含如下字段:

  • FieldName —— 赋予表单输入域的变量名字
  • Label —— 即文本标签,显示在输入域前面的提示性文字
  • Type —— 单个字符,该字符表示表单输入域的形式和输入值的类型

  具体如下:

  (t) 文本输入框,即< INPUT TYPE="TEXT" >。

  (n) 文本输入框,但要求输入数字值。

  (m) 备注型内容,用于注释或其他大量文本的输入,它是一个多行文本编辑框。

  (b) 要求输入“是”或“否”。本实现中将用复选框来获取这种输入,复选框的文本标签为“是”。如果用户选中它,则返回值是“on”。

  (r) 单选按钮。

  (l) 下拉列表框。

  Min —— 仅对数字型输入值有效,在这里给出最小值。在本例中有一个“Age”(年龄)数字型输入框,它的最小值设定为1。

  Max —— 该字段的值与输入域形式有关。对于数字型输入框,它表示的是允许的最大值。例如“Age”的Max值为100。对于文本输入框,Max表示允许的最多字符个数。对于多行文本编辑框,Max表示可见区域的文本行数。

  Required —— 表示是否必须输入。这种类型的值如果没有输入,则输入验证程序将报告错误。在表单中,必须输入的值以星号标记,并以脚注的形式提示用户该类值必须输入。

  本文的示例表单是一个ASP程序员调查表,在Definitons表中该表单的定义主要如下:

  FieldName Label Type Min Max Required

  Name 姓名 文本(t) - 50 否

  Age 年龄 数字(n) 1 100 否

  Sex 性别 单选按钮(r) - - 是

  E-mail 邮件地址 文本(t) - - 是

  Language 编程语言 下拉列表框(l) - - 否

  表Lists用于保存输入域定义的一些附加信息,本例有“Sex”和“Languages”两个输入值要用到它。表Lists非常简单,只包含如下三个字段:

  FieldName —— 当前记录属于哪个表单输入域

  Value —— 选择项的值

  Label —— 用户所看到的选择项的提示文本

  输入域“Sex”只能从两个值选取:“男”或“女”。“Language”列出了几种可应用于ASP环境的编程语言,包括:VBScript,JavaScript,C,Perl和“其他”。

  第三个表“Records”保存用户提交的内容,它也包含三个字段,每个记录对应用户的一次提交:

  Record —— 备注类型,以查询字符串形式保存的用户输入。

  Created —— 用户提交该表单的日期和时间。 RemoteIP —— 表单提交者的IP地址。

  在实际应用中可能要收集更多有关用户的信息,为简单计,本例只记录提交时间和用户IP地址这两个附加信息。

  二、准备工作

  在完成上述数据结构和表单的定义之后,接下来就可以编写脚本。脚本的任务是生成表单以及处理用户提交的表单。

  无论是表单的生成还是处理,以下三个过程(任务)都是必不可少的:第一是确定验证类型,在生成表单时验证类型值通过查询字符串获得,在处理表单时从表单隐藏域读取。程序支持的表单验证方式共有以下四种类型:不进行验证,客户端JavaScript验证,服务器端ASP脚本验证,客户端和服务器端都进行验证(代号分别为0到3)。如果没有在查询字符串中指定合法的验证方式,则默认第四种验证方式。这种验证处理方式使得我们可以灵活地应用这个表单生成、处理系统,当客户端禁止使用JavaScript验证时就可以仅在服务器端执行验证过程。下面是确定验证类型的代码:

  检查验证类型

  iValType = Request.QueryString("val")
  If IsNumeric(iValType) = False Then iValType = 3
  If iValType > 3 Or iValType < 0 Then iValType =3

  第二个任务是打开数据库连接,创建两个记录集对象:RS对象,这是本程序中的主要记录集对象,用来操作Definitions表;RSList对象,主要用于从Lists表读取数据。示例程序提供两种数据库连接方法:使用ODBC DSN或不使用ODBC DSN(使用DSN时需要先创建名为Dynamic的DSN,使用DSN连接数据库的代码已经被注释掉)。

  第三个任务是在生成(或处理)表单脚本的前面(和后面)输出一些静态的HTML代码,比如< HEAD >< /HEAD >,以及在脚本运行结束的时候释放RS、RSList等对象占用的资源。

  除了完成上述任务的代码外,示例应用中其余ASP脚本可能生成的页面有两种类型:提问表单(见上图)以及表单提交后出现的结果页面(后者同时还负责用户提交结果的记录)。要确定究竟运行哪一部分脚本,最简单的方法就是检查是否已经提交表单:如是,则处理表单;否则生成表单。

  是生成表单还是处理表单?

  If Len(Request.Form) = 0 Then
  '生成表单
  ...略...
  Else
  '处理表单
  ...略...
  End If

  三、动态生成表单

  生成表单时,程序按照Definitons表中的各个输入域定义记录,依次生成相应的表单HTML代码和JavaScript代码。HTML代码中首先要生成的是文本标签:

  sHTML = sHTML & vbTab & "< TR >" & vbCrLf & vbTab & vbTab
  sHTML = sHTML & "< TD VALIGN=" & Chr(34) & "TOP" & Chr(34)
  sHTML = sHTML & " >" & vbCrLf & vbTab & vbTab & vbTab
  sHTML = sHTML & "< B >" & RS.Fields("Label")

  然后程序检查当前输入域是否必须输入。如果必须,则在标签文本之后加一个星号(表示该值必须输入),同时对于必须输入的值,还要生成相应的JavaScript代码来验证它。对于单选按钮或选择列表,需进一步检查用户确实选择了某个选项;对于所有其他输入类型,只要检查输入值不为空即可。

  紧接文本标签的是表单的输入元素,这些元素的HTML代码根据Definitions表中指定的类型和属性生成。再接下来就是根据输入值要求生成执行客