asp全选框删除的功能

时间：2021-04-16

　　以下的代码实现asp全选框删除的功能：

一.删除首页

<!--#include file="conn.asp"-->
<script>
function del () //用于判断记录有没有选中的函数
{
var flag=true;
var temp="";
var tmp;
if((document.form1.answer.length+"")=="undefined") {tmp=1}else{tmp=document.form1.answer.length}
if (tmp==1){
if (document.form1.answer.checked){
flag=false;
temp=document.form1.answer.value
}
}else{
for (i=0;i<document.form1.answer.length;i++) {
if (document.form1.answer[i].checked){
if (temp==""){
flag=false;
temp=document.form1.answer[i].value
}else{
flag=false;
temp = temp +","+ document.form1.answer[i].value
}
}
}
}
if (flag){ alert("对不起，你还没有选择！")}
else{ name=document.form1.name.value
//alert(name)
if (confirm("确实要删除？")){
window.location="delete.asp?id=" + temp;
}
}
return !flag;
}
</script>
</head>
<body>
<script language=Javascript>
function checkall(all)//用于判断全选记录的函数
{
var a = document.getElementsByName("answer");
for (var i=0; i<a.length; i++) a[i].checked = all.checked;
}
</script>
<%
exec="select * from asktitle order by id desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table>
<form method="POST" id=form1 name=form1>
<tr>
<td>标题</td>
<td>删除</td>
<td>A</td>
<td>B</td>
<td>C</td>
<td>D</td>
</tr>
<%do while not rs.eof%>
<tr>
<td><input type="checkbox" name="answer" value="<%=rs("id")%>" ID="Checkbox1"></td>
<td><%=rs("asktitle")%></td>
<td><%=rs("aska")%></td>
<td><%=rs("askb")%></td>
<td><%=rs("askc")%></td>
<td><%=rs("askd")%></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr>
<td colspan="6"><input type="checkbox" name="chkall" value="on" onClick="checkall(this)" ID="Checkbox2">选中所有的显示　　　
<input type="button" name="btnDelete" value="删除" onClick="del()" ID="Button1">
</td>
</tr>
</form>
</table>

二.删除页

<!--#include file="conn.asp"-->
<%
arrdel=Request("id")
exec="delete from asktitle where id in ("&arrdel&")"
conn.execute exec
conn.close
set conn=nothing
response.redirect "index.asp"
%>

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章