主题:  我晕。老是提示这种错误,请教各位原因?

singsong

职务:普通成员
等级:1
金币:0.0
发贴:72
#12004/12/15 14:40:01
提示的错误为:

错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/search.asp, 第 23 行


原文件:
<title><%=request("searchkey")%>的查找结果</title>
<!--#include file="conn.asp"-->
<%key=request("searchkey")%>
<%lsearch=request("lsearch")%>
<%if lsearch="biaoti" then %>
<%
sql="select * from guestbook where title like '%"&key&"%'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
%>
<%else%>
<%if lsearch="neirong" then%>
<%
sql="select * from guestbook where title like '%"&content&"%'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
%>
<%else%>
<%end if%>
<%end if%>
<link href="a.css" rel="stylesheet" type="text/css">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<%if rs.recordcount>0 then%>您搜索的记录为://////提示这一行有错误!
<%while not rs.eof%>
<tr>
<td background="bg.gif"><%=rs("title")%></td>
<td background="bg.gif"><%=left(rs("content"),18)%></td>
<td background="bg.gif"><%=rs("date")%></td>
</tr>
<%rs.movenext%>
<%wend%>
<%else%>
<%end if%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>


世界因你的离开而感动!

蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#22004/12/15 15:00:28
原因是Rs是有条件打开的,前面程序在二种情况下打开RS,但后面的rs.Recordcount则是在任何情况下都执行的,所以当某些情况下,就会引起错误。


非常大鱼

缺缺

职务:管理员
等级:8
金币:41.0
发贴:9620
#32004/12/15 15:12:57
先确定if选择语句里面确定有一个运行了