BOF 或 EOF 中有一个是“真”不太懂这句话,总调试不对. - ASP技术论坛

solution

等　级：新手上路
帖　子：206
专家分：0
注　册：2006-6-26

楼主

问题点数：0 回复次数：4

BOF 或 EOF 中有一个是“真”不太懂这句话,总调试不对.

<%
dim conn,connstr
set conn = server.createobject("adodb.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=NL;UID=sa;PWD=123456;DATABASE=data"
dim rs,sql
set rs=server.CreateObject("ADODB.Recordset")
sql="select 产品名称,单位数量,单价,库存量,订购量 from 产品"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>连接数据表并显示数据表信息</title>
<style type="text/css">

</style>
</head>

<body>
<p align="center"><span class="STYLE2">显示表“产品”信息</span></p>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFCC66">
<tr>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">产品名称</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">单位数量</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">单价</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">库存量</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">订购量</span></td>
</tr>
<%if not rs.eof then
for i=1 to 8%>
<tr>
<td align="center" bgcolor="#FFFFFF"><%=rs("产品名称")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("单位数量")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("单价")%>元</td>
<td align="center" bgcolor="#FFFFFF"><%=rs("库存量")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("订购量")%></td>
</tr>
<%rs.movenext
next
end if%>
</table>
</body>
</html>

错误显示如下:
错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/second/showinformation.asp

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

网页：
GET /second/showinformation.asp

时间：
2005年8月26日, 21:15:08

搜索更多相关主题的帖子: BOF　EOF　调试　

2007-08-26 21:18

solution

等　级：新手上路
帖　子：206
专家分：0
注　册：2006-6-26

第 3 楼

得分:0

谢谢了,学了不少.
又一问题来麻烦大家了.不知道错在哪?说是那段错误,可检查了,没看出来哪错.

<%
set rs=createobject("adodb.recordset")
sql="select 类别ID，单位数量，单价，库存量，订购量 from chanpin"
rs.open sql,conn,1,1
pagecounter=15
%>
<html>
<head>
<title>删除表记录</title>
</head>
<body>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#ffcc66">
<form name="form1" method="post" action="delete.asp">
<tr>
<td align="center" bgcolor="#ffffff"><span class="style3">产品名称</span></td>
<td align="center" bgcolor="#ffffff"><span class="style3">单位数量</span></td>
<td align="center" bgcolor="#ffffff"><span class="style3">单价</span></td>
<td align="center" bgcolor="#ffffff"><span class="style3">库存量</span></td>
<td align="center" bgcolor="#ffffff"><span class="style3">订购量</span></td>
<td align="center" bgcolor="#ffffff"><span class="style3">修改信息</span></td>
<td align="center" bgcolor="#ffffff"><input type="submit" name="Submit" value="删除"></td>
</tr>
<%
pageno=request.QueryString("pageno")
rs.pagesize=pagecounter
page=rs.pagecount
if pageno="" or pageno<1 then
pageno=1
end if
if rs.eof or rs.bof then
response.write"<font color=""ff0000"">此数据表没有记录!</font>"
else
rs.absolutepage=Cint(pageno)
position=rs.PageSize*pageno
pagebegin=position-rs.PageSize+1
if position<rs.RecordCount then
pagend=postion
else
pagend=rs.recordcount
end if
do while not.eof and c<=rs.pagesize
e=e+1
%>
<tr>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("产品名称")%></td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("单位数量")%></td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("单价")%></td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("库存量")%></td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%=rs("订购量")%></td>
<td align="center" bgcolor="#FFFFFF" class="font2">
<a href="modinfo.asp?MID=<%=rs("ID")%>">修改</a></td>
<td align="center" bgcolor="#FFFFFF" class="font2"><%ID=rs("ID") response.Write"<input type=""checkbox"" name=""checkbox"" value="""&ID&""""%></td>
</tr>
<%
rs.movenext
loop
pagecounter=pagecounter-1
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<tr>
<td colspan="7" align="center" bgcolor="#FFFFFF" class="font2">
页次:[<%=Cint(pageno)%>/<%=page%>]
记录:[<%=Cint(pagebegin)%>至<%=pagend%>条]
<%if Cint(pageno)>1 then%>
<a href="?pageno=<%=(pageno-1)%>">[上一页]</a>
<%end if%>
<%if page>1 and Cint(pageno)<Cint(page) then%>
<a href="?pageno=<%=(pageno+1)%>">[下一页]</a>
<%end if%>
</td>
</tr>
</form>
</table>
</body>
</html>

错误如下:
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/second/modanddel.asp, line 53, column 12
ID=rs("ID") response.Write"<input type=""checkbox"" name=""checkbox"" value="""&ID&""""
-----------^

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

网页：
GET /second/modanddel.asp

2007-08-27 19:14

solution

等　级：新手上路
帖　子：206
专家分：0
注　册：2006-6-26

第 5 楼

得分:0

谢谢.现在已懂了.

2007-10-30 17:05