多字段模糊搜索的函数

前段时间写了一个多字段模糊搜索的函数（类似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 = 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=？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>