【闪星提问】怎样在查询结果中对查询的关键字用不同的颜色显示出来~~谢谢

[shanxing]

【闪星提问】怎样在查询结果中对查询的关键字用不同的颜色显示出来~~谢谢

[ttt2]

replace(str,"结果","<font color=red>结果</font>")

[angelheavens]

处理方式有很多

假设查询关键字KeyWord为:"显示"
结果有N条
那么输出时: Response.Write(Replace(Content,KeyWord,"<font color=red>"&KeyWord&"</font>")

[shanxing]

to ttt2(家合万事兴)
能否给个例子参考一下

[xuanhu]

显示时加上<font color=red>关键字</font>不就可以了？
得到查询的关键字后，
title=replace(数据名,"关键字","<font color=red>关键字</font>")
response.write title

[ydh1981]

<%=replace(rs("t_description"),100),keyWord,"<font color=#ff0000>"&keyWord&"</font>")%>

[ttt2]

set rs=server.createobject("adodb.recordset")
rs.open "select * from temp where title like '%"&gjz&"%'",cn,1,3
while not rs.eof
%>
<%=replace(title,gjz,"<font color=red>"&gjz&"</font>")%>
<%
rs.movenext
wend

[liuyu202]

楼上的可以！

[shanxing]

谢谢
晚上回去试试了

[lawdoor]

一个函数：
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>")