- result= replace(result,search,"<font color=red>"&search&"</font>")
- '用正则表达式突出显示字符串中查询到的单词的函数
- Function BoldWord(strContent,word)
- if IsNull(strContent) then exit function
- dim objRegExp
- Set objRegExp=new RegExp
- objRegExp.IgnoreCase =true
- objRegExp.Global=True
- objRegExp.Pattern="(" & word & ")"
- strContent=objRegExp.Replace(strContent,"<span style=""color:#ff0000"">$1</span>" )
- Set objRegExp=Nothing
- BoldWord=strContent
- End Function
<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>