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

?输入内容：cnbruce?love?cnrose

输入查询内容：?cn

你会发现结果的。

[code]

<script language=javascript>
strText=window.prompt("请输入内容:");
strFind=window.prompt("请输入查询内容:");
</script>

<script language=vbs>
Function Highlight(strText, strFind, strBefore, strAfter)
??? Dim nPos
??? Dim nLen
??? Dim nLenAll
???
??? nLen = Len(strFind)
??? nLenAll = nLen + Len(strBefore) + Len(strAfter)

??? 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

document.write(Highlight(strText, strFind, "", ""))
</script>

<script language=javascript>
strText=window.prompt("请输入内容:");
strFind=window.prompt("请输入查询内容:");
</script>

<script language=vbs>
Function Highlight(strText, strFind, strBefore, strAfter)
    Dim nPos
    Dim nLen
    Dim nLenAll
   
    nLen = Len(strFind)
    nLenAll = nLen + Len(strBefore) + Len(strAfter)

    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

document.write(Highlight(strText, strFind, "<font color=red>", "</font>"))
</script>
[/code]

作者Blog： http://blog.csdn.net/cnbruce/