WEB检索界面动态生成的实现
from http://libweb.zju.edu.cn:8080/04/guanyuanjiaoliu/article/j1.htm WEB检索界面动态生成的实现 实例地址 1 问题的题出 随着Internet技术的广泛使用，网络资源的建设和共享显得尤为重要。图书馆作为资源的汇集地，已逐步走向信息的数字化建设，除了购买数据供应商的产品之外，根据用户的需求和本馆的特色，自建了许多各具特色的数据库，并通过WEB页面动态交互或静态的提供给读者。但由于这些资源是由图书馆各科室自建的，提供检索方法各不相同，WEB页面也比较散乱，从而引起WEB页面维护的困难。随着信息资源的增多，提高信息资源的服务质量逐步成为数字化建设的工作重点，其中采取统一友好的检索界面不失为方便读者有效利用信息资源的一种重要服务手段。本文正是基于这一点，提出了WEB检索界面动态生成的观点，即动态生成WEB检索界面，生成的界面除了选择检索的字段不同之外，界面中其它内容和使用方法完全相同。本文详细介绍了利用ASP技术实现WEB检索界面动态生成的过程。 2 WEB数据接口技术：ASP和ADO ASP(Active Server Pages)技术是Microsoft推出的一种服务器端命令执行环境，结合HTML、脚本（Script）程序和ActiveX组件建立和执行动态交互式WEB服务器应用程序。由于ASP脚本可以引用系统组件和ASP内置组件，使得ASP程序能够很方便地访问数据库，从而实现功能强大的动态WEB信息服务系统。 ADO（Active Data Objects）是一个ASP内置的ActiveX服务器组件，它是一种对象模型，包含Connection、Command、RecordSet对象。其中Connection对象用于建立与数据库的连接，Command用于定义对数据库源进行操作的命令，如Select、Insert、delete、updatet等SQL语言。RecordSet对象则用于存储数据库执行提交的操作命令之后形成的结果集。由于ADO提供连接ODBC数据源或OLE DB数据源的功能，网络开发者可以很方便地与多种数据库相连接。 3 统一检索界面动态生成的实现 3.1 检索界面结构 目前，Internet检索方式分为三种：字段方式、布尔逻辑值方式和自然语言方式，由于本文是基于数据库的检索，因此选择了前两种方式作为动态检索界面的检索方式。检索界面如图1所示： 图1 动态检索界面结构图 动态检索界面有两种方式实现多条件检索：（1）通过选择字段、输入检索值和选择逻辑运算符，然后再按增加条件按钮来实现多条件逻辑表达式的组成；（2）在布尔逻辑输入框中直接输入表达式来完成。 3.2 检索界面参数设置 由于检索界面是根据不同的数据表而自动生成的，检索界面的内容和检索返回结果的显示格式都通过对参数表的设置不定期实现，根据软件的需要，设置了以下3个参数表。 3.2.1 检索字段参数表 检索字段参数表记录用于数据表检索的字段的一些信息，检索界面生成程序按超链接中参数自动生成检索字段的内容。另外，当用户检索后返回结果时，程序根据该参数表的设置，以列表的形式将结果显示在界面上。表结构如表1所示： 表1 检索字段参数表（表名：webfind） 字段名称 字段含义 Tname 数据表名 Indexname 数据表索引字段（即键值）名称 Fieldn 检索字段名称 Fieldzn 检索字段中文含义 Fieldtype 检索字段数据字型 3.2.2 记录详细显示字段参数表 记录详细显示字段参数表用于控制记录的详细显示，当用户输入关键词进行检索后，程序是以列表的格式将结果返回给用户，列表所列的数据是根据表1所设置的检索字段包含的数据，用户需要点击列表中的超链接就能详细显示返回记录，而显示的数据内容是通过对详细显示字段参数表的设置来完成。表结/构如表2所示： 表2 详细显示字段参数表（表名：webtable） 字段名称 字段含义 Tablename 数据表名 Lsh 序号，决定显示字段的排列秩序 Fieldname 显示字段名称 Fieldznzw 显示字段的中文含义 Fieldtype 显示字段数据字型 Droptable* 如果fieldname在数据表中以代码形式存在，则记录所关联的代码表名称 Dropcode* 代码表中代表代码值的字段 Dropname* 代码表中代码所表示的含义的字段 注：*数据表中的字段若是以代码形式存在，则需设置相应的值，否则可为空。 3.2.3 记录与数据表相关联子表的情况参数表 如果一个表与几个子表相连，则需要设置该参数表。如图书数据库，包含书目表、馆藏表和流通表，设计一个关键字段，使书目表与馆藏表和流通表联系在一些。当在详细显示书目信息时，通过超链接可显示该书目相关的馆藏情况和流通情况，而不需要对馆藏表和流通表进行逐个检索。表结构如表3所示： 表3 数据表相关联子表情况参数表（表名：subtable） 字段名称 字段含义 fname 数据表名 Subtname 相关联子表名称 Ztname 相关联子表界面显示的中文名称 Linkname 数据表与相关联子表链接的字段名称 Linktype Linkname字段所记录数据的数据字型 Indexname 相关联子表的索引字段 Indextype 相关联子表的索引字段的数据类型 3.3 统一检索界面动态生成程序设计 程序的核心包括以下4个部分：mul_find.asp，bfind.asp，showtable.asp，showsubtable.asp。四个程序的执行次序为：mul_find.asp→bfind.asp→showtable.asp→showsubtable.asp。由于程序实现与WEB数据的动态交互，因此需在在Global.asa中输入以下代码： Sub Application_OnStart Application("cx_ConnectionString") = "DSN=DS名称;Uid=e用户名;PWD=口令" Application("cx_ConnectionTimeout") = 15 Application("cx_CommandTimeout") = 30 Application("cx_CursorLocation") = 3 Application("cx_RuntimeUserName") = "用户名" Application("cx_RuntimePassword") = "口令" End Sub 由于程序代码较长，因此本文只列出其中的关键部分。如果需要整个程序的源代码，可以直接与本人联系。 3.3.1 mul_find.asp 实现统一检索界面动态生成，生成的界面如图1所示。该程序有两个参数：dbname和where。调用方式：
。其源程序代码如下： …… function select1_onclick() //字段选择脚本 { var vn=document.form1.select1.value; var fieldn=vn.substring(0,vn.length-2); document.form1.text1.value=fieldn; } function button1_onclick() //增加条件按钮脚本 { var rs=document.form1.select3.value; var ss1=document.form1.select1.value; var types=ss1.substring(ss1.length-1,ss1.length); var fs=document.form1.text1.value; var vs=document.form1.text2.value; var ps=document.form1.select2.value; var ts=''; ts=document.form1.TEXTAREA1.value; if(ts.length>1) {ts=ts + ' ' + rs + ' ';} if(types=='s') //S表示字符型 {if(ps=='=') {ts = ts + fs + ' ' +ps + ' ' + '|' + vs +'|';} else {ts=ts + fs + ' ' +ps + ' ' + '|%'+vs+'%|'; }} else {if(types=='d') //d表示日期型 {if(vs.length==10) //表示yyyy-mm-dd {ts = ts + fs + ' ' +ps + ' ' + '|' + vs +'|';} else{if(vs.length==7) //表示yyyy-mm { ts = ts + "year(" + fs +")=" + vs.substring(0,4) + " and month(" + fs + ")=" + vs.substring(5,7);} else { ts = ts + "year(" + fs +")=" + vs.substring(0,4);} } } //表示yyyy else {ts = ts + vs; } } document.form1.TEXTAREA1.value=ts; document.form1.submit1.disabled=false; } 以上是检索界面中字段选择和增加条件两个按的on_clicked事件的脚本代码，用Javascript语言编写。 …… <% set DBConn = Server.CreateObject("ADODB.Connection") DBConn.ConnectionTimeout = Application("Cx_ConnectionTimeout") DBConn.CommandTimeout = Application("Cx_CommandTimeout") DBConn.CursorLocation = Application("Cx_CursorLocation") DBConn.Open Application("Cx_ConnectionString"), Application("Cx_RuntimeUserName"), Application("Cx_RuntimePassword") 以上是数据库连接代码，用VBScript语言编写。 set cmdTmp = Server.CreateObject("ADODB.Command") set rsTmp = Server.CreateObject("ADODB.RecordSet") cmdTmp.ActiveConnection = DBConn cmdTmp.CommandType = 1 cmdTmp.CommandTimeout = 10 DBname=Request.QueryString("dbname") //获取数据表名称 query_str="select * from webfind where tname='"+DBname+"'" //获取相应的检索字段信息 cmdTmp.CommandText = query_Str set rsTmp = cmdTmp.Execute //执行查询 dim fz(20),fn(20),fl(20) i=0 idx=trim(rstmp("indexname")) Do While Not rsTmp.EOF fz(i)=trim(rstmp("fieldzn")) //中文名称 fn(i)=trim(rsTmp("fieldn")) //字段名称 fl(i)=trim(rstmp("fieldtype")) //数据类型 rsTmp.MoveNext i = i + 1 Loop %> 以上代码根据传入的参数（dbname），获取检索字段参数表中的检索字段信息。