asp 多字段模糊搜索的函数

站长资源 2024/11/23 佚名

2 0 1

比较简单直接的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" /> 
 &nbsp; <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%>个&nbsp; <font color="#FF0000"><%=page%></font>/<%=pageCount%>页 
 &nbsp;<%=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,多字段,模糊搜索

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！

评论“asp 多字段模糊搜索的函数”

暂无评论...

www.wwsws.com 伏龙阁资源网

39,976影音资源

44,792技术资源

21,817软件资源

651,128站长资源

asp 多字段模糊搜索的函数

打包上传asp网站

巧用缓存提高asp程序的性能

评论“asp 多字段模糊搜索的函数”

RTX 5090要首发性能要翻倍！三星展示GDDR7显存

更新日志

友情链接

asp 多字段模糊搜索的函数

打包上传asp网站

巧用缓存提高asp程序的性能

评论“asp 多字段模糊搜索的函数”

RTX 5090要首发 性能要翻倍！三星展示GDDR7显存

更新日志

友情链接

RTX 5090要首发性能要翻倍！三星展示GDDR7显存