分享
 
 
 

将上面的语句再改一改,把*用空格代替,不就成了我们在Google、BaiDu中常用的用空格来分开搜索条件的搜索引擎了吗?

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

运行环境: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 DBOath

dim rs

dim sql

Set conn=Server.CreateObject("ADODB.Connection")

DBPath = Server.MapPath("addressbook.mdb")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs=Server.CreateObject("ADODB.Recordset")

'从Web页获取姓名、电话、学校的值

dim Name

dim Tel

dim School

Name=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 if

rs.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

loop

end 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<>"" then

sql=sql&" Name like '%"&Name&"%' "

flag=1

end if

if Tel<>"" and flag=1 then

sql=sql&" and Tel like '%"&Tel&"%'"

flag=1

elseif Tel<>"" then

sql=sql&" Tel like '%"&Tel&"%'"

flag=1

end if

if Company<>"" and flag=1 then

sql=sql&" and Company like '%"&Company&"%'"

flag=1

elseif Company <>"" then

sql=sql&" Company like '%"&Company&"%'"

flag=1

end if

if flag=0 then

sql="select * from address order by ID asc"

end if

rs.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中常用的用空格来分开搜索条件的搜索引擎了吗?

运行环境: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 DBOath

dim rs

dim sql

Set conn=Server.CreateObject("ADODB.Connection")

DBPath = Server.MapPath("addressbook.mdb")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs=Server.CreateObject("ADODB.Recordset")

'从Web页获取姓名、电话、学校的值

dim Name

dim Tel

dim School

Name=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 if

rs.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

loop

end 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<>"" then

sql=sql&" Name like '%"&Name&"%' "

flag=1

end if

if Tel<>"" and flag=1 then

sql=sql&" and Tel like '%"&Tel&"%'"

flag=1

elseif Tel<>"" then

sql=sql&" Tel like '%"&Tel&"%'"

flag=1

end if

if Company<>"" and flag=1 then

sql=sql&" and Company like '%"&Company&"%'"

flag=1

elseif Company <>"" then

sql=sql&" Company like '%"&Company&"%'"

flag=1

end if

if flag=0 then

sql="select * from address order by ID asc"

end if

rs.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中常用的用空格来分开搜索条件的搜索引擎了吗?

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有