|
经过多次研究写出了如下代码，有需要的可以参考下
复制代码 代码如下:
kd=server.HTMLEncode(request("keyword"))
if kdlt;gt;"" then
nbsp;nbsp;nbsp; kd=trim(kd)
'kd=replace(kd," ","")
nbsp; kd=replace(kd,"'","")
nbsp; kd=replace(kd,"%","")
nbsp; kd=replace(kd,""," ")
nbsp; kd=replace(kd,"gt;","gt;")
nbsp; kd=replace(kd,"lt;","lt;")
nbsp; kd=replace(kd,","," ")
nbsp; kd=replace(kd,"，"," ")
nbsp; 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 keyarrlgt;0 then
sqlk=sqlk" and title like '%"keyarr(I)"%'"
else
sqlk=sqlk"and title like '%"keyarr(I)"%'"
end if
Next
nbsp;nbsp; if idlt;gt;"" then
nbsp;nbsp;nbsp; sql="select top 1000 id,title from news where type_id in ("sqqq") "sqlk" order by isshow ,shengcheng,id desc"
nbsp;nbsp; else
nbsp;nbsp;nbsp; sql="select top 1000 id,title from news where idlt;gt;0 "sqlk" order by isshow ,shengcheng,id desc"
nbsp;nbsp; end if
nbsp;nbsp; else
nbsp;nbsp; if idlt;gt;"" then
nbsp;nbsp;nbsp; sql="select top 1000 id,title from news where type_id in ("sqqq") order by isshow ,shengcheng,id desc"
nbsp;nbsp; else
nbsp;nbsp;nbsp; sql="select top 1000 id,title from news where idlt;gt;0 order by isshow ,shengcheng,id desc"
nbsp;nbsp; end if
nbsp;nbsp; end if
ASP 多条件符合查询代码实例2
asp的多条件符合查询语句，自己写的，拿出来分享一下，绝对原创。请多指教!
复制代码 代码如下:
lt;%
nbsp;dim qy
nbsp; qy=0
nbsp; if request.form("stu_name")lt;gt;"" thennbsp;nbsp;nbsp;nbsp;nbsp;nbsp; '第一个条件表单传递的数据
nbsp;nbsp; str="stu_name='"request.form("stu_name")"'"
nbsp;nbsp; qy=qy+1
nbsp; end if
nbsp; if request.form("stu_num")lt;gt;"" thennbsp;nbsp;nbsp;nbsp; '第二个条件表单传递的数据
nbsp;nbsp; if qy=0 then
nbsp;nbsp;nbsp; str=str"stu_number='"request.form("stu_num")"'"
nbsp;nbsp; else
nbsp;nbsp;nbsp; str=str"and stu_number='"request.form("stu_num")"'"
nbsp;nbsp; end if
nbsp;nbsp; qy=qy+1
nbsp; end if
nbsp; if request.form("stu_xibie")lt;gt;"" thennbsp;nbsp;nbsp;nbsp; '第三个条件表单传递的数据
nbsp;nbsp; if qy=0 then
nbsp;nbsp;nbsp; str=str"stu_xibie='"request.form("stu_xibie")"'"
nbsp;nbsp; else
nbsp;nbsp;nbsp; str=str"and stu_xibie='"request.form("stu_xibie")"'"
nbsp;nbsp; end if
nbsp;nbsp; qy=qy+1
nbsp; end if
nbsp; if request.form("stu_class")lt;gt;"" then
nbsp;nbsp; if qy=0 then
nbsp;nbsp;nbsp; str=str"stu_class='"request.form("stu_class")"'"
nbsp;nbsp; else
nbsp;nbsp;nbsp; str=str"and stu_class='"request.form("stu_class")"'"
nbsp;nbsp; end if
nbsp;nbsp; qy=qy+1
nbsp; end if
nbsp; if request.form("stu_year")lt;gt;"" then
nbsp;nbsp; if qy=0 then
nbsp;nbsp;nbsp; str=str"stu_year='"request.form("stu_year")"'"
nbsp;nbsp; else
nbsp;nbsp;nbsp; str=str"and stu_year='"request.form("stu_year")"'"
nbsp;nbsp; end if
nbsp;nbsp; qy=qy+1
nbsp; end if
nbsp;sql="select * from [students] where "str
Set rs=Conn.Execute(sql)nbsp;nbsp; '执行sql语句
%gt;
运行环境：IIS
脚本语言：VBScript
数据库：Access/SQL Server
数据库语言：SQL
1．概要：
不论是在论坛，还是新闻系统，或是下载系统等动态网站中，大家经常会看到搜索功能：搜索帖子，搜索用户，搜索软件（总之搜索关键字）等，本文则是介绍如何建立一个高效实用的，基于ASP的站内多值搜索。
本文面对的是“多条件模糊匹配搜索”，理解了多条件的，单一条件搜索也不过小菜一碟了。一般来讲，有两种方法进行多条件搜索：枚举法和递进法。搜索条件不太多时（nlt;=3）,可使用枚举法，其语句频度为2的n次方，成指数增长，n为条件数。很明显，当条件增多以后，无论从程序的效率还是可实现性考虑都应采用递进法，其语句频度为n，成线性增长。需要指出的是，枚举法思路非常简单，一一判断条件是否为空，再按非空条件搜索，同时可以利用真值表技术来对付条件极多的情况（相信没人去干这种事，4条件时就已经要写16组语句了）；递进法的思想方法较为巧妙，重在理解，其巧就巧在一是使用了标志位（flag）,二是妙用SQL中字符串连接符。下面以实例来讲解引擎的建立。
2．实例：
我们建立一通讯录查询引擎，数据库名为addressbook.mdb,表名为address,字段如下：
ID Name Tel School
1 张 三 33333333 电子科技大学计算机系
2 李 四 44444444 四川大学生物系
3 王 二 22222222 西南交通大学建筑系
… … … …
Web搜索界面如下：
姓名： 电话： 学校： 搜索按钮
采用枚举法的源程序如下：
复制代码 代码如下:
lt;%@ CODEPAGE = "936" %gt;
'连接数据库
lt;%
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)lt;gt;"" then
sql="select * from address where School like '%"trim(School)"%' order by ID asc"
end if
if trim(Name)="" and trim(Tel)lt;gt;"" 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)lt;gt;"" and trim(School)lt;gt;"" then
sql="select * from address where Tel like '%"trim(Tel)"%' and School like '%"trim(School)"%' order by ID asc"
end if
if trim(Name)lt;gt;"" 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)lt;gt;"" and trim(Tel)="" and trim(School)lt;gt;"" then
sql="select * from address where Name like '%"trim(Name)"%' and School like '%"trim(School)"%' order by ID asc"
end if
if trim(Name)lt;gt;"" and trim(Tel)lt;gt;"" 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)lt;gt;"" and trim(Tel)lt;gt;"" and trim(School)lt;gt;"" 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")"lt;brgt;"
rs.movenext
loop
end if
'断开数据库
set rs=nothing
conn.close
set conn=nothing
%gt;
理解上述程序时，着重琢磨核心部分，8组语句一一对应了3个搜索框中的8种状态
Name Tel School
空 空 空
空 空 非空
空 非空 空
空 非空 非空
非空 空 空
非空 空 非空
非空 非空 空
非空 非空 非空
另外trim()是VB的函数，将输入的字符串前后的空格去掉；%是SQL语言中的多字符通配符（_是单字符通配符），由此可见%"trim()"%对搜索框中输入的关键字是分别向左向右匹配的；SQL语言中用and连接说明非空条件之间是“与”关系。
再来看看递进法，与枚举法相比它们只有核心部分不同：
'递进法的搜索核心，依次判断条件为空否，非空则将其加入搜索条件
复制代码 代码如下:
sql="select * from address where"
if Namelt;gt;"" then
sql=sql" Name like '%"Name"%' "
flag=1
end if
if Tellt;gt;"" and flag=1 then
sql=sql" and Tel like '%"Tel"%'"
flag=1
elseif Tellt;gt;"" then
sql=sql" Tel like '%"Tel"%'"
flag=1
end if
if Companylt;gt;"" and flag=1 then
sql=sql" and Company like '%"Company"%'"
flag=1
elseif Company lt;gt;"" 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不为空时，即Tellt;gt;"" 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--
…
lt;a href=test.asp?content=test%the%signgt;click herelt;/agt;
…
--test.asp--
lt;%
content=request(“content”)
response.write content
%gt;
在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中常用的用空格来分开搜索条件的搜索引擎了吗？
补充功能：如果我们要实现查询同一个表中的标题和内容 但想按这二个的顺序来排列 比如 查到与标题符合的先显示出来 而与内容符合的则显示在标题的后面 如何实现呢？
sql="select * from product where title like '%"keyword"%' "
sql=sql + " union select * from product where content like '%"keyword"%' order by id desc"
两条SQL语句中间加一个,union 就可以联合查询,但列必须一样,还有排序条件也同样是一个.
我们将用到UNION的联合查询，这将能实现以上的功能。
分析：数据库查询 将先按与title的数据实现查询 然后再将实现与content的数据查询 故则有先后之分。 （编辑：源码网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
