梦到蚂蝗钻肉里拔出来:对象关闭时,不允许操作。在线等.没问题再追加分数

来源:百度文库 编辑:高校问答 时间:2024/05/06 18:44:09
可以操作成功.也可以带值提交到另一个页面.只是一定会出
对象关闭时,不允许操作。下面是所有代码
<%
Dim cn
set cn=server.createobject("adodb.connection")
cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("DB.mdb")
uName=request.form("uName")
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "delete uName from userDB where uName='" & uName & "'",cn

%>
<center><h1><form name = "ManageDB" action = "ManageDB.asp" method = "post">
删除成功...</h1>点这里返回<input name="ManageDB" type="submit" value="管理">页
<input type="hidden" name="uAuthority" value="1">
</form>
</center>

<%

rs.close
Set rs=nothing
cn.close
set cn=nothing
%>

修改后的代码(不用创建Recordset对象)
<%
Dim cn
set cn=server.createobject("adodb.connection")
cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("DB.mdb")
uName=request.form("uName")
cn.execute("delete uName from userDB where uName='" & uName & "'")
%>
<center><h1><form name = "ManageDB" action = "ManageDB.asp" method = "post">
删除成功...</h1>点这里返回<input name="ManageDB" type="submit" value="管理">页
<input type="hidden" name="uAuthority" value="1">
</form>
</center>
<%
on error resume next
cn.close
set cn=nothing
%>

rs.close
Set rs=nothing
cn.close
set cn=nothing
%>
就是你把对象关闭了 数据库连接给关闭了!
我也 是学asp的 呵呵 有时间到我的叶子来
http://zhaodanyy.oicp.net