回复人: lee2002() (2002-1-12 17:06:05)  得0分 
不好意思,例子忘贴了:),补上!
<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