asp关键词显红色？？！！

如何让搜索到的关键词显红色呢？？又放在哪个地方？<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN"><http... 如何让搜索到的关键词显红色呢？？又放在哪个地方？

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<http-equiv="Content-Type" content="text/html; charset=gb2312" >
<%
'建立数据库的连接
con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'建立CONNECTION对象并打开数据库
set mycon=Server.CreateObject("ADODB.connection")
mycon.open con
%>

<%
'创建Recordset对象的例程，打开Recordset对象传递SQL串以及所有的连接信息
set rs=server.createobject("adodb.recordset")
'sql="select * from list where word like '%"&request.form("word")&"%'"
sql= "select * from list where word like '%"&request.form("word")&"%' or id like '%"&request.form("word")&"%'"
rs.open sql,con,1,3

'建立查询后的显示信息和查询页面,你想取什么名字都可以
%>
<html><head><title>查询结果</title></head>
<body bgcolor="#ffffff">
<p align="center"><br>
统计查询共有<% Response.Write(RS.RecordCount) %>条纪录</p><br>
<div align="center"><center>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff">ID</td>
<td width="60%" align="center" bgcolor="#ffffff">主题</td>
<td width="20%" align="center" bgcolor="#ffffff">查看</td></table>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">

<% while not rs.eof %>
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td>
<td width="60%" align="center" bgcolor="#ffffff"><% =rs("title") %></td>
<td width="20%" align="center" bgcolor="#ffffff"><a href="<% =rs("url") %>">GO</a></td>
<% rs.movenext %></tr> <% wend %></table></center></div><% rs.close %>
<%mycon.close
'关闭链接 %>
</body></html> 展开

 我来答

1个回答

#热议# 生活中有哪些实用的心理学知识？

踩蘑菇的笨小孩
推荐于2016-08-16 · TA获得超过102个赞

知道小有建树答主

回答量：206

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

<td width="60%" align="center" bgcolor="#ffffff"><% =rs("title") %></td> 
---------- 这一行换为：--------------
<td width="60%" align="center" bgcolor="#ffffff">
<%
dim key : key = request.form("word")
Response.write replace(rs("title"),key,"<span style='color:#ff0000;'>"& key  &"</span>")
%>
</td>

本回答被提问者采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

asp关键词显红色 ？？！！

其他类似问题

为你推荐：

asp关键词显红色？？！！