欢迎来到天天文库
浏览记录
ID:9624848
大小:57.00 KB
页数:4页
时间:2018-05-04
《通用网页查询函数的设计与应用》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、通用网页查询函数的设计与应用摘要:本文首先介绍了通用网页查询函数的设计思想,并给出了全部源代码及其应用。关键词:数据库InterASP计算机网络1.引言随着人们对信息化潮流的逐渐认识,各种信息在Inter上的发布和检索就变得非常的重要。特别是使用B/S模式的信息发布和检索,由于它的简单性、灵活性,越来越得到了广泛的应用。现在,经常被人们采用的B/S模式的开发工具有ASP、PHP、JSP等,这些开发工具简单易学、功能强大,为各种信息在Inter上的发布和检索提供了强有力的帮助。但是,随着信息量的逐渐爆炸,如果仍
2、然采用针对特定发布信息设计专用程序的传统办法的话,显然将导致信息发布的效率非常地低。为此,笔者研究了一种通用信息发布与检索的技术方案,使用这套方案,将极大地减轻开发者的工作量,节约成本。本文介绍的便是这套技术方案中的一个非常重要的组成部分——基于ASP的通用网页查询函数的设计与应用。2.通用网页查询函数的设计通用网页查询函数的功能主要是:根据调用者提供的各种参数,在后台数据库管理系统中进行检索,最后将检索结果以二维数组的形式返回给调用者。为了实现上述功能,实现该函数的主要思想是:根据调用者提供的各种参数,生成
3、对应的SQL语句,接下来与后台数据库管理系统建立连接、提取数据、断开连接,最后将检索结果以二维数组的形式返回给调用者。该函数的输入参数有:后台数据库管理系统的代号(如0代表SQLServer、1代表VFP等)、数据源名、表名(可以是单表,也可以是多表连接)或视图名、all/distinct关键字、top关键字、字段名数组、_database_code,param_dsn_name,param_table_name,param_all,param_top,param_field_names(),ByRefdat
4、a(),param_condition,param_other,ByRefrcount,ByReffcount,ByReffieldsname())onerrorresumenext'生成查询语句ifparam_all=truethenquery="select"elsequery="selectdistinct"endifquery=query+param_top+""ifparam_field_names(0)="*"then'查询全部字段query=query+"*"elsed_g_i=0fcount=
5、0foreachiteminparam_field_namesifparam_field_names(d_g_i)<>""thenquery=query+param_field_names(d_g_i)+","fcount=fcount+1'记录集列数endifd_g_i=d_g_i+1nextendifquery=left(query,len(query)-1)+"from"+param_table_name'去掉最后一个逗号(全部字段:去掉空格)iflen(param_condition)&g
6、t;0thenquery=query+"_conditionendififlen(param_other)>0thenquery=query+""+param_otherendif'打开记录集setconntemp=server.createobject("ADODB.Connection")conntemp.ConnectionString=param_dsn_nameconntemp.Openconntemp.errors.clearSetrstemp=Server.CreateObject("AD
7、ODB.Recordset")rstemp.ActiveConnection=conntempifparam_database_code=0then‘代表后台数据库是SQLSERVERrstemp.CursorType=3rstemp.LockType=1elseifparam_database_code=1then‘代表后台数据库是VFPrstemp.CursorType=1rstemp.LockType=1else…‘代表后台数据库是其它数据库管理系统(代码略)endifrstemp.Source=que
8、ryrstemp.open‘判断查询过程中是否出现错误ifconntemp.errors.count>0thendata_getting=falsercount=0else‘如果查询过程中未出现错误,将查询结果存放到指定的二维数组中rcount=rstemp.recordcount'记录集行数ifrcount=0thendata_getting=trueelsedata_getting=tru
此文档下载收益归作者所有