这是什么错了???

zigine 2003-04-21 08:35:15
ADODB.Recordset (0x800A0E79)
对象打开时,不允许操作。
/alaud/ad/regedithy.asp, 第 54 行


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

网页:
POST 172 ??? /alaud/ad/regedithy.asp

POST Data:
login=11111&passwd=1111&pass2=1111&question=1111&answer=1111&grorqy=%B8%F6%C8%CB&name=1111&tel=1111&fax=11&mail=11&wz=11&add=111111&zip=111111&sm=111&submit=+%CB%CD%B3%F6++

代码如下:

<%
username=request.form("login")
password=request.form("passwd")
passts=request.form("question")
passhd=request.form("answer")
name=request.form("name")
tel=request.form("tel")
fax=request.form("fax")
mail=request.form("mail")
wz=request.form("wz")
add=request.form("add")
zip=request.form("zip")
grorqy=request.form("grorqy")
sm=request.form("sm")
sql="SELECT * FROM user WHERE username='"& request.form("login")&"'"
set rs2=server.CreateObject ("ADODB.Recordset")
rs2.Open sql,conn,3,3
if rs2.recordcount > 0 then
%>
<br>
<br>
<br>
<br>
<br>
<b><font size="5" color="#000066" face="楷体_GB2312">注册失败!!!</font></b>
<br>
<br>
<br>
<br>
<br>
<br>
<a href="#" onClick=javascript:history.back()><font color="#000066">返回</font></a>
<br>
<br>
<br>
<br>
<%
rs2.close
else
sql="SELECT * FROM user"
rs2.open sql,conn,3,3
rs.AddNew
rs("username")=username
rs("password")=password
rs("passts")=passts
rs("passhd")=passhd
rs("name")=name
rs("tel")=tel
rs("fax")=fax
rs("mail")=mail
rs("wz")=wz
rs("add")=add
rs("zip")=zip
rs("grorqy")=grorqy
rs("sm")=sm
rs("time")=cstr(now())

rs2.Update
%>
...全文
12 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ministry_bill 2003-04-21
更正一下
<%
rs2.close
else
rs2.close
sql="SELECT * FROM user"
rs2.open sql,conn,1,3
rs2.AddNew
rs2("username")=username
rs2("password")=password
rs2("passts")=passts
rs2("passhd")=passhd
rs2("name")=name
rs2("tel")=tel
rs2("fax")=fax
rs2("mail")=mail
rs2("wz")=wz
rs2("add")=add
rs2("zip")=zip
rs2("grorqy")=grorqy
rs2("sm")=sm
rs2("time")=cstr(now())

rs2.Update
%>
回复
ministry_bill 2003-04-21
sorry,笔误,是rs2没有关闭
<%
rs2.close
else
rs2.close
sql="SELECT * FROM user"
rs2.open sql,conn,3,3
rs.AddNew
rs("username")=username
rs("password")=password
rs("passts")=passts
rs("passhd")=passhd
rs("name")=name
rs("tel")=tel
rs("fax")=fax
rs("mail")=mail
rs("wz")=wz
rs("add")=add
rs("zip")=zip
rs("grorqy")=grorqy
rs("sm")=sm
rs("time")=cstr(now())

rs2.Update
%>
回复
ministry_bill 2003-04-21
执行else语句的时候
rs2已经关闭了
回复
jobine 2003-04-21
rs2.open sql,conn,3,3
rs.AddNew
rs("username")=username
rs("password")=password
rs("passts")=passts
rs("passhd")=passhd
rs("name")=name
rs("tel")=tel
rs("fax")=fax
rs("mail")=mail
rs("wz")=wz
rs("add")=add
rs("zip")=zip
rs("grorqy")=grorqy
rs("sm")=sm
rs("time")=cstr(now())

rs2.Update
到底是rs还是rs2呢?
回复
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2003-04-21 08:35
社区公告
暂无公告