asp 多字段模糊搜索的函数

　　比较简单直接的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 以下是一个例子 搜索 /> <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=?page=<%=y%>&keyword=<%=server.URLEncode(keyword)%> <%if cstr(page)=cstr(y) then response.Write( selected) end if%> >第<%=y%>页</OPTION> <%y=y+1 loop%> </SELECT></td> </tr> </table>

　　文章就介绍到这了，希望大家以后多多支持脚本之家。