连江文笔小学教师名单:asp搜索关键字颜色

来源:百度文库 编辑:高校问答 时间:2024/05/08 06:45:34
<%
Maxlist=30
searchData=trim(request("T1"))
searchSelect=request("select")

if searchData="" or isNumeric(searchSelect)=0 then response.end
oldsearchData=searchData
searchData=replace(searchData,"'","''")
sql="select id,sitename,describe,fenleiid,url,datetime from list where sitename like'%"&searchData&"%' or describe like'%"&searchData&"%' or url like'%"&searchData&"%' order by id DESC"
'sql="select list.id,list.sitename,list.describe,list.fenleiid fenlei.* from list,fenlei where list.fenleiid=fenlei.id and list.sitename like'%"&searchData&"%' or list.describe like'%"&searchData&"%' order by list.id DESC"
'sql="select list.id,list.sitename,list.describe,fenlei.* from list , fenlei where list.fenleiid=fenlei.id and (list.sitename like'%"&searchData&"%' or list.describe like'%"&searchData&"%') order by list.id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
set conn=server.CreateObject("ADODB.connection")
conn.Connectionstring="DBQ="+server.mappath("/search/site.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open
%>
<FORM action=search.asp method=post name=""><INPUT name=T1 size=33 class=ff> <INPUT name=B2 type=submit value=" 搜 索 " style="height:22px">
</form>
<%
response.write ""
for tempLoop=0 to Ubound(getdata,2)
tempStr="<TABLE border=0 cellPadding=0 cellSpacing=0 width=100% align=center><TR><TD valign=middle>"
tempStr=tempStr&"<a class=f href=http://"&server.htmlencode(getdata(4,tempLoop))&" target=_blank>"&server.htmlencode(trim(getdata(1,tempLoop)))&"</a><br><font size=2>  "&server.htmlencode(trim(getdata(2,tempLoop)))&"</font>"
tempStr=tempStr&"<br><font face=arial class=url>"&server.htmlencode(getdata(4,tempLoop))&"  "&server.htmlencode(trim(getdata(5,tempLoop)))&"</font><a class=fe href=http://ycyes.com/web/"&getdata(3,tempLoop)&" target=_blank><font color=#666666>所在县区</font></a><br>"
tempStr=tempStr&"</TD></TR></TABLE>"&chr(10)&chr(13)
response.write tempStr
end if
%>
<%set rs=nothing
conn.close
set conn=nothing%>

我想将以上代码设置搜索结果中的搜索词为其他颜色,<也就是和百度一样,搜索结果出来时被搜索的字为红色>该加入什么代码,
如能帮我解决另送高分!谢谢!
你说的这个不能用在这里,这里需要正则表达,

请用下面的方面实现;
在输出前,用下面的方法把原来的Result处理下,就可以了.
Replace(Result,"关键字","<font color="RED">关键字</font>")