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

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

我加了试了  不好使

现在的代码是:
<%
'以下将判断关键字,为空等则不执行查询
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

<%

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