ADODB.Recordset 错误 '800a0e78'对象关闭时,不允许操作(asp问题)
ADODB.Recordset错误'800a0e78'对象关闭时,不允许操作。//行182代码如下:subMemEdit()dimAction,rs,sqlAction=...
ADODB.Recordset 错误 '800a0e78'
对象关闭时,不允许操作。//行 182
代码如下:
sub MemEdit()
dim Action,rs,sql
Action=request.QueryString("Action")
。。。。
rs.open sql,conn,1,3
rs.addnew
rs("MemName")=trim(Request.Form("MemName"))
rs("RealName")=StrReplace(trim(Request.Form("RealName")))
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then
response.write "<script language=javascript> alert('会员密码必填,且字符数为6-16位!');history.back(-1);</script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
。。。。 rs("MemName")=trim(Request.Form("MemName"))
rs("RealName")=StrReplace(trim(Request.Form("RealName")))
if trim(Request.Form("Password"))<>"" then
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then
response.write "<script language=javascript> alert('会员密码必填,且字符数为6-16位!');history.back(-1);</script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
response.write "<script language=javascript> alert('两次输入的密码不一样!');history.back(-1);</script>"
response.end
end if
rs("Password")=Md5(Request.Form("Password"))
end if
rs("Sex")=Request.Form("Sex")
mGroupIdName=split(Request.Form("GroupID"),"┎╂┚")
rs("GroupID")=mGroupIdName(0)
rs("GroupName")=mGroupIdName(1)
rs("Company")=StrReplace(trim(Request.Form("Company")))
rs("Address")=StrReplace(trim(Request.Form("Address")))
rs("ZipCode")=StrReplace(trim(Request.Form("ZipCode")))
rs("Telephone")=StrReplace(trim(Request.Form("Telephone")))
rs("Fax")=StrReplace(trim(Request.Form("Fax")))
rs("Mobile")=StrReplace(trim(Request.Form("Mobile")))
rs("Email")=StrReplace(trim(Request.Form("Email")))
rs("HomePage")=StrReplace(trim(Request.Form("HomePage")))
if Request.Form("Working")=1 then
rs("Working")=Request.Form("Working")
else
rs("Working")=0
end if
end if
rs.update//182行
rs.close
。。。。 展开
对象关闭时,不允许操作。//行 182
代码如下:
sub MemEdit()
dim Action,rs,sql
Action=request.QueryString("Action")
。。。。
rs.open sql,conn,1,3
rs.addnew
rs("MemName")=trim(Request.Form("MemName"))
rs("RealName")=StrReplace(trim(Request.Form("RealName")))
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then
response.write "<script language=javascript> alert('会员密码必填,且字符数为6-16位!');history.back(-1);</script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
。。。。 rs("MemName")=trim(Request.Form("MemName"))
rs("RealName")=StrReplace(trim(Request.Form("RealName")))
if trim(Request.Form("Password"))<>"" then
if len(trim(Request.Form("Password")))<6 or len(trim(Request.Form("Password")))>16 then
response.write "<script language=javascript> alert('会员密码必填,且字符数为6-16位!');history.back(-1);</script>"
response.end
end if
if Request.Form("Password")<>Request.Form("vPassword") then
response.write "<script language=javascript> alert('两次输入的密码不一样!');history.back(-1);</script>"
response.end
end if
rs("Password")=Md5(Request.Form("Password"))
end if
rs("Sex")=Request.Form("Sex")
mGroupIdName=split(Request.Form("GroupID"),"┎╂┚")
rs("GroupID")=mGroupIdName(0)
rs("GroupName")=mGroupIdName(1)
rs("Company")=StrReplace(trim(Request.Form("Company")))
rs("Address")=StrReplace(trim(Request.Form("Address")))
rs("ZipCode")=StrReplace(trim(Request.Form("ZipCode")))
rs("Telephone")=StrReplace(trim(Request.Form("Telephone")))
rs("Fax")=StrReplace(trim(Request.Form("Fax")))
rs("Mobile")=StrReplace(trim(Request.Form("Mobile")))
rs("Email")=StrReplace(trim(Request.Form("Email")))
rs("HomePage")=StrReplace(trim(Request.Form("HomePage")))
if Request.Form("Working")=1 then
rs("Working")=Request.Form("Working")
else
rs("Working")=0
end if
end if
rs.update//182行
rs.close
。。。。 展开
3个回答
展开全部
看看你的连接数据库的对象conn打开了没有,创建rs对象前必须将conn对象打开
一般就是这个错误
一般就是这个错误
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不允许操作 一般来说是权限问题 修改数据库权限
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把rs.open sql,conn,1,3
改成:
rs.open sql,conn,3,3
试试看
改成:
rs.open sql,conn,3,3
试试看
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询