ASP多条件查询功能实现代码(多关键词查询)

摘要：经过多次研究写出了如下代码，有需要的可以参考下复制代码代码如下:kd=server.HTMLEncode(request("keyword"...

经过多次研究写出了如下代码，有需要的可以参考下

复制代码代码如下:

kd=server.HTMLEncode(request("keyword"))

if kd<>"" then

kd=trim(kd)

'kd=replace(kd," ","")

kd=replace(kd,"'","")

kd=replace(kd,"%","")

kd=replace(kd,""," ")

kd=replace(kd,">",">")

kd=replace(kd,"<","<")

kd=replace(kd,","," ")

kd=replace(kd,"，"," ")

kd=replace(kd,"|"," ")

kd=replace(kd,";"," ")

kd=replace(kd,":"," ")

kd=replace(kd,"："," ")

kd=replace(kd,"；"," ")

'上面的是先替换一些特殊字符，方便输入一些特殊的分隔符

keyarr= Split(kd," ")

keyarrl=ubound(keyarr)

For I = 0 to keyarrl

if keyarrl>0 then

sqlk=sqlk&" and title like '%"&keyarr(I)&"%'"

else

sqlk=sqlk&"and title like '%"&keyarr(I)&"%'"

end if

if id<>"" then

sql="select top 1000 id,title from news where type_id in ("&sqqq&") "&sqlk&" order by isshow ,shengcheng,id desc"

else

sql="select top 1000 id,title from news where id<>0 "&sqlk&" order by isshow ,shengcheng,id desc"

end if

else

if id<>"" then

sql="select top 1000 id,title from news where type_id in ("&sqqq&") order by isshow ,shengcheng,id desc"

else

sql="select top 1000 id,title from news where id<>0 order by isshow ,shengcheng,id desc"

end if

ASP 多条件符合查询代码实例2

asp的多条件符合查询语句，自己写的，拿出来分享一下，绝对原创。请多指教!

复制代码代码如下:

dim qy

qy=0

if request.form("stu_name")<>"" then '第一个条件表单传递的数据

str="stu_name='"&request.form("stu_name")&"'"

qy=qy+1

end if

if request.form("stu_num")<>"" then '第二个条件表单传递的数据

if qy=0 then

str=str&"stu_number='"&request.form("stu_num")&"'"

else

str=str&"and stu_number='"&request.form("stu_num")&"'"

end if

qy=qy+1

end if

if request.form("stu_xibie")<>"" then '第三个条件表单传递的数据

if qy=0 then

str=str&"stu_xibie='"&request.form("stu_xibie")&"'"

else

str=str&"and stu_xibie='"&request.form("stu_xibie")&"'"

end if

qy=qy+1

end if

if request.form("stu_class")<>"" then

if qy=0 then

str=str&"stu_class='"&request.form("stu_class")&"'"

else

str=str&"and stu_class='"&request.form("stu_class")&"'"

end if

qy=qy+1

end if

if request.form("stu_year")<>"" then

if qy=0 then

str=str&"stu_year='"&request.form("stu_year")&"'"

else

str=str&"and stu_year='"&request.form("stu_year")&"'"

end if

qy=qy+1

end if

sql="select * from [students] where "&str

Set rs=Conn.Execute(sql) '执行sql语句

运行环境：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 学校：四川搜索按钮

搜索结果为：