不好意思,例子忘贴了:),补上!
<script language=vbscript>
sub qr_onclick()
if document.f1.bt1.value="全选" then
for i=0 to document.f1.length-1
document.f1.item(i).checked=true
next
document.f1.bt1.value="清除"
else
for i=0 to document.f1.length-1
document.f1.item(i).checked=false
next
document.f1.bt1.value="全选"
end if
end sub
</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;
}
}