搜索关键字变红函数

 

Code
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>")   

 

转载于:https://www.cnblogs.com/xianspace/archive/2009/04/11/1433909.html