ASP搜索关键词时结果用红色显示代码

我们在使用baidu、google搜索时，搜索结果中显示的搜索关键词会显示红色，这是如何实现的呢？下面教大家用ASP能够简单实现此功能。

<%
response.write replace(rs("字段X"),searchname,"<font color=#FF0000>" & searchname & "</font>")
%>

说明：rs为记录集对象，searchname为搜索的关键词

正则

Function Highlight(strText, strFind, strBefore, strAfter)   
Dim nPos   
Dim nLen   
Dim nLenAll   
nLen = Len(strFind)   
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1   
Highlight = strText   
If nLen > 0 And Len(Highlight) > 0 Then  
nPos = InStr(1, Highlight, strFind, 1)   
Do While nPos > 0   
Highlight = Left(Highlight, nPos - 1) & _   
strBefore & Mid(Highlight, nPos, nLen) & strAfter & _   
Mid(Highlight, nPos + nLen)   
nPos = InStr(nPos + nLenAll, Highlight, strFind, 1)   
Loop  
End If  
End Function  
 
Response.Write Highlight(myText, "someword", "<font color=red>", "</font>")

发表评论

您的IP：18.97.14.91，来自：