求救：错误类型:(0x80020009) 发生意外

[krisdin]

1 <% if request.cookies("user")<>"" then
2 user=request.cookies("user")
3 set onrs=server.createobject("adodb.recordset")
4 onsql="select * from online where user='"&user&"'"
5 onrs.open onsql,conn,1,3
6 if datediff("s",onrs("ltime"),now())>60 then
7 onrs.delete
8 response.cookies("state")="0"
9 response.cookies("user")=""
10 else
11 onrs("ltime")=now()
12 onrs.update
13 onrs.close
14 end if
15 end if
16 %>


错误类型：
(0x80020009)
发生意外。
/checkonline.asp, 第 6 行

[ld2099]

说明这条记录不存在了，不存在而你读取数据，肯定会出错

在读取数据前先判断是否存在：If Rs.Eof Then ... Else ... End If

[cimzzxiang]

[Quote=引用 3 楼 ld2099 的回复:]
说明这条记录不存在了，不存在而你读取数据，肯定会出错

在读取数据前先判断是否存在：If Rs.Eof Then ... Else ... End If
[/Quote]

[ld2099]

第5行与6行之间加上：
If onRs.Eof Then Response.Write "数据不存在" : Response.End

[krisdin]

<% if request.cookies("user")<>"" then
user=request.cookies("user")
set onrs=server.createobject("adodb.recordset")
onsql="select * from online where user='"&user&"'"
onrs.open onsql,conn,1,3
If onRs.Eof Then Response.Write "数据不存在" : Response.End
if datediff("s",onrs("ltime"),now())>60 then
onrs.delete
response.cookies("state")="0"
response.cookies("user")=""
else
onrs("ltime")=now()
onrs.update
onrs.close
end if
end if
%>
<% if request.cookies("user")="" then
bianhao=session.sessionid
set guestrs=server.createobject("adodb.recordset")
guestsql="select * from online where sessid="&bianhao&""
guestrs.open guestsql,conn,1,3
if guestrs.eof then
conn.execute("insert into online(user,sessid)values('游客','"&bianhao&"')")
else
if datediff("s",guestrs("ltime"),now())<60 then
guestrs("ltime")=now()
guestrs.update
guestrs.close
end if
end if
end if
set de=conn.execute("delete * from online where datediff('s',ltime,now())>60")
%>

按你说的在5，6行之间加入代码后，跳转到首页后，却显示“数据不存”在了。