BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除....

VBHDVB 2009-01-20 10:30:14

ADODB.Field 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/x1w/main.asp，行 71

相关代码是

total_ip=conn.execute("select sum(dayips) from [dayips]")(0)+today_ip '总ip访问量
if total_ip>0 then
yesterday_ip=conn.execute("select dayips from [dayips] where day=date()-1")(0) '昨天ip访问量 ‘71行
else
total_ip=0
yesterday_ip=0
end if

...全文

162 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

shuaicike2013 2011-08-15

打赏
举报

完全看不懂在说森么

qfchiu 2009-01-21

打赏
举报

yesterday_ip=conn.execute("select dayips from [dayips] where CONVERT(varchar(10),[day],23) =CONVERT(varchar(10),dateadd(day,-1,getdate()),23)")(0)

qfchiu 2009-01-21

打赏
举报

yesterday_ip=conn.execute("select dayips from [dayips] where day=date()-1")(0)
其中:
1.date()在SQL中是无法获取今天日期的;
2.日期计算是不是得用DateAdd()啊;
如果你的dayips表中day是datetime类型,改成这样试试:
select dayips from [dayips] where CONVERT(varchar(10),[day],23) =CONVERT(varchar(10),dateadd(day,-1,getdate()),23)

toury 2009-01-20

打赏
举报

yesterday_ip=conn.execute("select dayips from [dayips] where [day]=date()-1")(0) '昨天ip访问量 ‘71行
加个[]试一下

VBHDVB 2009-01-20

打赏
举报

老家这样改了就打不开了

这个页面的全文代码是

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="image/buyok_tj.css" type="text/css">
</head>
<BODY background="image/back.gif">
<span class="red">
<%if session("login")<>"ok" then response.redirect "hd.asp?action=loginout"%>
<%
action = request.form("del")
if action="ok" then

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from count_total"
rs.open sql,conn,1,3
rs("userid")=0 '用户id置0
rs("total")=0 '总访问量置0
rs("yesterday")=0 '昨天访问量置0
rs("today")=0 '今天访问量置0
rs("stday")=date '统计日期归位
rs.update
conn.execute "delete from dayips"
conn.execute "delete from count_shop"
rs.close
set rs=nothing

response.write "<script language='javascript'>"
response.write "alert('统计数据已被清除，系统将从现在开始重新统计。');"
response.write "</script>"
end if

conn.execute("delete from count_online where datediff('h',time,now())>1")

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from count_total"
rs.open sql,conn,1,3
total=rs("total") '总访问量
yesterday=rs("yesterday") '昨天访问量
today=rs("today") '今天访问量

set rs = server.createobject("adodb.recordset")
sql = "select * from count_online"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
online=rs.RecordCount '在线人数
else
online=1
end if

set rs = server.createobject("adodb.recordset")
sql = "select * from count_shop where day=#"&date()&"#"
rs.open sql,con,1,3
if not (rs.eof and rs.bof) then
today_ip=rs.RecordCount '今天总IP访问量
else
today_ip=0
end if
set rs=nothing

total_ip=conn.execute("select sum(dayips) from [dayips]")(0)+today_ip '总ip访问量
if total_ip>0 then
yesterday_ip=conn.execute("select dayips from [dayips] where day=date()-1")(0) '昨天ip访问量
else
total_ip=0
yesterday_ip=0
end if

set rs = server.createobject("adodb.recordset")
sql = "select * from count_total"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
firstday=cdate(rs("stday")) 'firstday：开始计算的日期
else
total_ip=0
firstday=date()
end if
per_ip=int(total_ip/(date()-firstday+1)) '平均每天IP访问量
if per_ip<1 then per_ip=0
per=int(total/(date()-firstday+1)) '平均每天访问量
if per<1 then per=0

%>
</span>
<table width="98%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px" bordercolor="#000000" cellspacing="0" cellpadding="1">
<form action="main.asp" name="tongji" method=post>
<tr class=backs>
<td height=18 bordercolor="#CCCCCC" bgcolor="#000000" class=red>VBS访问统计基本数据</td>
</tr>
<tr><td bordercolor="#CCCCCC" bgcolor="#000000">
<table width="100%" border="1" cellPadding=1 cellSpacing=0 bordercolor="#CCCCCC" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bgcolor="#000000">
<tr>
<td width="22%" bordercolor="#CCCCCC" bgcolor="#000000" class="red">统计起始日期</td>
<td width="28%" bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=firstday%></td>
<td width="22%" bordercolor="#CCCCCC" bgcolor="#000000" class="red">统计截止日期</td>
<td width="28%" bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=date()%>（共<%=date()-firstday+1%>天）</td>
</tr>
<tr>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">总访问量</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=total%></td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">平均每日访问量</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=per%></td>
</tr>
<tr>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">总IP访问量</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=total_ip%></td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">平均每日IP访问量</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=per_ip%></td>
</tr>
<tr>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">昨天访问量</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=yesterday%></td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">昨天IP访问量</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=yesterday_ip%> <a href=more.asp?day=<%=date()-1%> class="red">查看明细</a></td>
</tr>
<tr>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">今天访问量</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=today%></td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">今天IP访问量</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=today_ip%> <a href=more.asp?day=<%=date()%> class="red">查看明细</a></td>
</tr>
<tr>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">当前在线人数</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red"><%=online%> 人</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">统计数据置零</td>
<td bordercolor="#CCCCCC" bgcolor="#000000" class="red">
<input type=hidden name="del" value="ok">
<input name="action" type="submit" class="red" onClick="{if(confirm('清除全部统计数据，重新开始统计。此操作无法恢复，您确定要继续吗？')){this.document.tongji.submit();return true;}return false;}" value="清零"> </td></tr>
</table>
</td></tr>
</form>
</table>
</body>
</html>

sy_binbin 2009-01-20

打赏
举报

total_ip=conn.execute("select sum(dayips) from [dayips]")(0)+today_ip '总ip访问量
if total_ip>0 then
sql = "select dayips from [dayips] where day=date()-1"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
yesterday_ip = rs(0)
else
yesterday_ip =0
end if
else
total_ip=0
yesterday_ip=0
end if