<%
   set conn = server.CreateObject("adodb.connection")
   conn.open "dbq="&server.MapPath("gs.mdb")&";driver={microsoft access driver (*.mdb)}"
   key = request.form("key")            '获取表单提交的关键字
   sql2 = "select * from yuangong where xingming like '%"&key&"%'  "    '查询关键字
   set rs = server.CreateObject("adodb.recordset")
   rs.open sql2,conn,1,1
   %>         
    下面应该输出 包含关键字的 数据库内容,但是上面代码有问题,输出的是最后一条数据库内容,
   请教上面要怎么改 才可以输出包含关键字的数据库内容
    <input name="text1" type="text" value="<%=rs("xingming")%>" />
    <p><input name="text2" type="text" value="<%=rs("nianling")%>" /></p>
    <p><input name="text3" type="text" value="<%=rs("huji")%>" /></p>
    <p><input name="text4" type="text" value="<%=rs("xueli")%>" /></p>
    <p><input name="text5" type="text" value="<%=rs("zhiwei")%>" /></p>
    <p><input name="text6" type="text" value="<%=rs("lianxi")%>" /></p>
    <p><input name="text7" type="text" value="<%=rs("jingli")%>" /></p>

这条记录符合筛选条件吗？
确定key有值吗？

<%
   set conn = server.CreateObject("adodb.connection")
   conn.open "dbq="&server.MapPath("gs.mdb")&";driver={microsoft access driver (*.mdb)}"
   key = request.form("key")            '获取表单提交的关键字
   response.write key '输出key的值 看是否获取到了值
   response.end
   sql2 = "select * from yuangong where xingming like '%"&key&"%'  "    '查询关键字
   set rs = server.CreateObject("adodb.recordset")
   rs.open sql2,conn,1,1
   %>

谢谢斑竹和tianyu123的提醒 出来了