我的世界50级附魔台:asp 问题急啊...........asp 问题急啊...........asp 问题急啊...........

ADODB.Field 错误 '80020009'

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

/Supply_add.asp，行0

<%if session("username") = "" and session("userpws") = "" then
response.Write "<script language='javascript'>alert('你还没有登陆,请登陆后在发布消息！');location.href='index.asp'</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&session("username")&"'"
rs.open sql,conn,1,1
end if%>
<% session("username")=1 %>
<% session("userpws")=2 %>
<% if request("action")="out" then
session("username") = ""
session("userpws") = ""
response.redirect "MemberLogin.asp"
end if%>
<%if session("username") = "" and session("userpws") = "" then
response.Write "<script language='javascript'>alert('你还没有登陆,请登陆后在发布消息！');location.href='index.asp'</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&session("username")&"'"
rs.open sql,conn,1,1
end if
%>
<% if request("action")="dl" then
names=request("username")
pws=request("userpws")
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&names&"' and password='"&pws&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<script language='javascript'>alert('用户名或密码错误,请重新登陆！');history.go(-1);</script>"
else
if rs("admin")=0 then
response.Write "<script language='javascript'>alert('你的帐号管理员还没审核，请与管理员联系！');location.href='index.asp'</script>"
else
session("username") = rs("username")
session("userpws") = rs("password")
session("cropname") =rs("cropname")
response.redirect "MemberLogin.asp"
end if
end if
end if%>
<%if request("action")="add" then
types = request.form("type")
admin_show = request.form("admin_show")
username = request("username")
address = request.form("address")
tel = request.form("tel")
title = request.form("title")
content =request.form("content")
set rss=server.createobject("adodb.recordset")
sql="select * from yuaner_book"
rss.open sql,conn,1,3
rss.addnew
if admin_show <>"" then
rss("admin_show") = admin_show
end if
rss("username") =username
rss("address") = address
rss("tel") = tel
rss("type") = types
rss("title") = title
rss("content") = htmlencode(content)
rss.update
response.Write "<script language='javascript'>alert('信息发布成功，返回其它功能！');location.href='Supply_News.asp';</script>"
end if%>