多字段模糊搜索的函数

''参 数：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>