对复选框进行全选,怎么做?
我做了一个数据删除页面,每行数据前都有一个复选框,勾选数据前对应的复选框后,然后按删除数据按钮,即可对所勾选的数据进行删除,当数据很多时,要一个个的勾选,这样做很费时,我想做一个全选按钮,只要按下全选按钮,即可勾选所有数据,然后按删除数据按钮,即可删除所有数据,这样可以提高效率,谁能帮我实此种效果?(我这些数据与复选框是动态生成的)
相关代码如下:
<%
do while not rs.eof
%>
<table width= "800 " border= "1 ">
<tr>
<td width= "28 ">
<input type= "checkbox " name= "checkbox " value= " <%=rs( "id ")%> ">
</td>
<td width= "84 ">
<div align= "center "> <font size= "1 "> <%=rs( "testnumber ")%> </font> </div>
</td>
<td width= "100 ">
<div align= "center "> <font size= "1 "> <%=rs( "name ")%> </font> </div>
</td>
<td width= "56 ">
<div align= "center "> <font size= "1 "> <%=rs( "language ")%> </font> </div>
</td>

<td width= "56 ">
<div align= "center "> <font size= "1 "> <%=rs( "mathe ")%> </font> </div>
</td>

<td width= "56 ">
<div align= "center "> <font size= "1 "> <%=rs( "english ")%> </font> </div>
</td>
</table>
<%
rs.movenext
loop
rs.close
%>

[解决办法]
给你一个示例,你自己改一下就行了。
*****4.asp*****
<%selectall=request.QueryString( "checkall ")%>
<form name= "form1 " method= "post " action= " ">
<table width= "6% " border= "0 ">
<%for i=1 to 10
if selectall then%>
<tr> <td> <input type= "checkbox " name= "checkbox " value= "checkbox " checked> </td> </tr>
<%else%>
<tr> <td> <input type= "checkbox " name= "checkbox " value= "checkbox "> </td> </tr>
<%end if
next%>
</table>
</form>
<form name= "form2 " method= "post " action= " ">
<%if selectall then%>
<input type= "checkbox " name= "checkbox4 " checked value= "true " onClick= "pagereload(this) ">
全选
<%else%>
<input type= "checkbox " name= "checkbox4 " value= "true " onClick= "pagereload(this) ">
全选 <%end if%>
</form>
<script language= "vbscript ">
sub pagereload(v)
if v.checked then
location.assign( "4.asp?checkall=true ")
else
location.assign( "4.asp?checkall=false ")
end if
end sub
</script>
[解决办法]
简化一下，呵呵：

<%selectall=request.QueryString( "checkall ")%>
<form name= "form1 " method= "post " action= " ">
<table width= "6% " border= "0 ">
<%for i=1 to 10%>
<tr> <td> <input type= "checkbox " name= "checkbox " value= "checkbox " <%if selectall then response.write "checked "%> > </td> </tr>
<%next%>
</table>
</form>
<form name= "form2 " method= "post " action= " ">
<input type= "checkbox " name= "checkbox4 " <%if selectall then response.write "checked "%> value= "全选 " onClick= "pagereload(this) ">
全选
</form>
</body>
</html>
<script language= "vbscript ">
sub pagereload(v)
if v.checked then
location.assign( "4.asp?checkall=true ")
else
location.assign( "4.asp?checkall=false ")
end if

end sub
</script>
[解决办法]
如何点击checkbox实现全部选中
来源： 作者：Eric

点击一个复选框，全部选中（取消选中）列表中的复选框的实现方法：
定义一个复选框
<input type= "checkbox " name= "chkAll " value= "on " onClick= "CheckAll(this.form) "> 《全部选中》

定义一个CheckAll函数， this.form 表示动作当前的表单里，

onClick的意思就是当鼠标按下放开执行这样一个点击动作后激活CheckAll函数

而这个CheckAll函数的源代码也很简单：
========================================================
<script>
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;
}
}
</script>

[解决办法]
<script>

function s_all()
{
for(var i=0 ; i < document.all( "checkbox ").length ; i++)
{
document.all( "checkbox ")[i].checked = true ;
}

}
</script>