set cn=server.createobject("ADODB.connection") dbpath=server.mappath("list.mdb") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &dbpath cn.open connstr

%>

<% dim count count=0 set rs=Server.CreateObject("ADODB.Recordset")

strsql="SELECT*FROM list Where word and title like'%"&Request("name")&"%'" rs. Open strsql,cn

If rs.EOF Then Response.Write "搜索结果:<BR><BR>" Response.write "&nbsp;&nbsp;&nbsp;很抱歉！没有您要的关于<b>"&Request("name")&"</b>的文章&nbsp;&nbsp;&nbsp;(请更换其他的关键字再试试！)"

End If

Set name1=rs("title") Set name2=rs("time") Set name3=rs("url") //这里为什么用NAME1,NAME2.NAME3来定义获取值我不是很清楚,有人能教一下我吗?要不怎么改?谢谢

Do Until rs.EOF Response.Write "&nbsp;&nbsp;<a href='"&name3&"'>"&name1&"</a>&nbsp;" Response.Write "("&name2&")&nbsp;&nbsp;&nbsp;&nbsp;<BR><BR>" count=count+1

rs.MoveNext Loop Response.Write"<BR><BR>&nbsp;&nbsp;&nbsp;<font color=RED>--共找到"&count&"片相关的文章--" rs.close cn.close %>