怎么让搜索出来的关键字变红色？

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

1. result= replace(result,search,"<font color=red>"&search&"</font>") 
2. '用正则表达式突出显示字符串中查询到的单词的函数 
3. Function BoldWord(strContent,word) 
4. if IsNull(strContent) then exit function 
5. dim objRegExp 
6. Set objRegExp=new RegExp 
7. objRegExp.IgnoreCase =true 
8. objRegExp.Global=True 
10. objRegExp.Pattern="(" & word & ")" 
11. strContent=objRegExp.Replace(strContent,"<span style=""color:#ff0000"">$1</span>" ) 
13. Set objRegExp=Nothing 
14. BoldWord=strContent 
15. End Function 

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>