Question

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

比如产品有10页，点下一页到第十页或者点尾页就会显示以上错误提示代码如下，请大侠们赐教
<%
if Request("parentPath")<>"" then
ClassID1=cn.execute("select parentid from productclass where parentPath='"&Request("parentPath")&"'")(0)
end if
set sRs=server.CreateObject("adodb.recordset")
if Request("parentPath")<>"" then
sRs.open "select * from productclass where ParentID="&ClassID1&"",cn,3,3
else
sRs.open "select * from productclass where ParentID="&ClassID&"",cn,3,3
end if
do while not sRs.eof
%>
<a href="product.asp?ClassID=<%=sRs("ClassID")%>&parentPath=<%=sRs("ParentPath")%>"><%=sRs("ClassName")%></a> |
<%
sRs.movenext
loop
sRs.close
set sRs=nothing
%>

Answer 1

楼主，错误提示已经很清楚了，原因是根据你的sql语句，没有找到任何的数据记录
而你又去取值，那肯定要发生错误了。
解决办法：
就是在ClassID1取值之前判断下数据是否存在
if rs.eof and rs.bof then之类的
如存在再来取值显示

追问

这个在本地测试没有问题，传到服务器就会出现这样的问题，如何在ClassID1取值前判断是否存在呢，他是用cn.execute来取值的，请指教啊

追答

Dim sql
sql = "select parentid from productclass where parentPath='"&Request("parentPath")&"'""
rs.open sql cn,1,1
if rs.eof and rs.bof then
Response.write "没有数据"
else
ClassID1=rs("parentid")
'进行你的相关操作
end if
rs.close
set rs = Nothing

Answer 2

set rs = server.CreateObject("adodb.recordset")

rs.open "select parentid from productclass where parentPath='"&Request("parentPath")&"'",conn,1,1
if rs.eof then
response.write "不存在！"
else
ClassID1 = rs("parentid")
end if
rs.close

Answer 3

他说的对