客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
经过多次研究写出了如下代码，有需要的可以参考下 复制代码 代码如下: 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 Next 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 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．实例： ID Name Tel School 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 学校：四川 搜索按钮 搜索结果为： 姓名： 电话： 学校：交%大 搜索按钮 搜索结果为： 姓名：王二 电话：22222222 单位：西南交通大学建筑系 4．改进： 复制代码 代码如下: --test.htm-- … <a href=test.asp?content=test%the%sign>click here</a> … --test.asp-- 在IE中浏览test.htm时点击超链接，显示为： 在我们来分析一下这些语句。replace()是VB中字符串替换函数，replace(Name,"*","%") 就是将Name中所有的*换成%。也就是说，我们把3个条件中凡是出现的*都替换为%，这样一来前3句就将通配符改成*了。而后3句就可以防止%被“吃”掉。所有问题就迎刃而解了吧。 姓名： 电话： 学校：交%大 搜索按钮 搜索结果为： 将上面的语句再改一改，把*用空格代替，不就成了我们在Google、BaiDu中常用的用空格来分开搜索条件的搜索引擎了吗？ 补充功能：如果我们要实现查询同一个表中的标题和内容 但想按这二个的顺序来排列 比如 查到与标题符合的先显示出来 而与内容符合的则显示在标题的后面 如何实现呢？ sql="select * from product where title like '%"&keyword&"%' " 两条SQL语句中间加一个,union 就可以联合查询,但列必须一样,还有排序条件也同样是一个. 我们将用到UNION的联合查询，这将能实现以上的功能。 分析：数据库查询 将先按与title的数据实现查询 然后再将实现与content的数据查询 故则有先后之分。 |
请发表评论