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>