帮我看一下下面一段asp代码的错误在哪？
我思路是这样的用一行两列的表格，左边显示标题，有相应的超链在右边的单元格显示，如下：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><%dim...
我思路是这样的用一行两列的表格，左边显示标题，有相应的超链在右边的单元格显示，如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim conn,str
str="driver={sql server};server=.;database=111;uid=sa;pwd=123456;"
set conn=server.CreateObject("adodb.connection")
conn.open str
%>
<%
title=trim(request("title"))
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from news where title='"&title&"'"
rs.open sqlstr,conn,1,3
do while not rs.eof
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="70%" border="1">
<tr>
<td width="29%" height="114"><a href="untitled-1.asp?Title=<%=rs("Title")%>"><%=rs("Title")%></a></td>
<%rs.movenext
loop
%>
<td width="71%"><%=rs("content")%></td>
</tr>
</table>
</body>
<%
rs.close
set rs=nothing
conn.close
%>
</html>
说明一下，数据库名“111”，数据表“news”，包含字段“title”（也就是左边显示的）和“content”（选择左边的title显示到右边的表格的内容）
错误如下：
ADODB.Field 错误 '80020009'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/Untitled-1.asp，行 0 展开
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim conn,str
str="driver={sql server};server=.;database=111;uid=sa;pwd=123456;"
set conn=server.CreateObject("adodb.connection")
conn.open str
%>
<%
title=trim(request("title"))
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from news where title='"&title&"'"
rs.open sqlstr,conn,1,3
do while not rs.eof
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="70%" border="1">
<tr>
<td width="29%" height="114"><a href="untitled-1.asp?Title=<%=rs("Title")%>"><%=rs("Title")%></a></td>
<%rs.movenext
loop
%>
<td width="71%"><%=rs("content")%></td>
</tr>
</table>
</body>
<%
rs.close
set rs=nothing
conn.close
%>
</html>
说明一下，数据库名“111”，数据表“news”，包含字段“title”（也就是左边显示的）和“content”（选择左边的title显示到右边的表格的内容）
错误如下：
ADODB.Field 错误 '80020009'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/Untitled-1.asp，行 0 展开
4个回答
展开全部
出现什么错误提示?楼主要说清楚啊.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%Do While Not Rs.Eof%>
<tr><td>图片</td><td>内容</td><tr>
<%Rs.MoveNext
Loop%>
你上面的乱七八糟的。像我这样弄才行。
你数据库里没有记录
<tr><td>图片</td><td>内容</td><tr>
<%Rs.MoveNext
Loop%>
你上面的乱七八糟的。像我这样弄才行。
你数据库里没有记录
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
需要打开两个记录集,否则实现不了你要的效果~!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim conn,str
str="driver={sql server};server=.;database=111;uid=sa;pwd=123456;"
set conn=server.CreateObject("adodb.connection")
conn.open str
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from news"
rs.open sqlstr,conn,1,1
%>
<table width="70%" border="1">
<tr>
<td width="29%" height="114">
<table width="100%" border="0" cellspacing="1" bgcolor="#CCCCCC">
<%do while not rs.eof%>
<tr>
<td bgcolor="#FFFFFF"><a href="?Title=<%=rs("Title")%>"><%=rs("Title")%></a></td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</table></td>
<td width="71%"><%
title=trim(request("title"))
if title<>"" then
set rs1=server.CreateObject("adodb.recordset")
sqlstr="select * from news where title='"&title&"'"
rs1.open sqlstr,conn,1,1
Response.Write rs1("content")
rs1.close
set rs1=nothing
end if
%></td>
</tr>
</table>
<%
conn.close
Set conn=Nothing
%>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim conn,str
str="driver={sql server};server=.;database=111;uid=sa;pwd=123456;"
set conn=server.CreateObject("adodb.connection")
conn.open str
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from news"
rs.open sqlstr,conn,1,1
%>
<table width="70%" border="1">
<tr>
<td width="29%" height="114">
<table width="100%" border="0" cellspacing="1" bgcolor="#CCCCCC">
<%do while not rs.eof%>
<tr>
<td bgcolor="#FFFFFF"><a href="?Title=<%=rs("Title")%>"><%=rs("Title")%></a></td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</table></td>
<td width="71%"><%
title=trim(request("title"))
if title<>"" then
set rs1=server.CreateObject("adodb.recordset")
sqlstr="select * from news where title='"&title&"'"
rs1.open sqlstr,conn,1,1
Response.Write rs1("content")
rs1.close
set rs1=nothing
end if
%></td>
</tr>
</table>
<%
conn.close
Set conn=Nothing
%>
</body>
</html>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
在do while not rs.eof 上加判断
if not (rs.eof or rs.bof) then
do while..........
end if即可
if not (rs.eof or rs.bof) then
do while..........
end if即可
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
