ASP删除ACCESS数据库问题！
<!--#includefile="conn.asp"--><!--#includefile="check.asp"--><head><metahttp-equiv="C...
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除用户</title>
</head>
<body>
<table width="555" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="18" bgcolor="#0066CC">
<div class=style3 align=center>
<div align="left"><a href="add.asp">添加用户</a> | <a href="del.asp">删除用户</a> |
</div>
</div>
</td>
</tr>
<tr>
<td height="18"><span class="style2">当前用户：<%=session("user")%> 当前日期时间：<%=now()%></span></td>
</tr>
</table>
<table width="555" border="0" cellpadding="0" cellspacing="0" align="center" >
<tr><td colspan="5"></tr>
<tr height="50">
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>ID</b></td>
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>帐户</b></td>
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>名称</b></td>
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>密码</b></td>
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>操作</b></td>
</tr>
<%
Set rs=server.createobject("adodb.recordset")
sql="select * from username"
rs.Open sql,conn,1,1
if rs.eof or rs.bof then
response.write ("暂无信息")
else
%>
<%
do while not rs.eof
%>
<tr>
<td bordercolor="#CCCCCC" align="center"><%=rs("id")%></td>
<td bordercolor="#CCCCCC" align="center"><%=rs("user")%></td>
<td bordercolor="#CCCCCC" align="center"><%=rs("beizhu")%></td>
<td bordercolor="#CCCCCC" align="center"><%=rs("pass")%></td>
<td bordercolor="#000000" align="center"><a href="?action=del&id=<%=rs("id")%>" >删除</a></td>
</tr>
<%
rs.movenext
loop
%>
<%
conn.close
set conn=nothing
end if
%>
</table>
<%
if request("action")="del" then
set rs=server.CreateObject("adodb.recordset")
id=request.form("id")
conn.execute "delete from username where id ="&id
(这里出错，提示Microsoft VBScript 运行时错误 '800a01a8'
缺少对象: 'conn'
\manage\del.asp, line 104
)
set conn=nothing
rs.Close
set rs=nothing
end if
%>
</body>
问题补充：两个问题 1， 删除按键 那里是白色 和背景色一样，调整不过来，不知道为什吗？
2。点击删除后，提示Microsoft VBScript 运行时错误 '800a01a8'
缺少对象: 'conn'
\manage\del.asp, line 104
。搞不明白
盼高手解答，
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
conn.asp在同一目录下
<%
set conn= server.createobject("adodb.connection")
sql = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("..\database\air.mdb")
conn.open sql
%>
<!--- 定义数据库联接文件--->
其实就是想从 air.mdb 数据库里面的 user中删除用户
user 表单中只有"id、user、、beizhu、pass" 几个字节， 展开
<!--#include file="check.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除用户</title>
</head>
<body>
<table width="555" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="18" bgcolor="#0066CC">
<div class=style3 align=center>
<div align="left"><a href="add.asp">添加用户</a> | <a href="del.asp">删除用户</a> |
</div>
</div>
</td>
</tr>
<tr>
<td height="18"><span class="style2">当前用户：<%=session("user")%> 当前日期时间：<%=now()%></span></td>
</tr>
</table>
<table width="555" border="0" cellpadding="0" cellspacing="0" align="center" >
<tr><td colspan="5"></tr>
<tr height="50">
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>ID</b></td>
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>帐户</b></td>
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>名称</b></td>
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>密码</b></td>
<td width="111" bordercolor="#CCCCCC" bgcolor="#EBEBEB" align="center"><b>操作</b></td>
</tr>
<%
Set rs=server.createobject("adodb.recordset")
sql="select * from username"
rs.Open sql,conn,1,1
if rs.eof or rs.bof then
response.write ("暂无信息")
else
%>
<%
do while not rs.eof
%>
<tr>
<td bordercolor="#CCCCCC" align="center"><%=rs("id")%></td>
<td bordercolor="#CCCCCC" align="center"><%=rs("user")%></td>
<td bordercolor="#CCCCCC" align="center"><%=rs("beizhu")%></td>
<td bordercolor="#CCCCCC" align="center"><%=rs("pass")%></td>
<td bordercolor="#000000" align="center"><a href="?action=del&id=<%=rs("id")%>" >删除</a></td>
</tr>
<%
rs.movenext
loop
%>
<%
conn.close
set conn=nothing
end if
%>
</table>
<%
if request("action")="del" then
set rs=server.CreateObject("adodb.recordset")
id=request.form("id")
conn.execute "delete from username where id ="&id
(这里出错，提示Microsoft VBScript 运行时错误 '800a01a8'
缺少对象: 'conn'
\manage\del.asp, line 104
)
set conn=nothing
rs.Close
set rs=nothing
end if
%>
</body>
问题补充：两个问题 1， 删除按键 那里是白色 和背景色一样，调整不过来，不知道为什吗？
2。点击删除后，提示Microsoft VBScript 运行时错误 '800a01a8'
缺少对象: 'conn'
\manage\del.asp, line 104
。搞不明白
盼高手解答，
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
conn.asp在同一目录下
<%
set conn= server.createobject("adodb.connection")
sql = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("..\database\air.mdb")
conn.open sql
%>
<!--- 定义数据库联接文件--->
其实就是想从 air.mdb 数据库里面的 user中删除用户
user 表单中只有"id、user、、beizhu、pass" 几个字节， 展开
4个回答
展开全部
<%
conn.close
set conn=nothing
end if
%>
</table>
这里面已经释放了conn了，所以才会出现conn缺少对象
把 set conn=nothing删除
conn.close
set conn=nothing
end if
%>
</table>
这里面已经释放了conn了，所以才会出现conn缺少对象
把 set conn=nothing删除
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
壹寰（深圳）科技文化有限公司
2021-03-27 广告
要找正规专业的公司，行业口碑也比较重要。如果想了解更多详细信息,可以咨询下壹寰(深圳)科技文化有限公司。91数据恢复是壹寰（深圳）科技文化有限公司旗下专业数据恢复品牌，91数据恢复专注于勒索病毒数据恢复、勒索病毒数据修复、数据库修复、数据库...
点击进入详情页
本回答由壹寰（深圳）科技文化有限公司提供
展开全部
conn.execute ("delete * from username where id ="&id)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
conn.execute "delete from username where id ="&id
换成
rs.open "delete * from username where ID="&ID,conn,1,3
就可以了
换成
rs.open "delete * from username where ID="&ID,conn,1,3
就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
因为提早把conn至空可
conn=nothing
conn=nothing
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
