站内搜索搜索时有的关键词没有高亮
代码：
<%
t=Trim(Request.Form("t"))
key=Trim(Request.Form("key"))
if t="" or key="" then
 Response.Write("<script>alert('请输入关键词!');history.back();</script>")
 Response.End()
end if
if t=1 then
 sql="select * from [shop] where 1=0"
else
 sql="select * from [news] where 1=0"
end if
keyArr=split(key," ")
for i=0 to ubound(keyArr)
  sql=sql&" or title like '%"&keyArr(i)&"%'"
next
set rs=conn.execute(sql)
if t=1 then
%>

我是初学的，请各大家帮帮忙
搜一个关键词，搜索的关键词有高亮；但是搜索关键词空格关键词就没高亮了。

------解决方案--------------------
高亮的代码没在这里。
------解决方案--------------------
<li> <a href="shownews.asp?id=<%=rs("id")%>"><%=replace(rs("title"),Request.Form("key"),"<font color=red>"&Request.Form("key")&"</font>")%></a> <%=rs("data")%></li>
改成

<%
title=rs("title")
keyArr=split(Request.Form("key")," ")
for i=0 to ubound(keyArr)
title=replace(title,keyArr(i),"<font color=red>"&keyArr(i)&"</font>")
next
%>
<li> <a href="shownews.asp?id=<%=rs("id")%>"><%=title%></a> <%=rs("data")%></li>
------解决方案--------------------
忘了
keyArr=split(Request.Form("key")," ")
这一句要放在
do while not rs.eof
------解决方案--------------------
前面............