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.       验证：

至此，一个搜索引擎就建立起来了。以下是一些使用示例：

姓名：张

电话：

学校：

搜索按钮

搜索结果为：

姓名：

电话：

学校：大学

搜索按钮

搜索结果为：

姓名：

电话：4444

学校：四川

搜索按钮

搜索结果为：

姓名：

电话：

学校：交%大

搜索按钮

搜索结果为：

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中常用的用空格来分开搜索条件的搜索引擎了吗？自己动手，你也可以做一个“多条件模糊匹配”的搜索引擎了。



写这篇文章的时候，还不知blog为何物。今天整理文档，翻出来发上来，希望还没过时。

西南交通大学建筑系

将上面的语句再改一改，把*用空格代替，不就成了我们在google、baidu中常用的用空格来分开搜索条件的搜索引擎了吗？自己动手，你也可以做一个“多条件模糊匹配”的搜索引擎了。



写这篇文章的时候，还不知blog为何物。今天整理文档，翻出来发上来，希望还没过时。

文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!