ASP多条件查询功能实现代码(多关键词查询)
经过多次研究写出了如下代码，有需要的可以参考下
kd=server.HTMLEncode(request("keyword"))
ifkd<>""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)
ForI=0tokeyarrl
ifkeyarrl>0then
sqlk=sqlk&"andtitlelike'%"&keyarr(I)&"%'"
else
sqlk=sqlk&"andtitlelike'%"&keyarr(I)&"%'"
endif
Next
ifid<>""then
sql="selecttop1000id,titlefromnewswheretype_idin("&sqqq&")"&sqlk&"orderbyisshow,shengcheng,iddesc"
else
sql="selecttop1000id,titlefromnewswhereid<>0"&sqlk&"orderbyisshow,shengcheng,iddesc"
endif
else
ifid<>""then
sql="selecttop1000id,titlefromnewswheretype_idin("&sqqq&")orderbyisshow,shengcheng,iddesc"
else
sql="selecttop1000id,titlefromnewswhereid<>0orderbyisshow,shengcheng,iddesc"
endif
endif
ASP多条件符合查询代码实例2
asp的多条件符合查询语句，自己写的，拿出来分享一下，绝对原创。请多指教!
<%
dimqy
qy=0
ifrequest.form("stu_name")<>""then '第一个条件表单传递的数据
str="stu_name='"&request.form("stu_name")&"'"
qy=qy+1
endif
ifrequest.form("stu_num")<>""then '第二个条件表单传递的数据
ifqy=0then
str=str&"stu_number='"&request.form("stu_num")&"'"
else
str=str&"andstu_number='"&request.form("stu_num")&"'"
endif
qy=qy+1
endif
ifrequest.form("stu_xibie")<>""then '第三个条件表单传递的数据
ifqy=0then
str=str&"stu_xibie='"&request.form("stu_xibie")&"'"
else
str=str&"andstu_xibie='"&request.form("stu_xibie")&"'"
endif
qy=qy+1
endif
ifrequest.form("stu_class")<>""then
ifqy=0then
str=str&"stu_class='"&request.form("stu_class")&"'"
else
str=str&"andstu_class='"&request.form("stu_class")&"'"
endif
qy=qy+1
endif
ifrequest.form("stu_year")<>""then
ifqy=0then
str=str&"stu_year='"&request.form("stu_year")&"'"
else
str=str&"andstu_year='"&request.form("stu_year")&"'"
endif
qy=qy+1
endif
sql="select*from[students]where"&str
Setrs=Conn.Execute(sql) '执行sql语句
%>
运行环境：IIS
脚本语言：VBScript
数据库：Access/SQLServer
数据库语言：SQL
1．概要：
不论是在论坛，还是新闻系统，或是下载系统等动态网站中，大家经常会看到搜索功能：搜索帖子，搜索用户，搜索软件（总之搜索关键字）等，本文则是介绍如何建立一个高效实用的，基于ASP的站内多值搜索。
本文面对的是“多条件模糊匹配搜索”，理解了多条件的，单一条件搜索也不过小菜一碟了。一般来讲，有两种方法进行多条件搜索：枚举法和递进法。搜索条件不太多时（n<=3）,可使用枚举法，其语句频度为2的n次方，成指数增长，n为条件数。很明显，当条件增多以后，无论从程序的效率还是可实现性考虑都应采用递进法，其语句频度为n，成线性增长。需要指出的是，枚举法思路非常简单，一一判断条件是否为空，再按非空条件搜索，同时可以利用真值表技术来对付条件极多的情况（相信没人去干这种事，4条件时就已经要写16组语句了）；递进法的思想方法较为巧妙，重在理解，其巧就巧在一是使用了标志位（flag）,二是妙用SQL中字符串连接符&。下面以实例来讲解引擎的建立。
2．实例：
我们建立一通讯录查询引擎，数据库名为addressbook.mdb,表名为address,字段如下：
IDNameTelSchool
1张三33333333电子科技大学计算机系
2李四44444444四川大学生物系
3王二22222222西南交通大学建筑系
…………
Web搜索界面如下：
姓名：电话：学校：搜索按钮
采用枚举法的源程序如下：
<%@CODEPAGE="936"%>
'连接数据库
<%
dimconn
dimDBOath
dimrs
dimsql
Setconn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("addressbook.mdb")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
Setrs=Server.CreateObject("ADODB.Recordset")
'从Web页获取姓名、电话、学校的值
dimName
dimTel
dimSchool
Name=request("Name")
Tel=request("Tel")
School=request("School")
'枚举法的搜索核心，因为有3个条件所以要写8组If判断语句
iftrim(Name)=""andtrim(Tel)=""andtrim(School)=""then
sql="select*fromaddressorderbyIDasc"
endif
iftrim(Name)=""andtrim(Tel)=""andtrim(School)<>""then
sql="select*fromaddresswhereSchoollike'%"&trim(School)&"%'orderbyIDasc"
endif
iftrim(Name)=""andtrim(Tel)<>""andtrim(School)=""then
sql="select*fromaddresswhereTellike'%"&trim(Tel)&"%'orderbyIDasc"
endif
iftrim(Name)=""andtrim(Tel)<>""andtrim(School)<>""then
sql="select*fromaddresswhereTellike'%"&trim(Tel)&"%'andSchoollike'%"&trim(School)&"%'orderbyIDasc"
endif
iftrim(Name)<>""andtrim(Tel)=""andtrim(School)=""then
sql="select*fromaddresswhereNamelike'%"&trim(Name)&"%'orderbyIDasc"
endif
iftrim(Name)<>""andtrim(Tel)=""andtrim(School)<>""then
sql="select*fromaddresswhereNamelike'%"&trim(Name)&"%'andSchoollike'%"&trim(School)&"%'orderbyIDasc"
endif
iftrim(Name)<>""andtrim(Tel)<>""andtrim(School)=""then
sql="select*fromaddresswhereNamelike'%"&trim(Name)&"%'andTellike'%"&trim(Tel)&"%'orderbyIDasc"
endif
iftrim(Name)<>""andtrim(Tel)<>""andtrim(School)<>""then
sql="select*fromaddresswhereNamelike'%"&trim(Name)&"%'andTellike'%"&trim(Tel)&"%'andSchoollike'%"&trim(School)&"%'orderbyIDasc"
endif
rs.opensql,conn,1,1
'显示搜索结果
ifrs.eofandrs.bofthen
response.write"目前通讯录中没有记录"
else
dowhilenotrs.eof
response.write"姓名："&rs("Name")&"电话："&rs("Tel")&"学校："&rs("School")&"<br>"
rs.movenext
loop
endif
'断开数据库
setrs=nothing
conn.close
setconn=nothing
%>
理解上述程序时，着重琢磨核心部分，8组语句一一对应了3个搜索框中的8种状态
NameTelSchool
空空空
空空非空
空非空空
空非空非空
非空空空
非空空非空
非空非空空
非空非空非空
另外trim()是VB的函数，将输入的字符串前后的空格去掉；%是SQL语言中的多字符通配符（_是单字符通配符），由此可见%"&trim()&"%对搜索框中输入的关键字是分别向左向右匹配的；SQL语言中用and连接说明非空条件之间是“与”关系。
再来看看递进法，与枚举法相比它们只有核心部分不同：
'递进法的搜索核心，依次判断条件为空否，非空则将其加入搜索条件
sql="select*fromaddresswhere" ifName<>""then sql=sql&"Namelike'%"&Name&"%'" flag=1 endif ifTel<>""andflag=1then sql=sql&"andTellike'%"&Tel&"%'" flag=1 elseifTel<>""then sql=sql&"Tellike'%"&Tel&"%'" flag=1 endif ifCompany<>""andflag=1then sql=sql&"andCompanylike'%"&Company&"%'" flag=1 elseifCompany<>""then sql=sql&"Companylike'%"&Company&"%'" flag=1 endif ifflag=0then sql="select*fromaddressorderbyIDasc" endif rs.opensql,conn,1,1
递进法是一个明智的算法，单从语句的长短就可以看出来了。这个算法的难点和精髓就在flag和&上。首先你应该清楚&在SQL中就是一个字符串连接符，把该符号左右的字符拼接在一起。再回到程序，当Name不为空时sql="select*fromaddresswhereNamelike'%"&Name&"%'"同时flag=1；接下来当Name不为空时且Tel不为空时，即Tel<>""andflag=1时，sql="select*fromaddresswhereNamelike'%"&Name&"%'andTellike'%"&Tel&"%'"同时flag=1，否则当Name为空Tel不为空，sql="select*fromaddresswhereTellike'%"&Tel&"%'"同时flag=1；以此类推就可以推广到n个条件的搜索。当然条件皆为空时，即flag=0将选择所有表中所有项。
3．验证：
至此，一个搜索引擎就建立起来了。以下是一些使用示例：
姓名：张电话：学校：搜索按钮
搜索结果为：
姓名：张三电话：33333333单位：电子科技大学计算机系
姓名：电话：学校：大学搜索按钮
搜索结果为：
姓名：张三电话：33333333单位：电子科技大学计算机系
姓名李四电话：44444444单位：四川大学生物系
姓名：王二电话：22222222单位：西南交通大学建筑系
姓名：电话：4444学校：四川搜索按钮
搜索结果为：
姓名李四电话：44444444单位：四川大学生物系
姓名：电话：学校：交%大搜索按钮
搜索结果为：
姓名：王二电话：22222222单位：西南交通大学建筑系
4．改进：
其实这个引擎还有些缺陷，问题主要在于通配符%。一方面是因为人们平时习惯把*作为通配符，另一方面%若出现在超链接中，通过request获取时%将被“吃”掉，如下：
--test.htm-- … <ahref=test.asp?content=test%the%sign>clickhere</a> …
--test.asp-- <% content=request(“content”) response.writecontent %>
在IE中浏览test.htm时点击超链接，显示为： testthesign 可见%直接被超链接忽略掉了。怎么才能解决这个问题呢？很简单，我们做点小小的手脚--偷梁换柱。 将以下代码加在搜索核心之前： Name=replace(Name,"*","%") Tel=replace(Tel,"*","%") Company=replace(Company,"*","%") 将以下代码加在搜索核心之后： Name=replace(Name,"%","*") Tel=replace(Tel,"%","*") Company=replace(Company,"%","*")