===================================================================下面的页面是显示查询结果的页面:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
%> '数据库存连接
dim search,word,exec
word =trim(request.form("Find"))'关键字
if word="" then
response.Write("")
response.End()
end if
exec="select * from 数据库表名 where title like '%"&word&"%' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1'如果需要更新记录最后的"1"改成"3"
%>
<% if rs.eof and rs.bof then
response.write " "
response.End()
else
response.write rs("title(这是产品名称)")%>
如需链接加个
就可以了.
