<%
if request("t1")="" then
response.Write"请输入证书编号！<meta http-equiv=refresh content='1;url=chaxun.asp'>"
response.end
end if

set rs=server.createobject("adodb.recordset")
Dim t1,sql
t1=trim(request.form("t1"))
sql="select * from zhengshu where bianhao='"&t1&"'"
set rs=conn.execute (sql)

if rs.eof then response.Write"没有该记录,请确认输入是否正确！<meta http-equiv=refresh content='1;url=chaxun.asp'>"
response.end
end if
%>
第一步:如果输入为空,点查询 就是显示请输入编号,说明第一部分的判断能正常运行.
第二步:在关键字里输入一串数字,点击查询,然后就运行错误,说:
变量未定义: 'rs' 31行
其中31行是:set rs=server.createobject("adodb.recordset")

set rs=server.createobject("adodb.recordset")
把这句去掉试试看

我去掉这句猴,提示错误:变量未定义: 'rs' 35行
即set rs=conn.execute (sql)

在开始加上
Dim rs
这句

<%
if request("t1")="" then
response.Write"请输入证书编号！<meta http-equiv=refresh content='1;url=chaxun.asp'>"
response.end
end if

'set rs=server.createobject("adodb.recordset")
Dim t1,sql
t1=trim(request.form("t1"))
sql="select * from zhengshu where bianhao='"&t1&"'"
set rs=conn.execute(sql)

if rs.eof then
response.Write"没有该记录,请确认输入是否正确！<meta http-equiv=refresh content='1;url=chaxun.asp'>"
response.end
end if

%>

我这里可以执行呀

我加了试了  不好使

你把rs加在哪了?
Dim rs
set rs=server.createobject("adodb.recordset")
是这么加的么?

会不会还没连接数据库吧？？？

对啊
<%
bd=server.MapPath("jiaoshi.mdb")
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open "provider=microsoft.jet.oledb.4.0;data source="&bd
%>

没有看到你有打开数据库啊

现在的代码是:
<%
'以下将判断关键字,为空等则不执行查询
if request("t1")="" then
response.Write"请输入证书编号！<meta http-equiv=refresh content='1;url=chaxun.asp'>"
response.end
end if
t1=trim(request.form("t1"))
sql="select * from zhengshu where bianhao='"&t1&"'"
set rs=conn.execute (sql)

if rs.eof then response.Write"没有该记录,请确认输入是否正确！<meta http-equiv=refresh content='1;url=chaxun.asp'>"
response.end
end if
%>
错误 '800a01a8'
缺少对象: ''
/html/result.asp，行 32