多字段模糊搜索的函数

本文主要为广大网友提供“多字段模糊搜索的函数”，希望对需要多字段模糊搜索的函数网友有所帮助，学习一下!

前段时间写了一个多字段模糊搜索的函数（类似baidui）。函数代码如下
''==================================================
''函数名：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 =