多字段模糊搜索的函数

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
''作 用：将字符串里的关键词标记为红色