作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

输入内容：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, "<font color=red>", "</font>"))
</script>
[/code]

相关软件：