如题!稍后我会把我的代码贴上
---------------------------------------------------------------
把满足条件的记录全提取出来,循环一个个删啊,呵呵
---------------------------------------------------------------
用查询条件,满足条件的全部删除,不过删除之前最好确认一下
---------------------------------------------------------------
循环删除呀!
---------------------------------------------------------------
sql="delete form yourtabel where id=你的条件"
---------------------------------------------------------------
sql = "delete from yourtable where id in (2,4,5,9,44,78)"
---------------------------------------------------------------
删除满足条件的。"delete from table where your condition"
---------------------------------------------------------------
1<input name="del" type="checkbox" value=""/>
1<input name="del" type="checkbox" value=""/>
1<input name="del" type="checkbox" value=""/>
conn.execute"delete from table where id in ("&request("del")&")"
---------------------------------------------------------------
用FOR EACH...NEXT循环语句:
1
2dim itemID,strItemID
3strItemID=""
4For Each strItemID In Request.Form("itemIDForm")
5itemID=Cint(strItemID)
6if strItemID<>"" then
7DelRs = Server.CreateObject("ADODB.Recordset")
8Conn.Execute "Delete From TbName where ID="&Cstr(itemID)
9strItemID=""
10end if
11Next
12
13Response.write "这是一个批量删除的例子."
---------------------------------------------------------------
1
2sql="delete from 表明 where 字段名 in (" & request("mybox") & ")"
3conn.execute sql
4conn.close
5set conn=nothing
搜索一下很多的呀
---------------------------------------------------------------
sql="delete from 表 where 字段名 in (" & request("mybox") & ")"
conn.execute sql
conn.close
set conn=nothing
---------------------------------------------------------------
数据库里多加个字段名为deletecheck的字段类型是bool
1 if rs("deletecheck")=-1 then
1<input =rs("id")="" ```="" name="```" type="checkbox" value="on"/>
1 else
1<input ```="" name```='rs("id")' type="checkbox" value="off"/>
1 end if
1 dim dc
2while not rs.eof
3dc=cstr(rs("id"))
4if request.form(dc)="on" then
5rs.delete
6rs.update
7end if
8rs.movenext
9wend
---------------------------------------------------------------
---------批量删除--------------------------
删除选中记录这样做:
1.在每行加一个checkbox, 相同命名,值为记录的ID号
1<input name="selAnnounce" type="checkbox" value='```
2=cstr(rs("photoid"))
3```'/>
2.做一个删除按钮
1<input name="deletephoto" type="submit"/>
3.在代码的前面加段用于接收需删除的记录号
''从复选框中读取要删除的照片的序号,以此调用删除函数
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
4.做一个删除函数
sub deleteannounce(id)
'再删除照片记录
sql="delete from PHOTOINFO where PHOTOID="&id
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !
1<br/>
"
else
response.write "操作成功!
1<br/>
"
end if
End sub
---------------------------------------------------------------
试试我的代码:
1、用户界面:
1<script language="JavaScript">
2function CheckAll(form)
3{for (var i=0;i<form.elements.length;i++)
4{var e = form.elements[i];
5if (e.name != 'chkall')
6e.checked = form.chkall.checked;
7}
8}
9</script>
1<body>
2<form action="del.asp" method="post" name="form1">
3<table>
4<tr>
5<td><input name="TradeName" type="checkbox" value="111"/>电子邮件1</td>
6</tr>
7<tr>
8<td><input name="TradeName" type="checkbox" value="111"/>电子邮件2</td>
9</tr>
10<tr>
11<td><input name="TradeName" type="checkbox" value="111"/>电子邮件3</td>
12</tr>
13<tr>
14<td><input name="TradeName" type="checkbox" value="111"/>电子邮件4</td>
15</tr>
16<tr>
17<td><input name="TradeName" type="checkbox" value="111"/>电子邮件5</td>
18</tr>
19<tr>
20<td><input name="TradeName" type="checkbox" value="111"/>电子邮件6</td>
21</tr>
22<tr>
23<td bgcolor="#F1FBFC" colspan="2" height="25">
24<p align="left"><input name="chkall" onclick="CheckAll(this.form)" type="checkbox" value="on"/><font color="#FF9900">选中所有显示的消息</font></p>
25</td>
26<center>
27</center></tr>
28</table>
29</form>
302、删除文件del.asp
'这行写连接数据库的代码
dim ID,strID
strID=""
For Each strID In Request.Form("TradeName")
ID=Cint(strID)
if strID<>"" then
DelRs = Server.CreateObject("ADODB.Recordset")
Conn.Execute "Delete From Tbname where ID="&Cstr(ID)
strID=""
end if
Next
Conn.Close
Set Conn = Nothing
Response.Redirect "成功删除!"