复杂表单的动态生成与动态验证

答案：这里所谓的复杂表单，是指表单中包含多种不同的输入类型，比如下拉列表框、单行文本、多行文本、数值等。在经常需要更换这类表单的场合，需要有一个表单的动态生成程序。本文介绍的正是这样一个系统，它以数据库保存表单定义数据，利用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表中指定的类型和属性生成。再接下来就是根据输入值要求生成执行客户端验证任务的javascript代码。对于本例，只有数字型的值需要进一步检查以保证用户的输入确实是数字，而且数字值在许可的最大值和最小值之间。生成上述代码之后，就可以结束一个表格行（也就是一个输入域）继续处理Definitions表的下一个记录。一旦所有的数据库记录处理完毕，下一步就可以加入“提交”按钮和“清除”按钮的HTML代码。如果换个角度来看，程序在这里的任务就是根据数据库记录生成各个输入域，每个输入域占用一个表格行，每个表格行二个单元：第一个单元用来显示文本标签，第二个单元显示输入元素本身（代码见dForm.asp）。 

　　 上述过程结束之后，表单的HTML代码和验证用javascript函数分别保存到了变量sHTML和sjavascript中。在把这些内容写入页面之前，程序检查客户端是否要求执行javascript验证，如果不要求执行这类验证，则清除sjavascript变量： 

　If iValType = 0 Or iValType = 2 Then sjavascript = ""
　　 在输出BODY标记之后，程序输出如下javascript函数： 

　< SCRIPT  LANGUAGE="javascript" >
　< !--
　    function validate(TheForm){
　    //客户端表单验证
　       < %=sjavascript% >
　        return true;
　    }
　    
　    function CheckRadio(objRadio){
　    //单选按钮中是否有某个值被选中
　        for(var    n =    0; n <  objRadio.length;    n++){
　            if(objRadio[n].checked){
　              return true;
　            }
　        }
　        return false;
　    }
　    
　    function CheckList(objList){
　    //是否已经在选择列表中选择了某个值
　        for(var    n =    1; n <  objList.length; n++){
　            if(objList.options[n].selected){
　                return true;
　            }
　        }
　        return false;
　    }
　//-- >
　< /Script >
　　 如果客户端不需要javascript验证，则validate函数只剩下一个“return true”语句。上面代码中的后面两个静态javascript函数（CheckRadio和CheckList）用于验证单选按钮和下拉列表框，当这两种输入域需要验证时validate函数将调用它们。 

　　 现在可以开始把表单写入页面： 

　< FORM ACTION="./dform.asp" METHOD="POST" NAME="MyForm" onSubmit="return validate(this)" >
　　 在这里，只有当validate函数返回true时才执行表单提交操作。因此当客户端javascript验证功能关闭时，validate函数将自动返回true。 

　　 接下

上一个：深入研究“用ASP上载文件”(一)
下一个：ADO 事件模型