输入查询内容:?cn
你会发现结果的。
[code]
<script language=javascript>
strText=window.prompt("请输入内容:");
strFind=window.prompt("请输入查询内容:");
</script>
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]