悠悠博客 关注Ajax技术与web开发

Function BoldWord(strContent,word)
   dim objRegExp
   Set objRegExp=new RegExp
   objRegExp.IgnoreCase =true
   objRegExp.Global=True

   objRegExp.Pattern="(" & word & ")"
   strContent=objRegExp.Replace(strContent,"<font color=""#FF0000"">$1</font>" )

   Set objRegExp=Nothing
   BoldWord=strContent
End Function