asp关键词显红色

来源:百度知道 编辑:UC知道 时间:2024/07/08 10:58:30
<%
Dim Member_introduce
Member_id = Request("Member_introduce")
%>

<%
Member_introduce=Request("Member_introduce")
if Member_introduce="" then
response.write "<SCRIPT language=JavaScript>alert('请输入要搜索的关键词');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
end if

sql="SELECT * FROM JOB_Member where Member_introduce & Member_address & Member_login like '%"&Member_introduce&"%'"
set rs=conn.execute(sql) '设定记录集rs,用conn执行SQL语句
if rs.eof or rs.bof then '当没有符合筛选结果时,则执行下面的句子
response.write "<script language=javascript>"
response.write "alert('暂时还没手机号码!');"
response.write "javascript:history.go(-1);"
response.write "</script>" '用javascript脚本提示用户
else '如果符合条件的时候

楼主,要作一个判断方可
<%
set rs=server.createobject("ADODB.Recordset")
sql="select * from 表"
rs.open sql,conn,1,1
if rs.eof then'数据库中没有资料的情况
response.redirect"导入你要显示的页面.asp"
else
'这裏是你要循环显示的资料,用replace的地方
end if
%>

<%=replace(显示字段,字段中关键字,显示样式,1,-1,1)%>

'如果不加1,-1,1的话会出现区分大小写的错误.实例如下:
<%=replace(rs("字段名"),keyword,"<font color=#ff0000><b>"&keyword&"</b></font>",1,-1,1)%>