基于ASP的站内多值搜索

2018-05-03 14:17:15 次阅读稿源：互联网

零七广告

运行环境：IIS脚本语言：VBScript数据库：Access/SQL Server数据库语言：SQL 1．概要：
　　不论是在论坛，还是新闻系统，或是下载系统等动态网站中，大家经常会看到搜索功能：搜索帖子，搜索用户，搜索软件（总之搜索关键字）等，本文则是介绍如何建立一个高效实用的，基于ASP的站内多值搜索。
　　
　　本文面对的是“多条件模糊匹配搜索”，理解了多条件的，单一条件搜索也不过小菜一碟了。一般来讲，有两种方法进行多条件搜索：枚举法和递进法。搜索条件不太多时（n<=3）,可使用枚举法，其语句频度为2的n次方，成指数增长，n为条件数。很明显，当条件增多以后，无论从程序的效率还是可实现性考虑都应采用递进法，其语句频度为n，成线性增长。需要指出的是，枚举法思路非常简单，一一判断条件是否为空，再按非空条件搜索，同时可以利用真值表技术来对付条件极多的情况（相信没人去干这种事，4条件时就已经要写16组语句了）；递进法的思想方法较为巧妙，重在理解，其巧就巧在一是使用了标志位（flag）,二是妙用SQL中字符串连接符&。下面以实例来讲解引擎的建立。
　　
　　2．实例：
　　我们建立一通讯录查询引擎，数据库名为addressbook.mdb,表名为address,字段如下：
　　
　　

ID	Name	Tel	School
1	张三	33333333	电子科技大学计算机系
2	李四	44444444	四川大学生物系
3	王二	22222222	西南交通大学建筑系
…	…	…	…

　　Web搜索界面如下：
　　
　　

姓名：

电话：

学校：

搜索按钮

　　采用枚举法的源程序如下：<%@ CODEPAGE = "936" %>'连接数据库<%dim conn dim DBOathdim rsdim sql Set conn=Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("addressbook.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathSet rs=Server.CreateObject("ADODB.Recordset")'从Web页获取姓名、电话、学校的值dim Namedim Teldim SchoolName=request("Name")Tel=request("Tel")School=request("School")'枚举法的搜索核心，因为有3个条件所以要写8组If判断语句 if trim(Name)="" and trim(Tel)="" and trim(School)="" then sql="select * from address order by ID asc" end if if trim(Name)="" and trim(Tel)="" and trim(School)<>"" then sql="select * from address where School like '%"&trim(School)&"%' order by ID asc" end if if trim(Name)="" and trim(Tel)<>"" and trim(School)="" then sql="select * from address where Tel like '%"&trim(Tel)&"%' order by ID asc" end if if trim(Name)="" and trim(Tel)<>"" and trim(School)<>"" then sql="select * from address where Tel like '%"&trim(Tel)&"%' and School like '%"&trim(School)&"%' order by ID asc" end if if trim(Name)<>"" and trim(Tel)="" and trim(School)="" then sql="select * from address where Name like '%"&trim(Name)&"%' order by ID asc" end if if trim(Name)<>"" and trim(Tel)="" and trim(School)<>"" then sql="select * from address where Name like '%"&trim(Name)&"%' and School like '%"&trim(School)&"%' order by ID asc" end if if trim(Name)<>"" and trim(Tel)<>"" and trim(School)="" then sql="select * from address where Name like '%"&trim(Name)&"%' and Tel like '%"&trim(Tel)&"%' order by ID asc" end if if trim(Name)<>"" and trim(Tel)<>"" and trim(School)<>"" then sql="select * from address where Name like '%"&trim(Name)&"%' and Tel like '%"&trim(Tel)&"%' and School like '%"&trim(School)&"%' order by ID asc" end ifrs.open sql,conn,1,1'显示搜索结果if rs.eof and rs.bof then response.write "目前通讯录中没有记录"else do while not rs.eof response.write "姓名："&rs("Name")&"电话："&rs("Tel")&"学校："&rs("School")&"<br>" rs.movenext loopend if'断开数据库set rs=nothing conn.close set conn=nothing%>
　　
　　理解上述程序时，着重琢磨核心部分，8组语句一一对应了3个搜索框中的8种状态
　　
　　

Name	Tel	School
空	空	空
空	空	非空
空	非空	空
空	非空	非空
非空	空	空
非空	空	非空
非空	非空	空
非空	非空	非空

　　另外trim()是VB的函数，将输入的字符串前后的空格去掉；%是SQL语言中的多字符通配符（_是单字符通配符），由此可见%"&trim()&"%对搜索框中输入的关键字是分别向左向右匹配的；SQL语言中用and连接说明非空条件之间是“与”关系。 再来看看递进法，与枚举法相比它们只有核心部分不同：'递进法的搜索核心，依次判断条件为空否，非空则将其加入搜索条件sql="select * from address where"if Name<>"" thensql=sql&" Name like '%"&Name&"%' " flag=1end ifif Tel<>"" and flag=1 thensql=sql&" and Tel like '%"&Tel&"%'"flag=1elseif Tel<>"" thensql=sql&" Tel like '%"&Tel&"%'"flag=1end ifif Company<>"" and flag=1 thensql=sql&" and Company like '%"&Company&"%'"flag=1elseif Company <>"" thensql=sql&" Company like '%"&Company&"%'"flag=1end if if flag=0 then sql="select * from address order by ID asc"end ifrs.open sql,conn,1,1
　　
　　递进法是一个明智的算法，单从语句的长短就可以看出来了。这个算法的难点和精髓就在flag和&上。首先你应该清楚&在SQL中就是一个字符串连接符，把该符号左右的字符拼接在一起。再回到程序，当Name不为空时sql="select * from address where Name like '%"&Name&"%' "同时flag=1；接下来当Name不为空时且Tel不为空时，即Tel<>"" and flag=1时，sql="select * from address where Name like '%"&Name&"%' and Tel like '%"&Tel&"%' "同时flag=1，否则当Name为空Tel不为空，sql="select * from address where Tel like '%"&Tel&"%' "同时flag=1；以此类推就可以推广到n个条件的搜索。当然条件皆为空时，即flag=0将选择所有表中所有项。
　　
　　3．验证：
　　
　　至此，一个搜索引擎就建立起来了。以下是一些使用示例：
　　
　　

姓名：张

电话：

学校：

搜索按钮

搜索结果为：
　　姓名：张三电话：33333333 单位：电子科技大学计算机系

姓名：

电话：

学校：大学

搜索按钮

搜索结果为：姓名：张三电话：33333333 单位：电子科技大学计算机系姓名李四电话：44444444 单位：四川大学生物系姓名：王二电话：22222222 单位：西南交通大学建筑系
　　
　　

姓名：

电话：4444

学校：四川

搜索按钮

搜索结果为：姓名李四电话：44444444 单位：四川大学生物系
　　
　　

姓名：

电话：

学校：交%大

搜索按钮

搜索结果为：姓名：王二电话：22222222 单位：西南交通大学建筑系
　　
　　4．改进：
　　其实这个引擎还有些缺陷，问题主要在于通配符%。一方面是因为人们平时习惯把*作为通配符，另一方面%若出现在超链接中，通过request获取时%将被“吃”掉，如下：
　　
　　--test.htm--
　　…
　　<a href=test.asp？content=test%the%sign>click here</a>
　　…
　　
　　--test.asp--
　　<%
　　content=request(“content”)
　　response.write content
　　%>
　　
　　在IE中浏览test.htm时点击超链接，显示为：
　　testthesign
　　可见%直接被超链接忽略掉了。怎么才能解决这个问题呢？很简单，我们做点小小的手脚--偷梁换柱。
　　将以下代码加在搜索核心之前：
　　Name=replace(Name,"*","%")
　　Tel=replace(Tel,"*","%")
　　Company=replace(Company,"*","%")
　　将以下代码加在搜索核心之后：
　　Name=replace(Name,"%","*")
　　Tel=replace(Tel,"%","*")
　　Company=replace(Company,"%","*")
　　在我们来分析一下这些语句。replace()是VB中字符串替换函数，replace(Name,"*","%") 就是将Name中所有的*换成%。也就是说，我们把3个条件中凡是出现的*都替换为%，这样一来前3句就将通配符改成*了。而后3句就可以防止%被“吃”掉。所有问题就迎刃而解了吧。
　　
　　

姓名：

电话：

学校：交%大

搜索按钮

　　搜索结果为：
　　姓名：王二电话：22222222 单位：西南交通大学建筑系
　　
　　将上面的语句再改一改，把*用空格代替，不就成了我们在Google、BaiDu中常用的用空格来分开搜索条件的搜索引擎了吗？

ID	Name	Tel	School
1	张三	33333333	电子科技大学计算机系
2	李四	44444444	四川大学生物系
3	王二	22222222	西南交通大学建筑系
…	…	…	…

　　Web搜索界面如下：
　　
　　

姓名：

电话：

学校：

搜索按钮

Name	Tel	School
空	空	空
空	空	非空
空	非空	空
空	非空	非空
非空	空	空
非空	空	非空
非空	非空	空
非空	非空	非空

姓名：张

电话：

学校：

搜索按钮

搜索结果为：
　　姓名：张三电话：33333333 单位：电子科技大学计算机系

姓名：

电话：

学校：大学

搜索按钮

姓名：

电话：4444

学校：四川

搜索按钮

搜索结果为：姓名李四电话：44444444 单位：四川大学生物系
　　
　　

姓名：

电话：

学校：交%大

搜索按钮

姓名：

电话：

学校：交%大

搜索按钮

零七网部分新闻及文章转载自互联网，供读者交流和学习，若有涉及作者版权等问题请及时与我们联系，以便更正、删除或按规定办理。感谢所有提供资讯的网站，欢迎各类媒体与零七网进行文章共享合作。

零七广告

广
告

ASP编程

编程开发

基于ASP的站内多值搜索

最新ASP编程

热点ASP编程