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

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


http://bbs.blueidea.com/thread-1110552-1-1.html

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: