ADODB.Field 错误 '80020009'请问怎么解决？
各位，俺新手不知道怎么搞求助下各位高手，先谢谢了ADODB.Field 错误 '80020009'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/wwwroot/mkg/y.asp，行 0
<html >
<head>
<STYLE>BODY {
MARGIN-TOP: 0px; MARGIN-LEFT: 0px; MARGIN-RIGHT: 0px
}
BODY {
FONT-SIZE: 9pt; COLOR: black; FONT-FAMILY: 楷体,Verdana, Arial, Helvetica
}
DIV {
FONT-SIZE: 9pt; COLOR: black; FONT-FAMILY: 楷体,Verdana, Arial, Helvetica
}
TD {
FONT-SIZE: 9pt; COLOR: black; FONT-FAMILY: 楷体,Verdana, Arial, Helvetica
}
TH {
FONT-SIZE: 10.5pt; TEXT-ALIGN: left
}
A:link {
COLOR: #000; TEXT-DECORATION: none
}
A:visited {
COLOR: #000; TEXT-DECORATION: none
}
A:hover {
COLOR: #000; TEXT-DECORATION: none
}
A.a2:link {
FONT-SIZE: 10.5pt; COLOR: #000; TEXT-DECORATION: none
}
A.a2:visited {
FONT-SIZE: 10.5pt; COLOR: #000; TEXT-DECORATION: none
}
A.a2:hover {
FONT-SIZE: 10.5pt; COLOR: #000; TEXT-DECORATION: none
}
INPUT {
BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid; BACKGROUND-COLOR: #fff
}
SELECT {
BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid; BACKGROUND-COLOR: #fff
}
.dv1 {
VERTICAL-ALIGN: middle; HEIGHT: 30px; BACKGROUND-COLOR: #fff
}
.dv2 {
VERTICAL-ALIGN: middle; HEIGHT: 30px; BACKGROUND-COLOR: #efefef
}
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>企业网站管理系统</title>
</head>
<body>
<DIV
style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; WIDTH: 100%; PADDING-TOP: 0px; TEXT-ALIGN: center">
<DIV
style="BORDER-RIGHT: #666666 1px solid; PADDING-RIGHT: 5px; BORDER-TOP: #666666 1px solid; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; BORDER-LEFT: #666666 1px solid; WIDTH: 850px; PADDING-TOP: 5px; BORDER-BOTTOM: #666666 1px solid; HEIGHT: 30px; BACKGROUND-COLOR: #ddd"><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; COLOR: #f6f6f6; FONT-FAMILY: Verdana, Arial, Helvetica">KeySystem</SPAN>
<A class=a2 href="www.asp?action=spmain">商品列表</A>
<A class=a2 href="www.asp?action=prolist">工具列表</A>
<A class=a2 href="www.asp?action=userlist">用户列表</A>
<A class=a2 href="www.asp?action=shiyon">试用列表</A>
<A class=a2 href="www.asp?action=exit">安全退出</A>
<%
action=request.QueryString("action")
username=session("username")
if action="login" then
%>
这是Y.ASP的代码，我是打开使用列表就出错了，下面试使用列表的代码
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; COLOR: #f6f6f6; FONT-FAMILY: Verdana, Arial, Helvetica">KeySystem</SPAN></DIV></DIV>
<DIV
style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; WIDTH: 100%; PADDING-TOP: 0px; HEIGHT: 20px; TEXT-ALIGN: center"></DIV>
<DIV
style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; MARGIN: 0px; WIDTH: 100%; PADDING-TOP: 0px; TEXT-ALIGN: center">
<!--#include file="conn.asp"-->
<TABLE cellSpacing=1 cellPadding=0 width=770 align=center border=0>
<FORM name=a1 action="" method=post target=_self>
<TBODY>
<TR>
<TD align=right><INPUT name=wwwwords> <INPUT type=submit value=清理过期的试用name=Submit3> <INPUT type=submit value=s商品搜索 name=Submit1><INPUT type=submit value=ID搜索 name=Submit2>
</TD>
<TR></FORM></TR></TBODY></TABLE>
<DIV
style="BORDER-RIGHT: #666666 1px solid; PADDING-RIGHT: 5px; BORDER-TOP: #666666 1px solid; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; BORDER-LEFT: #666666 1px solid; WIDTH: 855px; PADDING-TOP: 5px; BORDER-BOTTOM: #666666 1px solid; HEIGHT: 30px; BACKGROUND-COLOR: #f6f6f6">
<TABLE cellSpacing=1 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TH>商品</TH>
<TH>工具</TH>
<TH>用户ID</TH>
<%
set rsc=server.createobject("adodb.recordset")
if Request("Submit3")<>"" then
rsc.Open "select * from shiyon ",conn,1,1
Set rsc = Conn.Execute("delete from shiyon where lasttime<#"& DateAdd("d", -30, now())&"#")
response.write("<script>alert('删除成功');window.location.href('www.asp?action=shiyon')</script>")
elseif Request("Submit1")<>"" then
rsc.Open "select * from shiyon where code ='" & Request.Form("wwwwords") & "'",conn,1,1
elseif Request("Submit2")<>"" then
rsc.Open "select * from shiyon where proid =" & Request.Form("wwwwords") & "",conn,1,1
else
rsc.Open "select * from shiyon ",conn,1,1
end if
