如何在一个表单同时实现批删除和批修改数据记录
各位asp大侠,我是asp新手,向你们请教指点下,如何才能实现批修改?下面是我自己整的代码:希望各位大侠能在白忙之中给我看看是怎么回事?(配有源文件)
asp批量修改和批量删除.rar
(12.48 KB)
数据库链接页:conn.asp 代码如下:
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source=" &server.mappath("price.mdb")
conn.open
'定义一个关闭数据库链接的子程序,方便以后调用
sub close_conn
conn.close
set conn = nothing
end sub
%>
主页:index_fdel.asp 代码如下:
<% @language="VBScript" %>
<!--#include file="conn.asp"-->
<%
dim rs,sql,page
page=Request.querystring("page")
set rs=server.createobject("adodb.recordset")
sql="select * from 零件报价表 order by 报价日期 desc"
rs.open sql,conn,1,3
rs.pagesize=12
if isnumeric(page) then
if page="" or cint(page) < 1 then
rs.absolutepage=1
elseif cint(page) > rs.pagecount then
rs.absolutepage=rs.pagecount
else
rs.absolutepage=page
end if
else
rs.absolutepage=1
end if
%>
<html>
<head>
<meta http-equiv="Content-type" content="text/html; charset=gb2312" />
<title>数据库批量修改和批量删除</title>
<Script type="text/javascript">
function CheckAll(form) {
for(var i=0;i<form.elements.length;i++) {
var e=form.elements[i];
if(e.name!='chkall')
e.checked=form.chkall.checked;
}
}
function ConfirmMsg(msg) {
document.returnValue = confirm(msg);
}
</Script>
<style type="text/css">
a{
text-decoration:none;
}
</style>
</head>
<body>
<form name="form1" id="form1" method="post" action="del_fix.asp">
<table border="1" align="center" width="900px">
<tr>
<th>零件种类</th>
<th>厂 家</th>
<th>规 格</th>
<th>报 价</th>
<th>报价日期</th>
<th>选 择</th>
</tr>
<% for i = 1 to rs.pagesize
if rs.eof then exit for
%>
<tr>
<td><input type="text" name="type1" id="type1" value="<%=rs("零件种类")%>" /></td>
<td><input type="text" name="cj" id="cj" value="<%=rs("厂家")%>" /></td>
<td><input type="text" name="gg" id="gg" value="<%=rs("规格")%>" /></td>
<td><input type="text" name="jg" id="jg" value="<%=rs("价格")%>" /></td>
<td><input type="text" name="barq" id="barq" value="<%=rs("报价日期")%>" /></td>
<td><input type="checkbox" name="ShowId" id="ShowId" value="<%=rs("编号")%>"/></td>
</tr>
<%
rs.movenext
next
%>
<tr >
<td colspan="6" align="right">
总共<%=rs.recordcount%>条记录
<% for j = 1 to rs.pagecount %>
<a href="index_fdel.asp?page=<%=j %>"> <%=j %> </a> |
<% next %>
<input type="submit" name="sendfix" style="cursor:pointer;" value="修改" onclick="ConfirmMsg('您确定修改所选的内容吗?');return document.returnValue" />
<input type="submit" name="senddel" style="cursor:pointer;" value="删除"onclick="ConfirmMsg('您确定删除所选的内容吗?');return document.returnValue" />
<input type="checkbox" name="chkall" onclick=" CheckAll(this.form)"/ > 全选
</td>
</tr>
</table>
</form>
</body>
</html>
<%
rs.close
set rs=nothing
call close_conn
%>
图示:
删除和修改处理页面:del_fix.asp 代码如下:
<!--#include file="conn.asp"-->
<%
response.charset = "GBK"
dim ShowId,type1,cj,gg,jg,barq
type1= request.form("type1")
cj = request.form("cj")
gg = request.form("gg")
jg = request.form("jg")
ShowId =request.form("ShowId")
barq = request.form("barq")
ShowId =request.form("ShowId")
if ShowId = "" then
response.write "<script>alert('你没有选定内容!');history.back();</script>"
response.end
end if
'先判断是否点击修改按钮过来的,如果是,那么就执行下面的修改
if request.form("sendfix") <> "" then
'批量修改记录
sql = "update 零件报价表 set 零件种类='"&type1&"', 厂家='"&cj&"', 规格='"&gg&"', 价格='"&jg&"', 报价日期='"&barq&"' where 编号 '"&ShowId&"'"
conn.execute(sql)
call close_conn
response.write "<script>alert('修改成功!');location.href='index_fdel.asp';</script>"
'如果不是点击修改按钮传值过来的,那就执行删除
else
'批量删除开始
sql = "delete from 零件报价表 where 编号 in ("&ShowId&")"
conn.execute(sql)
call close_conn
response.write "<script>alert('删除成功!');location.href='index_fdel.asp';</script>"
end if
%>
