无为清净楼资源网 Design By www.qnjia.com
比较简单直接的sql语句
Recordset1.Source = "SELECT * FROM 表 WHERE 字段 LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' or 字段2 like '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' ORDER BY id DESC" Recordset1.Source = "SELECT * FROM 表 WHERE 字段 LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' and 字段2 = 2 ORDER BY id DESC"
下面是一些补充
函数名:keyword_sousuo
作 用:生成sql查询条件
参 数:table_field ------ 表的字段名(之间用逗号分开)
keyword ------ 搜索关键词(之间用空格分开)
返 回:sql查询条件
核心代码
'================================================== '函数名:keyword_sousuo '作 用:生成sql查询条件 '参 数:table_field ------ 表的字段名(之间用逗号分开) ' keyword ------ 搜索关键词(之间用空格分开) '返 回:sql查询条件 '================================================== function keyword_sousuo(byval table_field,byval keyword) dim str01,str02,keywords,table_fields,i,j table_fields=split(trim(table_field),",") keywords=split(trim(keyword),",") if table_field<>"" then str01="("&table_fields(0)&" like '%"&keyword&"%'" for j=0 to ubound(table_fields) str01=str01&" or "&table_fields(j)&" like '%"&keyword&"%'" next str01=str01&")" else response.Write("<script>alert('参数错误(不能为空)!')</script>") response.End() end if '全角--》半角 空格 'keyword=replace(keyword," "," ") 'while InStr(keyword," ")>0 ' keyword=replace(keyword," "," ") 'wend keywords=split(keyword," ") if ubound(keywords)>0 then for i=0 to ubound(keywords) str02=str02&"("&table_fields(0)&" like '%"&keywords(i)&"%'" for j=1 to ubound(table_fields) str02=str02&" or "&table_fields(j)&" like '%"&keywords(i)&"%'" next str02=str02&")" next str02="("&replace(str02,")(",")and(")&")" keyword_sousuo="(" & str01 & "or" & str02 & ")" else keyword_sousuo=str01 end if end function '================================================== '函数名:keyword_tag '作 用:将字符串里的关键词标记为红色 '参 数:str ------ 字符串 ' keyword ------ 标记关键词(之间用空格分开) '返 回:字符串(html格式) '================================================== function keyword_tag(byval str,byval keyword) dim keywords,str01,str02,i '全角--》半角 空格 'keyword=replace(keyword," "," ") 'while InStr(keyword," ")>0 ' keyword=replace(keyword," "," ") 'wend str01=replace(str,keyword,"<font color=""#ff0000"">"&keyword&"</font>") keywords=split(keyword," ") if ubound(keywords)>0 then str02=str for i=0 to ubound(keywords) str02=replace(str02,keywords(i),"<font color=""#ff0000"">"&keywords(i)&"</font>") next keyword_tag=str02 else keyword_tag=str01 end if end function 以下是一个例子 http://www.zhouhaihe.com/blog/uploads/200604/recordread.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit dim conn,connstr,database connstr="DBQ="+server.mappath("record.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.CreateObject("adodb.connection") conn.open connstr dim n,rs,page,keyword,keywords,RecordCount,pageCount,pos,i,sql_where n=50 page=Request("page") keyword=trim(request("keyword")) sql_where=keyword_sousuo("title,cz,name,time",keyword) set rs=server.CreateObject("adodb.recordset") rs.open "select * from record where "&sql_where&" order by id desc",conn,1,2 if page=0 then page=1 end if RecordCount = 0 do while not rs.Eof RecordCount = RecordCount +1 rs.MoveNext loop if not RecordCount=0 then rs.MoveFirst end if pageCount=RecordCount/n pageCount=int(pageCount) if (RecordCount mod n)>0 then PageCount=PageCount +1 end if %> <style type="text/css"> <!-- .STYLE3 {color: #666666} --> </style> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <form id="form1" name="form1" method="post" action=""><tr><td align="center"><input name="keyword" type="text" id="keyword" value="<%=keyword%>" size="30" /> <input type="submit" name="Submit" value="搜索" /> <span class="STYLE3">(关键词之间用空格分开) </span></td> </tr></form> <tr> <td height="5"></td> </table> <table width="600" border="1" align="center" cellpadding="4"> <tr align="center"> <td width="131">标题</td> <td width="131">动作</td> <td width="131">用户名</td> <td width="132">时间</td> </tr> <%pos=0 do while pos<(page-1)*n pos=pos+1 rs.moveNext loop i=0 while not rs.eof and i<n i=i+1%> <tr align="center"> <td><%=keyword_tag(rs("title"),keyword)%></td> <td><%=keyword_tag(rs("cz"),keyword)%></td> <td><%=keyword_tag(rs("name"),keyword)%></td> <td><%=keyword_tag(rs("time"),keyword)%></td> </tr> <%rs.movenext wend rs.close set rs=nothing conn.close set conn=nothing '================================================== '函数名:keyword_sousuo '作 用:生成sql查询条件 '参 数:table_field ------ 表的字段名(之间用逗号分开) ' keyword ------ 搜索关键词(之间用空格分开) '返 回:sql查询条件 '================================================== function keyword_sousuo(byval table_field,byval keyword) dim str01,str02,keywords,table_fields,i,j table_fields=split(trim(table_field),",") keywords=split(trim(keyword),",") if table_field<>"" then str01="("&table_fields(0)&" like '%"&keyword&"%'" for j=0 to ubound(table_fields) str01=str01&" or "&table_fields(j)&" like '%"&keyword&"%'" next str01=str01&")" else response.Write("<script>alert('参数错误(不能为空)!')</script>") response.End() end if '全角--》半角 空格 keyword=replace(keyword," "," ") ' while InStr(keyword," ")>0 ' keyword=replace(keyword," "," ") 'wend keywords=split(keyword," ") if ubound(keywords)>0 then for i=0 to ubound(keywords) str02=str02&"("&table_fields(0)&" like '%"&keywords(i)&"%'" for j=1 to ubound(table_fields) str02=str02&" or "&table_fields(j)&" like '%"&keywords(i)&"%'" next str02=str02&")" next str02="("&replace(str02,")(",")and(")&")" keyword_sousuo="(" & str01 & "or" & str02 & ")" else keyword_sousuo=str01 end if end function '================================================== '函数名:keyword_tag '作 用:将字符串里的关键词标记为红色 '参 数:str ------ 字符串 ' keyword ------ 标记关键词(之间用空格分开) '返 回:字符串(html格式) '================================================== function keyword_tag(byval str,byval keyword) dim keywords,str01,str02,i '全角--》半角 空格 keyword=replace(keyword," "," ") 'while InStr(keyword," ")>0 ' keyword=replace(keyword," "," ") 'wend str01=replace(str,keyword,"<font color=""#ff0000"">"&keyword&"</font>") keywords=split(keyword," ") if ubound(keywords)>0 then str02=str for i=0 to ubound(keywords) str02=replace(str02,keywords(i),"<font color=""#ff0000"">"&keywords(i)&"</font>") next keyword_tag=str02 else keyword_tag=str01 end if end function dim y %> <tr align="center"> <td colspan="4"> <%=RecordCount%>个 <font color="#FF0000"><%=page%></font>/<%=pageCount%>页 <%=n%>个/页 转到: <SELECT name="select" onchange=window.open(this.options[selectedIndex].value,'_self') > <%y=1 do while y<pagecount+1%> <OPTION value=" selected") end if%> >第<%=y%>页</OPTION> <%y=y+1 loop%> </SELECT></td> </tr> </table>
文章就介绍到这了,希望大家以后多多支持。
标签:
asp,多字段,模糊搜索
无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com
暂无评论...
更新日志
2024年09月25日
2024年09月25日
- 纯音入心系列纯音乐《天籁古筝》1CD[MP3][331MB]
- 男女对唱典藏天碟《发烧对唱·那个季节里的歌DSD》10CD[WAV]
- 群星2010-歌林精选辑[歌林][WAV+CUE]
- TrioZimbalist-PianoTriosofWeinberg,Auerbach,Dvorak(2024)[24-44,1]wav
- 群星.1992-滚石第一流台湾歌·12王牌大车拼【滚石】【WAV+CUE】
- 林子祥.1984-创作歌集【华纳】【WAV+CUE】
- 周汤豪.2010-周汤豪【华纳】【FLAC分轨】
- Mozart-TheStringQuintets-AmadeusQuartet,CecilAronowitz(2017)[24-44,1][WAV+CUE]
- JamesWilliamsDennisIrwin-Focus(2024,Red)[24-48]FLAC
- 藤泽麻衣《空みあげて》[WAV]
- 纯音入心系列纯音乐《中国古筝经典名曲》1CD[MP3][1.3GB]
- 纯音入心系列纯音乐《古筝新奏:岁月静好与筝语,细水流年与筝同》1CD[MP3][846.9MB]
- 670《脆弱敏感小女生》[320K/MP3][27.53MB]
- 曾琳.2011-好好爱我【南方】【WAV+CUE】
- 范晓萱.1995-RAIN【福茂】【WAV+CUE】