数据库出现ADODB.Field 错误 '800a0bcd' 的问题求助

后勤部长 · 发表于 2013-1-10 13:27

ADODB.Field 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/fun/add_article_all.asp，行 136

网站代码如下：

<%
'总配置
Set rs=server.CreateObject("adodb.recordset")
sql="select * from config"
rs.open sql,conn,1,1
sitename=rs("sitename")
siteurl=rs("siteurl")
mini=rs("mini")
style=rs("style")
copyright=rs("copyright")
rs.close
Set rs=Nothing
'菜单配置
Set navrs=server.CreateObject("adodb.recordset")
navsql="select * from nav order by sort asc"
navrs.open navsql,conn,1,1
If Not navrs.eof Then
Do While Not navrs.eof
nav=nav&"<li><a href='../product/buy.asp?cat=nav&pid="&navrs("id")&"' target='_blank'>"&navrs("navname")&"</a></li>"
navrs.movenext
loop
End if
navrs.close
Set navrs=nothing
'热点咨讯
Set rshot=server.CreateObject("adodb.recordset")
rshotsql="select * from article where hot=1 order by date desc"
rshot.open rshotsql,conn,1,1
hot=""
For i=1 To 10
If rshot.eof Then Exit For
hottitle=rshot("title")
hotdate=FormatDate(rshot("date"),6)
hotid=rshot("id")
sid=rshot("sid")
Set rsc=server.CreateObject("adodb.recordset")
rscsql="select * from [class] where id="&sid
rsc.open rscsql,conn,1,1
hot=hot&"<li>["&hotdate&"]<img src='../images/face/"&i&".gif'><a href='../"&rsc("ename")&"/"&hotid&".html' target='_blank' title='"&hottitle&"'>"&chang(hottitle,25)&"</a></li> "& vbcrlf
rshot.movenext
next
rshot.close
Set rsc=nothing
set rshot=Nothing
'右侧推广商品
Set prors1=server.CreateObject("adodb.recordset")
sqlpro1="select * from product where rmp=3 order by xiao desc"
prors1.open sqlpro1,conn,1,1
h=0
Do while Not prors1.eof
protitle1=prors1("title")
procontent1=prors1("content")
prourl1=prors1("url")
proid1=prors1("id")
proprice1=prors1("price")
h=h+1
product=product&"<dl>"& vbcrlf
product=product&"<dt><a href='../product/buy.asp?cat=list&pid="&proid1&"' target='_blank'><img src='"&prourl1&"' alt='"&protitle1&"' /></a></dt>"& vbcrlf
product=product&"<dd><a href='../product/buy.asp?cat=list&pid="&proid1&"' target='_blank'>"&protitle1&"</a></dd>"& vbcrlf
product=product&"<dd class='jia'>优惠价："&proprice1&" 元</dd>"& vbcrlf
product=product&"<dd><a href='../product/buy.asp?cat=list&pid="&proid1&"' target='_blank'><img src='../images/btn.gif' alt='查看详情'/></a></dd>"& vbcrlf
product=product&"</dl>"& vbcrlf
prors1.movenext
Loop
prors1.close
Set prors1=Nothing
'生成全部静态页面
response.write "重新生成全部页面....
"
Set rsall=server.CreateObject("adodb.recordset")
sqlall="select * from article"
rsall.open sqlall,conn,1,1
dd=0
Do While Not rsall.eof
dd=dd+1
showid=rsall("id")
idsid=rsall("sid")
Set rs=server.CreateObject("adodb.recordset")
sql="select * from [class] where id="&idsid
rs.open sql,conn,1,1
classname=rs("ename")
classzname=rs("zname")
Set rss=server.CreateObject("adodb.recordset")
sqls="select * from article where id="&showid
rss.open sqls,conn,1,1
If Not rss.eof Then
rsstitle=rss("title")
rsscontent=rss("content")
rsslaiyuan=rss("laiyuan")
rsszuoze=rss("zuoze")
htmlurl=siteurl&"/"&classname&"/"&rss("id")&".html"
rssdate=FormatDate(rss("date"),1)
rsskeywords=rss("keywords")
rssdesc=rss("desc")
rss.close
Set rss=nothing
End If
Set rs=server.CreateObject("adodb.recordset")
sql="select * from article where id<"&showid&" order by id desc"
rs.open sql,conn,1,1
If Not rs.eof then
sidid2=rs("sid")
Set rs2=server.CreateObject("adodb.recordset")
sql2="select * from [class] where id="&sidid2
rs2.open sql2,conn,1,1
classname2=rs2("ename")
rs2.close
End if
If rs.eof Then
nextlist1="<dd>上一篇：没有了</dd>"
rs.close
Set rs=nothing
else
nextlist1="<dd>上一篇：<a href='../"&classname2&"/"&rs("id")&".html'>"&rs("title")&"</a></dd>"
rs.close
Set rs=nothing
End if
Set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from article where id>"&showid&" order by id asc"
rs.open sql,conn,1,1
If Not rs.eof Then
sidid3=rs("sid")
Set rs3=server.CreateObject("adodb.recordset")
sql3="select * from [class] where id="&sidid3
rs3.open sql3,conn,1,1
classname3=rs3("ename")
rs3.close
End if
If rs.eof then
nextlist2="<dd>下一篇：没有了</dd>"
rs.close
Set rs=nothing
else
nextlist2="<dd>下一篇：<a href='../"&classname3&"/"&rs("id")&".html'>"&rs("title")&"</a></dd>"
rs.close
Set rs=nothing
End If
templatefile="../template/article.html"
Set fso=server.CreateObject("scripting.filesystemobject")
Set ts=fso.opentextfile(server.mappath(templatefile),1)
content=ts.readall
Set ts=Nothing
content=Replace(content,"{sitename}",sitename)
content=Replace(content,"{siteurl}",siteurl)
content=Replace(content,"{mini}",mini)
content=Replace(content,"{keywords}",keywords)
content=Replace(content,"{desc}",desc)
content=Replace(content,"{copyright}",copyright)
content=Replace(content,"{product}",product)
content=Replace(content,"{hot}",hot)
content=Replace(content,"{hig}",Hig)
content=Replace(content,"{style}",style)
content=Replace(content,"{rsstitle}",rsstitle)
content=Replace(content,"{rsscontent}",rsscontent)
content=Replace(content,"{rssdate}",rssdate)
content=Replace(content,"{rsskeywords}",rsskeywords)
content=Replace(content,"{rssdesc}",rssdesc)
content=Replace(content,"{rsslaiyuan}",rsslaiyuan)
content=Replace(content,"{rsszuoze}",rsszuoze)
content=Replace(content,"{classzname}",classzname)
content=Replace(content,"{classname}",classname)
content=Replace(content,"{htmlurl}",htmlurl)
content=Replace(content,"{nextlist1}",nextlist1)
content=Replace(content,"{nextlist2}",nextlist2)
content=Replace(content,"{nav}",nav)
htmlfile=classname&"/"&showid&".html"
Set writefile=fso.opentextfile(server.mappath("../"&htmlfile),2,true)
writefile.writeline(content)
Set writefile=Nothing
Set fso=Nothing
sql="Update article set html=true,htmlurl='"&htmlfile&"' where id="&showid
conn.execute(sql)
If Not Err Then response.write ("<a href='../"&htmlfile&"' target='_blank'>/"&htmlfile&"</a> 生成成功！")
response.flush
rsall.movenext
loop
rsall.close
Set rsall=Nothing
conn.close
Set conn=Nothing
response.write "
全部生成完毕！共"&dd&"条　<a href='../admin/admin_add.asp'>返回列表</a>"
response.write "<script>alert('更新完成,共"&dd&"条');</script>"
%>

复制代码

housex · 发表于 2013-1-10 14:16

这个不懂呀

[求助] 数据库出现ADODB.Field 错误 '800a0bcd' 的问题求助

相关帖子

评分

浏览过的版块

宣传勋章

优秀斑主

灌水勋章

活跃勋章

贡献勋章

童话节勋章