<%
set rs=server.createobject("adodb.recordset")
'以下将判断关键字,为空等则不执行查询
if request("t1")="" then
response.Write"请输入证书编号！
<meta http-equiv=refresh content='1;url=chaxun.asp'>"
response.end
end if

Dim t1
t1=trim(request.form("t1"))
rs.open" select * from zhengshu where bianhao='"&t1&"'",conn,1,1

if rs.eof
then response.Write"没有该记录,请确认输入是否正确
<meta http-equiv=refresh content='1;url=chaxun.asp'>"
response.end
end if
%>
有错误 说rs是变量未定义
我以前用过相同的代码作别的搜索 都是正常运行的啊
不知道这是怎么了?
我这里的的 t1 是在查询页面中的关键字控件名称
<form method="post" action="result.asp">
<!--webbot bot="SaveResults" u-file="fpweb:///_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" -->
请输入您要查询的证书编号:
<input name="t1" type="text" id="t1" value="" maxlength="150">
<input type="submit" value="搜索" name="B1">
</form>

哥哥姐姐  高手大侠们  不要不管我啊

声明?

能不能详细一点说  我不是特别明白  我刚学没多久  好多细节上的问题都不确定

我把代码调整了
<%
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")

我把代码调整了
<%
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")

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

现在情况有变化了
我把代码做了改动
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

现在的错误是set rs=conn.execute (sql)这一句缺少对象

我的iis根本就不好使了  我是在我得空间里运行的