www.gusucode.com > Follow me超级搜索引擎 > images/bd.asp
<%Response.Addheader "Content-Type","text/html; charset=gb2312"%> <%'Response.Charset = "GB2312"%> <!--#include File="../conn.asp" --> <% dbpath="../" dblink dim key,abc,i,cc,aaa,cc1,ccc1,ccc,bc,bbb if Request("key")="" then response.write "<table></table>" response.end end if response.write "<ul>" key=Request("key") dim sql dim rs sql="select * from websou where indexshow='0' and webtext like '%"&key&"%' order by indexid desc,webid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 do while not rs.eof cc=replace(rs("webtext"),key,"<font color=red><b>"&key&"</b></font>") '转换cc中符合keyword的字符为 <font color=blue>字符</font> response.write "<li><a href="&rs("weburl")&" target=_blank>"&cc&"</a></li>" cc="" rs.movenext loop rs.close set rs=nothing conn.close set conn=nothing %> </ul>