第12章综合举例.docVIP

第12 章 综合举例 为了让读者对本教材的整体内容有一个概括的了解，本章设计了一个例子，所有基于Web的应用程序中一般都有这些内容。 本章的例子可以分成三部分内容：即客户端表单，数据库操作，客户端初始数据生成。以下分别讨论。 12.1 客户端表单 本实例用于向一个名单表中添加数据，名单数据表中包含“系名”、“教研室名”、“姓名”三个字段。运行时首先显示如图12-1所示的表单，可以看出表单中包含两个下拉菜单和一个文本框。 图12-1 初始状态的表单 由于代码较长，为了便于解释，也是为了便于让读者分段验证它的正确性。本章将实例的代码分成若干部分，每个例子中的代码只是整个代码中的一块。 本节主要讨论怎样显示一个供用户选择的表单。它的代码分成以下各例。 【例12-1】变量说明部分 HTML HEAD Script language=VBScript dim xicount 存放现有的系的个数 dim lxi,ljys 分别存放上一次输入时选择的系的序号和教研室的序号 实例中为了方便于连续添加多个人员，把前一次添加时的系名和教研室名作为本次输入时的默认值。 【例12-2】定义下拉列表框中显示内容用的初始数据 dim xiname(4) 存放各系的名称 dim jyscount(4) 存放各系教研室的个数 dim jysname(4,2) 存放各系各教研室的名称 xiname(0)=机械工程:xiname(1)=电子工程:xiname(2)=网络通讯 xiname(3)=计算机科学:jyscount(0)=2:jyscount(1)=2:jyscount(2)=2 jyscount(3)=3:jysname(0,0)=制图:jysname(0,1)=车工:jysname(1,0)=脉冲 jysname(1,1)=微电子:jysname(2,0)=网络设备:jysname(2,1)=网络施工 jysname(3,0)=软件:jysname(3,1)=硬件:jysname(3,2)=多媒体 xicount=4 lxi=2 ljys=1 本部分代码中，数组定义的元素个数，各数组元素的值都应该由服务器根据当前数据表中的内容动态生成，在这里提供这些内容是为了让读者能把本节各例中的代码作为一个完整的网页文件调试。 【例12-3】选择教研室后的处理 sub jys_onchange() dim k,l,njys k=document.forms(0).jys.value if k=其它 then njys=prompt(请输入添加的教研室名称,其它) l=document.forms(0).jys.length document.forms(0).jys.options(l-1).value=njys document.forms(0).jys.options(l-1).text=njys document.forms(0).jys.options(l-1).selected=true document.forms(0).myname.focus end if end sub 在教研室的列表中设置了一个“其它”，当选择该项时，通过本部分的代码可以输入一个新的教研室名称，添加到列表中供使用。显示的对话框如图12-2所示。 图12-2 添加新教研室时的提示 【例12-4】当指定系的编号为C时，显示可供选择的各教研室 sub disp_jys(c) 先删除全部表项 l=document.forms(0).jys.length for j=l-1 to 0 step -1 document.forms(0).jys.remove j next 显示各表项 for j=0 to jyscount(c)-1 set e=document.createelement(option) e.text=jysname(c,j) e.value=j document.forms(0).jys.add e l=document.forms(0).jys.length next 添加一个其它选项 set e=document.createelement(option) e.text=其它 e.value=其它 document.forms(0).jys.add e end sub 本部分代码中，首先删除教研室列表框中所有选项，显示由jyscount(c)指定个数，由jysname指定内容的各教研室名称，供选择。如图12-3所示 图12-3 显示某一系的教研室列表 【例1