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 %>

变量就是一个名字
你用什么都可以
关键看你以后用的时候自己是否明白

程序这个东西就是这个样子
你说你的变量全都用A,B,C,D也一样能实现程序的功能
但是大家还是要为自己的程序增加可读性的

Set name1=rs("title") Set name2=rs("time") Set name3=rs("url") 这里name1-3得到了rs记录集指定列的所有记录，其实也可以不用name来获取。 Do Until rs.EOF Response.Write "&nbsp;&nbsp;<a href='"&rs("url")&"'>"&rs("title")&"</a>&nbsp;" Response.Write "("&rs("time")&")&nbsp;&nbsp;&nbsp;&nbsp;<BR><BR>" count=count+1 rs.MoveNext Loop 直接跟上面这段代码，这么用也可以。用上面这段代码就可以省略 Set name1=rs("title") Set name2=rs("time") Set name3=rs("url") 这段内容不写也没问题。

Set name1=rs("title") Set name2=rs("time") Set name3=rs("url") //这里为什么用NAME1,NAME2.NAME3来定义获取值我不是很清楚,有人能教一下我吗?要不怎么改?谢谢 呵呵,这个SET是指把列的集赋给name1,name2,name3.这样的话才能上下面的Do Until...能成功的输出数据集的值. 如果你用 name1=rs("title") name2=rs("time") name3=rs("url") 来取值的话,你就会发现只会输出第一条数据.