求助ASP搜索点亮关键词是怎么实现的？

来源：百度知道 编辑：UC知道 时间：2024/05/16 03:50:14
把搜到的关键词显示为红色
想百度一样的
如何实现？

谢谢

使用下面的函数,Str为全文或者文章标题,keyword为关键词,如果str中含有keyword,则keyword变为红色
<%
Function GoRed(Str,keyword)
Dim RegObj
Set RegObj= New RegExp
With RegObj
.Global = True
.IgnoreCase = True
.Pattern="([.\n]*)("&Keyword&")([.\n]*)"
GoRed=.Replace(Str,"$1<font color='red'>$2</font>$3")
End With
Set RegObj=Nothing
End Function
%>
用法举例:GoRed("百度知道真好用","知道")