Question

Asp如何将搜索结果中的关键字用高亮显示?

本人不太懂编程，请教如何将ASP+ACCESS的搜索网站的各搜索结果中的关键字高亮显示。网页的编码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/ChtermWeb/Connections/IPSAS.asp" -->
<%
Dim rsIPSAS__MMColParam
rsIPSAS__MMColParam = "1"
If (Request.QueryString("ipsas") <> "") Then
rsIPSAS__MMColParam = Request.QueryString("ipsas")
End If
%>
<%
Dim rsIPSAS
Dim rsIPSAS_cmd
Dim rsIPSAS_numRows

Set rsIPSAS_cmd = Server.CreateObject ("ADODB.Command")
rsIPSAS_cmd.ActiveConnection = MM_IPSAS_STRING
rsIPSAS_cmd.CommandText = "SELECT * FROM IPSAS WHERE English LIKE ?"
rsIPSAS_cmd.Prepared = true
rsIPSAS_cmd.Parameters.Append rsIPSAS_cmd.CreateParameter("param1", 200, 1, 255, "%" + rsIPSAS__MMColParam + "%") '

。。。
<table id="IPSASTable" border="1" frame="box" class="yui-grid">
<thead>
<tr>
<th width="50%">英文</th>
<th width="50%">译文</th>
</tr>
</thead>
<tbody>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsIPSAS.EOF))
%>
<tr>
<td><%=(rsIPSAS.Fields.Item("English").Value)%></td>
<td><%=(rsIPSAS.Fields.Item("Chinese").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsIPSAS.MoveNext()
Wend
%>
</tbody>
</table>

Answer 1

replace

rsIPSAS.Fields.Item("English").Value 这个是你要的结果吧

改成

replace(rsIPSAS.Fields.Item("English").Value,"关键词","<H1>关键词<H1>")

假设H1 就是你要的效果 你在CSS里面做

以上是在asp 输出的时候直接替换 你要注意一下那些双引号之类的

1楼是说在js里面做 根据你的需要 你自己选择一下

追问

终于弄懂了。还想请教：如何将搜索设置为在Access的表的多个字段中搜索关键词？目前我只能设置为在一个字段中搜索？

追答

SELECT * FROM IPSAS WHERE English LIKE ?

ENLIISH 是一个字段

你可以写成 where 字段一 link ? or 字段2 link ? or 字段3 like ......

Answer 2

又是dw的代码，，，，，不看，，，

Answer 3

直接在JS中用 replace 就行啦

追问

感谢您的回答，但本人不太懂编程，您能能否说得详细一些？多谢