Question

asp中实现checkbox的全选问题

<script type="" language="vbscript">
function check()
dim d
d = 0
for k to form2.selectid.length-1
if form2.selectid(k).checked = true then
d= d+1
next
if d = 0 then
alert("必须选择一个方可删除!")
check = false
exit function
end if
if confirm("希望删除所选记录吗?") then
check = true
else
check = false
end if
end function
sub selectall()
for j = 0 to form2.selectid.length-1
form2.selectid(j).checked = form2.choice.checked
next
end sub
</script>
表单<form name="form2" method="post" action="" onsubmit="javascript:return check()" >
选择<input type="checkbox" name="choice" onclick="selectall()">全选/取消
<input type="submit" value="删除">
<input type="reset" value="重置">
<input type="hidden" name="delete" value="ok">
此代码为何不能实现全选，望高手赐教！！
感谢大家的回答，我想请教能否在如上代码的基础上实现全选，并且能够实现alert("必须选择一个方可删除!") 以及confirm("希望删除所选记录吗?")
谢谢 ！

Answer 1

<script language="JavaScript" 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;
}
}
</script>

<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>
全选

Answer 2

比如对 form2 中的 chk2 全选

for each thing in form2.chk2
chk2.checked = true
next