突出显示字符串中查询到的单词
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 from:asp学习网/title:突出显示字符串中查询到的单词/ time:2006-4-26 1:57:38
本文主题突出显示字符串中查询到的单词