asp中对access数据库进行批量删除实例教程
我的access数据库名称叫Bookstore，里面有个books表，表里有内容如下图，我想在asp页面中显示此数据库的表内容，并且在每一条记录后面加入一个删除按钮或者文...
我的access数据库名称叫 Bookstore ，里面有个books表 ，表里有内容如下图，我想在asp页面中显示此数据库的表内容，并且在每一条记录后面加入一个删除按钮或者文字来对这个数据库内容进行逐条删除或者批量删除，请各位大神告诉我从 连接数据库到 显示数据库到asp页面再到 删除成功或者失败怎么做，八百里加急呀！！！这是我的代码
<%@LANGUAGE="VBScript" codepage="936"%>
<%if session("admin")<>"" then%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select id,publish,name,price from books order by id desc"
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<html>
<head>
<title>删除记录</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table align="center" width="900">
<tr>
<td align="center"><font size="5" color="#000000" face="方正大标宋简体">编号</font></td>
<td height="50" align="center"><font size="5" color="#000000" face="方正大标宋简体">书号</font></td>
<td align="center"><font size="5" color="#000000" face="方正大标宋简体">出版社</font></td>
<td align="center"><font size="5" color="#000000" face="方正大标宋简体">定价</font></td>
<td align="center"><font size="5" color="#000000" face="方正大标宋简体">操作</font></td>
</tr>
<%do while not rs.eof%>
<form action="del.asp?cmd=save" method="post" name="form"><tr><td height="60" align="center"><%=rs("id")%></td><td align="center"><%=rs("name")%></td><td align="center"><%=rs("publish")%></td><td align="center"><%=rs("price")%></td><td align="center"><a href="del.asp?id=<%=rs("id")%>" onclick="return confirm('是否确定删除本留言？');"><font color="black" size="5" face="方正大标宋简体">删除</font></a><a href="list.asp?cmd=del&id=<%=rs("id")%>"></a></td></tr></form>
<%
rs.movenext
loop'表示数据自动打印以上内容
%>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html> 展开
<%@LANGUAGE="VBScript" codepage="936"%>
<%if session("admin")<>"" then%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select id,publish,name,price from books order by id desc"
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>
<html>
<head>
<title>删除记录</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table align="center" width="900">
<tr>
<td align="center"><font size="5" color="#000000" face="方正大标宋简体">编号</font></td>
<td height="50" align="center"><font size="5" color="#000000" face="方正大标宋简体">书号</font></td>
<td align="center"><font size="5" color="#000000" face="方正大标宋简体">出版社</font></td>
<td align="center"><font size="5" color="#000000" face="方正大标宋简体">定价</font></td>
<td align="center"><font size="5" color="#000000" face="方正大标宋简体">操作</font></td>
</tr>
<%do while not rs.eof%>
<form action="del.asp?cmd=save" method="post" name="form"><tr><td height="60" align="center"><%=rs("id")%></td><td align="center"><%=rs("name")%></td><td align="center"><%=rs("publish")%></td><td align="center"><%=rs("price")%></td><td align="center"><a href="del.asp?id=<%=rs("id")%>" onclick="return confirm('是否确定删除本留言？');"><font color="black" size="5" face="方正大标宋简体">删除</font></a><a href="list.asp?cmd=del&id=<%=rs("id")%>"></a></td></tr></form>
<%
rs.movenext
loop'表示数据自动打印以上内容
%>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html> 展开
2个回答
展开全部
（第一个小时）
1：首先建立一个access数据库保存为 xhnew.mdb 表名为aa
字段如下：
id 自动排序
name 文本
content 文本
xhtime 日期 默认值 now()
title 文本
2:打开DW 建立文件conn.asp文件
代码如下：
CODE:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xhnew.mdb")
%>
这段语句是连接数据库的语句 set conn=server.createobject("adodb.connection")创建一个connection对象 用该对象的open方法打开数据库
driver={microsoft access driver (*.mdb)};这句语句是access的驱动
dbq="&server.mappath("xhnew.mdb")这句是数据库的路径
建立conn.asp是为了方便接下来的教学。。。
我们可以任何要用到打开数据库连接的文件里加
<!--#include file="conn.asp"-->就可以调用
是不是很方便。第一个小时就学这么多。。。当你弄明白上面的数据库还有代码后。。
就继续跟着我学吧！
（第2个小时）
现在来学把数据库的信息输出来
下面先建立一个主文件index.asp
代码如下
CODE:
<!--#include file="conn.asp"-->
<%
exec="select * from aa order by id desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="628" height="24" border="1" align="center" cellpadding="1" cellspacing="0">
<%
if rs.eof and rs.bof then
response.write("暂时没有文章")
else
do while not rs.eof
%>
<tr>
<td width="66" height="22" ><%=rs("id")%></td>
<td width="66" ><%=rs("name")%></td>
<td width="66" ><%=rs("content")%></td>
<td width="273" ><%=rs("xhtime")%></td>
<td width="53" ><%=rs("title")%></td>
<td><a href="modify.asp?id=<%=rs("id")%>" target="_self">编辑</a></td>
<td width="32" ><a href="del.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<td><a href="add.asp">添加</a></td>
[Copy to clipboard]
代码解释：
(1)<%
exec="select * from aa order by id desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
上面的代码是创建一个recordset对象。。该对象是用来打开数据库中的表的。。也就是打开aa
exec="select * from aa order by id desc " 这句的意思是查找表aa中所有信息并倒序排列
信息. *号表示aa中所有的信息 order by id 就是aa中id字段 desc 是倒序的意思
rs.open exec,conn,1,1 这句话的意思是用recordset对象来打开conn中的表
(2)
<%
if rs.eof and rs.bof then
response.write("暂时没有文章")
else
do while not rs.eof
%>
上面是if语句。。if else语句是相当重要的。。
希望一些初学者要认真的研究一下if else语句。。不可心急。基础才是硬道理
rs.eof 的意思是aa表中的最后一条记录 那么rs.bof就是第一条记录
整个语句用中文翻译就是 当aa表中的最后和最前一条信息没有的时候。。就输出暂时没有文章
或则就循环到eof最后一条信息。。
(3)<tr>
<td width="66" height="22" ><%=rs("id")%></td>
<td width="66" ><%=rs("name")%></td>
<td width="66" ><%=rs("content")%></td>
<td width="273" ><%=rs("xhtime")%></td>
<td width="53" ><%=rs("title")%></td>
<td><a href="modify.asp?id=<%=rs("id")%>" target="_self">编辑</a></td>
<td width="32" ><a href="del.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
上面的代码比较容易理解。。<%=rs("id")%>这个用法是输出数据库字段id..
<a href="modify.asp?id=<%=rs("id")%>" target="_self">编辑</a>这段很重要。。
我来解释一下。。在ie窗口点 编辑 的时候。。页面会跳转到modify.asp的文件里的id
并进行相应的处理。。这里很难解释清楚。。在接下来的例子中再慢慢解说
（4）
<%
rs.movenext
loop
end if
%>
这句是循环结束的语句
rs.movenext 这句是游标向下指的意思
（5）
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
这句是关闭数据库的语句
用完数据库后要记得关闭数据库。。以免占用资源
养成随手关门的好习惯
就学到这里。。好好消化上面的代码。。心急吃不了热豆腐。。
一步一个脚印最塌实
（第3个小时）
现在来学添加数据到数据库 需要两个文件来实现
（1）先建立一个提交表单add.asp
代码如下：
CODE:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="add_new.asp">
名字 <input type="text" name="name"><br>
备注 <input type="text" name="content"><br>
题目<input type="text" name="title" ><br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
</body>
</html>
[Copy to clipboard]
上面代码要注意的是action="add_new.asp"提交到add_new.asp文件
还有name="name" name="content" name="title" 名字要对应
（2）处理文件add_new.asp
代码如下：
CODE:
<!--#include file="conn.asp"-->
<%
name=request.form("name")
content=request.form("content")
title=request.form("title")
exec="insert into aa(name,content,title) values('"+name+"','"+content+"','"+title+"')"
conn.execute exec
conn.close
set conn=nothing
response.redirect "index.asp"
%>
代码解释：
（1）
name=request.form("name")
content=request.form("content")
title=request.form("title")
这三句语句是接收add.asp发来的信息。。request.form("name")就是对应add.asp中的name="name"
（2）
exec="insert into aa(name,content,title) values('"+name+"','"+content+"','"+title+"')"
conn.execute exec
上面的语句是数据库插如信息的语句
insert into aa(name,content,title) 中文意思是插入信息对应aa表中的三个字段
三个字段的数值是values('"+name+"','"+content+"','"+title+"') 这里面对应的值是
这三句语句
name=request.form("name")
content=request.form("content")
title=request.form("title")
传递的
（3）
conn.close
set conn=nothing
response.redirect "index.asp"
关闭数据库。。写如成功后自动转页面到index.asp
到这里相信你已经学会如何添加新记录到数据库了。。
那就跟着我接着学吧。。。
（第4个小时）
接下来我们来学删除数据库信息。。。
删除信息比较简单。。只需要一个文件del.asp
代码如下：
CODE:
<!--#include file="conn.asp"-->
<%
exec="delete * from aa where id="&request.querystring("id")
conn.execute exec
conn.close
set conn=nothing
response.redirect "index.asp"
%>
代码解释：
exec="delete * from aa where id="&request.querystring("id")
conn.execute exec
先翻译成中文意思
删除表aa中id字段的值。。这个值等于="&request.querystring("id")
还记得我们建立index.asp文件的时候吗？里面有段语句是这样的
<td width="32" ><a href="del.asp?id=<%=rs("id")%>">删除</a></td>
大家现在看明白了吧！你们这么聪明。。一定明白了。
我再补充说两句
当我们点击删除的时候。。。这个时候就会连接到del.asp做处理。。
而同时del.asp接收到我们的请求是通过"&request.querystring("id")这句语句
然后conn.execute exec 这条语句就执行删除。。
整个流程就是这样。。。
希望学习的人好好弄清楚。。那样我们才可以继续学习修改
（第5个小时）
现在学习数据的修改。 这是难点。。大家要认真的跟着我学。。
本人也是看了很久才学会的。。解释的不好多多包容。。
修改需要两个文件
（一）建立modify.asp 和del.asp很像似
代码如下：
CODE:
<!--#include file="conn.asp"-->
<%
exec="select * from aa where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<form name="form1" method="post" action="modifysave.asp">
<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>name</td>
<td>content</td>
<td>title</td>
</tr>
<tr>
<td>
<input type="text" name="name" value="<%=rs("name")%>">
</td>
<td>
<input type="text" name="content" value="<%=rs("content")%>">
</td>
<td><input type="text" name="title" value="<%=rs("title")%>">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value="<%=request.querystring("id")%>">
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
代码解释：
（1）
<%
exec="select * from aa where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
这句exec="select * from aa where id="&request.querystring("id")我在del.asp里解释过了
在这里也是一样的道理
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
上面是用recordset对象打开数据表。。。
（2）
<input type="text" name="name" value="<%=rs("name")%>">
这里要注意名字要对应。。否则或出错。。
<input type="hidden" name="id" value="<%=request.querystring("id")%>">
这里是隐藏表单。。。提交隐藏的表单元素会随着表单一起提交，用于传递变量
（二）建立modifysave.asp 文件
代码如下：
CODE:
<!--#include file="conn.asp"-->
<%
exec="select * from aa where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
%>
<%
rs("name")=request.form("name")
rs("content")=request.form("content")
rs("title")=request.form("title")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"index.asp"
%>
代码解释：
（1）
rs("name")=request.form("name")
rs("content")=request.form("content")
rs("title")=request.form("title")
这三句话的意思是数据库中的rs("name")的值等于接收到request.form("name")的值
request.form("name")的值是从modify.asp传递来的。。
（2）
rs.update 这句语句是更新数据库里的信息的意思 就是把提交的信息上传到数据库
1：首先建立一个access数据库保存为 xhnew.mdb 表名为aa
字段如下：
id 自动排序
name 文本
content 文本
xhtime 日期 默认值 now()
title 文本
2:打开DW 建立文件conn.asp文件
代码如下：
CODE:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xhnew.mdb")
%>
这段语句是连接数据库的语句 set conn=server.createobject("adodb.connection")创建一个connection对象 用该对象的open方法打开数据库
driver={microsoft access driver (*.mdb)};这句语句是access的驱动
dbq="&server.mappath("xhnew.mdb")这句是数据库的路径
建立conn.asp是为了方便接下来的教学。。。
我们可以任何要用到打开数据库连接的文件里加
<!--#include file="conn.asp"-->就可以调用
是不是很方便。第一个小时就学这么多。。。当你弄明白上面的数据库还有代码后。。
就继续跟着我学吧！
（第2个小时）
现在来学把数据库的信息输出来
下面先建立一个主文件index.asp
代码如下
CODE:
<!--#include file="conn.asp"-->
<%
exec="select * from aa order by id desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="628" height="24" border="1" align="center" cellpadding="1" cellspacing="0">
<%
if rs.eof and rs.bof then
response.write("暂时没有文章")
else
do while not rs.eof
%>
<tr>
<td width="66" height="22" ><%=rs("id")%></td>
<td width="66" ><%=rs("name")%></td>
<td width="66" ><%=rs("content")%></td>
<td width="273" ><%=rs("xhtime")%></td>
<td width="53" ><%=rs("title")%></td>
<td><a href="modify.asp?id=<%=rs("id")%>" target="_self">编辑</a></td>
<td width="32" ><a href="del.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<td><a href="add.asp">添加</a></td>
[Copy to clipboard]
代码解释：
(1)<%
exec="select * from aa order by id desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
上面的代码是创建一个recordset对象。。该对象是用来打开数据库中的表的。。也就是打开aa
exec="select * from aa order by id desc " 这句的意思是查找表aa中所有信息并倒序排列
信息. *号表示aa中所有的信息 order by id 就是aa中id字段 desc 是倒序的意思
rs.open exec,conn,1,1 这句话的意思是用recordset对象来打开conn中的表
(2)
<%
if rs.eof and rs.bof then
response.write("暂时没有文章")
else
do while not rs.eof
%>
上面是if语句。。if else语句是相当重要的。。
希望一些初学者要认真的研究一下if else语句。。不可心急。基础才是硬道理
rs.eof 的意思是aa表中的最后一条记录 那么rs.bof就是第一条记录
整个语句用中文翻译就是 当aa表中的最后和最前一条信息没有的时候。。就输出暂时没有文章
或则就循环到eof最后一条信息。。
(3)<tr>
<td width="66" height="22" ><%=rs("id")%></td>
<td width="66" ><%=rs("name")%></td>
<td width="66" ><%=rs("content")%></td>
<td width="273" ><%=rs("xhtime")%></td>
<td width="53" ><%=rs("title")%></td>
<td><a href="modify.asp?id=<%=rs("id")%>" target="_self">编辑</a></td>
<td width="32" ><a href="del.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
上面的代码比较容易理解。。<%=rs("id")%>这个用法是输出数据库字段id..
<a href="modify.asp?id=<%=rs("id")%>" target="_self">编辑</a>这段很重要。。
我来解释一下。。在ie窗口点 编辑 的时候。。页面会跳转到modify.asp的文件里的id
并进行相应的处理。。这里很难解释清楚。。在接下来的例子中再慢慢解说
（4）
<%
rs.movenext
loop
end if
%>
这句是循环结束的语句
rs.movenext 这句是游标向下指的意思
（5）
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
这句是关闭数据库的语句
用完数据库后要记得关闭数据库。。以免占用资源
养成随手关门的好习惯
就学到这里。。好好消化上面的代码。。心急吃不了热豆腐。。
一步一个脚印最塌实
（第3个小时）
现在来学添加数据到数据库 需要两个文件来实现
（1）先建立一个提交表单add.asp
代码如下：
CODE:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="add_new.asp">
名字 <input type="text" name="name"><br>
备注 <input type="text" name="content"><br>
题目<input type="text" name="title" ><br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
</body>
</html>
[Copy to clipboard]
上面代码要注意的是action="add_new.asp"提交到add_new.asp文件
还有name="name" name="content" name="title" 名字要对应
（2）处理文件add_new.asp
代码如下：
CODE:
<!--#include file="conn.asp"-->
<%
name=request.form("name")
content=request.form("content")
title=request.form("title")
exec="insert into aa(name,content,title) values('"+name+"','"+content+"','"+title+"')"
conn.execute exec
conn.close
set conn=nothing
response.redirect "index.asp"
%>
代码解释：
（1）
name=request.form("name")
content=request.form("content")
title=request.form("title")
这三句语句是接收add.asp发来的信息。。request.form("name")就是对应add.asp中的name="name"
（2）
exec="insert into aa(name,content,title) values('"+name+"','"+content+"','"+title+"')"
conn.execute exec
上面的语句是数据库插如信息的语句
insert into aa(name,content,title) 中文意思是插入信息对应aa表中的三个字段
三个字段的数值是values('"+name+"','"+content+"','"+title+"') 这里面对应的值是
这三句语句
name=request.form("name")
content=request.form("content")
title=request.form("title")
传递的
（3）
conn.close
set conn=nothing
response.redirect "index.asp"
关闭数据库。。写如成功后自动转页面到index.asp
到这里相信你已经学会如何添加新记录到数据库了。。
那就跟着我接着学吧。。。
（第4个小时）
接下来我们来学删除数据库信息。。。
删除信息比较简单。。只需要一个文件del.asp
代码如下：
CODE:
<!--#include file="conn.asp"-->
<%
exec="delete * from aa where id="&request.querystring("id")
conn.execute exec
conn.close
set conn=nothing
response.redirect "index.asp"
%>
代码解释：
exec="delete * from aa where id="&request.querystring("id")
conn.execute exec
先翻译成中文意思
删除表aa中id字段的值。。这个值等于="&request.querystring("id")
还记得我们建立index.asp文件的时候吗？里面有段语句是这样的
<td width="32" ><a href="del.asp?id=<%=rs("id")%>">删除</a></td>
大家现在看明白了吧！你们这么聪明。。一定明白了。
我再补充说两句
当我们点击删除的时候。。。这个时候就会连接到del.asp做处理。。
而同时del.asp接收到我们的请求是通过"&request.querystring("id")这句语句
然后conn.execute exec 这条语句就执行删除。。
整个流程就是这样。。。
希望学习的人好好弄清楚。。那样我们才可以继续学习修改
（第5个小时）
现在学习数据的修改。 这是难点。。大家要认真的跟着我学。。
本人也是看了很久才学会的。。解释的不好多多包容。。
修改需要两个文件
（一）建立modify.asp 和del.asp很像似
代码如下：
CODE:
<!--#include file="conn.asp"-->
<%
exec="select * from aa where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<form name="form1" method="post" action="modifysave.asp">
<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>name</td>
<td>content</td>
<td>title</td>
</tr>
<tr>
<td>
<input type="text" name="name" value="<%=rs("name")%>">
</td>
<td>
<input type="text" name="content" value="<%=rs("content")%>">
</td>
<td><input type="text" name="title" value="<%=rs("title")%>">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value="<%=request.querystring("id")%>">
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
代码解释：
（1）
<%
exec="select * from aa where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
这句exec="select * from aa where id="&request.querystring("id")我在del.asp里解释过了
在这里也是一样的道理
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
上面是用recordset对象打开数据表。。。
（2）
<input type="text" name="name" value="<%=rs("name")%>">
这里要注意名字要对应。。否则或出错。。
<input type="hidden" name="id" value="<%=request.querystring("id")%>">
这里是隐藏表单。。。提交隐藏的表单元素会随着表单一起提交，用于传递变量
（二）建立modifysave.asp 文件
代码如下：
CODE:
<!--#include file="conn.asp"-->
<%
exec="select * from aa where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
%>
<%
rs("name")=request.form("name")
rs("content")=request.form("content")
rs("title")=request.form("title")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"index.asp"
%>
代码解释：
（1）
rs("name")=request.form("name")
rs("content")=request.form("content")
rs("title")=request.form("title")
这三句话的意思是数据库中的rs("name")的值等于接收到request.form("name")的值
request.form("name")的值是从modify.asp传递来的。。
（2）
rs.update 这句语句是更新数据库里的信息的意思 就是把提交的信息上传到数据库
追问
我已经试过了，提示错误conn.asp第三行，
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<!--#include file="conn.asp"-->
<%
'---------------删除-----------------------
if Request.Querystring("act")="del" then
sid=request.querystring("sid")
sql="delete from [books] where id="&sid
conn.execute sql
elseif Request.Querystring("act")="delall" then
sql="delete from [books]"
conn.execute sql
end if
'---------------显示-----------------------
set rs=server.CreateObject("adodb.recordset")
rs.open"select id,publish,name,price from [books] order by id desc",conn,3,1
if rs.eof then
Response.Write "配置出错"
Response.end
end if
Response.Write "<table border=""1""><tr><td>编号</td><td>书号</td><td>出版社</td><td>定价</td><td>操作<a href=""?act=delall"">删除所有(共有"&rs.RecordCount&"条)</a></td></tr>"
For i=1 to rs.RecordCount
StrID=rs("id")
StrPubLish=rs("publish")
StrName=rs("name")
StrPrice=rs("price")
Response.Write "<tr><td>"&StrID&"</td><td>"&StrPubLish&"</td><td>"&StrName&"</td><td>"&StrPrice&"</td><td><a href=""?act=del&sid="&StrID&""">删除</a></td></tr>"
rs.Movenext
if rs.EOF then Exit for
Next
Response.Write "</table>"
rs.close
set rs=nothing
%>
<%
'---------------删除-----------------------
if Request.Querystring("act")="del" then
sid=request.querystring("sid")
sql="delete from [books] where id="&sid
conn.execute sql
elseif Request.Querystring("act")="delall" then
sql="delete from [books]"
conn.execute sql
end if
'---------------显示-----------------------
set rs=server.CreateObject("adodb.recordset")
rs.open"select id,publish,name,price from [books] order by id desc",conn,3,1
if rs.eof then
Response.Write "配置出错"
Response.end
end if
Response.Write "<table border=""1""><tr><td>编号</td><td>书号</td><td>出版社</td><td>定价</td><td>操作<a href=""?act=delall"">删除所有(共有"&rs.RecordCount&"条)</a></td></tr>"
For i=1 to rs.RecordCount
StrID=rs("id")
StrPubLish=rs("publish")
StrName=rs("name")
StrPrice=rs("price")
Response.Write "<tr><td>"&StrID&"</td><td>"&StrPubLish&"</td><td>"&StrName&"</td><td>"&StrPrice&"</td><td><a href=""?act=del&sid="&StrID&""">删除</a></td></tr>"
rs.Movenext
if rs.EOF then Exit for
Next
Response.Write "</table>"
rs.close
set rs=nothing
%>
追问
这个代码是要复制到哪里去呀，，我另存为del2.asp了。。另外我发现我连接数据库代码错了，
追答
上面的代码可以用的就像你现在这们另存也可以，前提是你的conn.asp连接要有效，还有数据库表是正确，上面都提示了数据库没有名为books的表
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
