报错了：缺少 'rs' 对象 帮我看看~~~~~

[j147933783]

<table width="100%" border="0" align="left" cellpadding="0" cellspacing="0" id="text_p">
            <tr>
              <td>
			  <%  
			  if request.QueryString("smallclassname")<>"" then
			  set rs=server.CreateObject("adodb.recordset")
			  sql="select * from book where smallclassname='"&request.QueryString("smallclassname")&"'"
			  else 
			  sql="select * from book where smallclassname='测量'"
			  rs.open sql,conn,1,1
			  response.Write(rs("tag")) 
			  end if
              %>			  
			  </td>
              </tr>
          </table>

报错啊！Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'rs'

上面是报错的行。帮我看看。上面问题啊！！！！

[jingcai]

<% set rs=server.CreateObject("adodb.recordset")

if request.QueryString("smallclassname")<>"" then
sql="select * from book where smallclassname='"&request.QueryString("smallclassname")&"'"
else
sql="select * from book where smallclassname='测量'"
rs.open sql,conn,1,1
response.Write(rs("tag"))
end if
%>

[j147933783]

上面说的是
rs.open sql,conn,1,1
缺少'rs'对象

[rankisky]

if request.QueryString("smallclassname")<>"" then

如果他等于空的，那必然就缺少rs了。。。

把set rs放到判断外面去

[j147933783]

那set 在if前面和在if后面有区别吗？

[jingcai]

貌似逻辑上有问题
<% set rs=server.CreateObject("adodb.recordset")

if request.QueryString("smallclassname") <>"" then
sql="select * from book where smallclassname='"&request.QueryString("smallclassname")&"'"
else
sql="select * from book where smallclassname='测量'"
end if
rs.open sql,conn,1,1
response.Write(rs("tag"))

%>

[j147933783]

哦，知道了，谢谢诶两位了

[13617650029]

多半是你的条件检索出来没有数据
加上一句
if not rs.eof then response.Write(rs("tag"))
看看是不是没有错误了？
如果是，那就说明你的sql查询语句没有检索出数据~

[13617650029]

补充一句，先按照前面两位说的，把你的set rs 放到判断外面去，不然为空的话你没有set rs