Question

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

/tou.asp，行 55

看的你回答的问题！觉得你很厉害！也帮我个忙吧！
36--60行
<%
dim titleconn,titleid,title
titleid=Int(request("id"))
if titleid=false then
title=webtitle
else
''On Error Resume Next '容错声明
response.buffer=true
dim titledb,titleconnstr
titledb="#data.asp"
set titleconn = server.CreateObject("ADODB.Connection")
titleconnstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& server.MapPath("data/"&titledb&"")
titleconn.Open titleconnstr

if isnumeric(titleid)=false then
response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
response.end
end if
set rs=titleconn.execute("select title from china_data where adid="&titleid&"")
title=rs("title") 55行

rs.close
end if

%>

Answer 1

set rs=titleconn.execute("select title from china_data where adid="&titleid&"")
If Not Rs.eof then '这里加上这么一行。只有记录集不为空时，才能读取标题。
title=rs("title") 55行

End if
rs.close
end if

追问

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/wei.asp，行 177
现在又出现这个了！

追答

看一下你哪里的if 或者function没结束

Answer 2

set rs=titleconn.execute("select title from china_data where adid="&titleid&"")
If Not Rs.eof then '这里加上这么一行。只有记录集不为空时，才能读取标题。
title=rs("title") 55行

End if
rs.close
end if

Answer 3

这个不是你程序的问题只是你可能修改文字的时候直接把文字给替换了。比如说游客修改为观光客，建议直接用dreamweaver替换，不然只换了一个的话数据库里读不到。可能就是读不到数据库中的"title"。回想下最近都改过什么东西，比如说把A改成B了，那你现在再改回了，或者直接再所有源码里面搜索B全部替换成A。如果还不行的话就得找程序员帮忙了。