ASP批量删除复选框选中后为什么不能取消选择

<!--#include virtual="/qmsz/yyy/admin/check.asp"-->
<!--#include virtual="/qmsz/yyy/inc/config.inc"-->
<%
    
  Call DBConnBegin()  dim sqlsel
  sqlsel="select * from vip "
  dim rs
  set rs=server.CreateObject("adodb.recordset")
  rs.activeconnection=conn
  rs.source=sqlsel
  rs.open sqlsel,conn,3,3
  rs.pagesize=20
  pcount=rs.pagecount
  dim n
  dim curpage
  curpage=request("cpage")
     if isempty(request.Form("cpage"))   then
       curpage=request.QueryString("cpage")
   else
       
  
      curpage=request.Form("cpage")   end if
  if len(trim(curpage))=0 then
     curpage=1
  end if
  curpage=cint(curpage)
  dim i
  i=rs.recordcount
  
    
  
  
  
%>
<html>
<head>
<meta http-equiv="Content-Type" Content="text/html; charset=gb2312">
<title></title>
<link href="/qmsz/yyy/admin/css/style.CSS" rel="stylesheet" type="text/css"></head><body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr class="topbg"> 
    <th height="22" colspan="4" align="center" class=tableHeaderText><strong >注册会员管理</strong></th>
  </tr>
  <tr class="tdbg"> 
    <td width="70" height="30"><strong>管理导航：</strong></td>
    <td>
    
<input type="submit" name="Submit" value="删除所选用户" onClick="return confirm('您确定要删除该用户吗？')">&nbsp;&nbsp;
<input type="checkbox" name="checkbox2" value="Check All" onClick="CheckAll()">
全选
按用户名查找: 
<input name="namekey" type="text" id="namekey" size="12">&nbsp;
<input name="checkbox" type="checkbox" id="checkbox" value="1" checked>
模糊查询 
<input type="submit" name="Submit2" value=" 开始查询 ">
</td>  </tr>
</table> <table width="100%" border="1" align="left" cellpadding="0" cellspacing="1" class="border" style="border-collapse:collapse">
  <tr class="title" align="center" height="25">
<th class=tableHeaderText><strong>ID</strong></th>
<th class=tableHeaderText><strong>用户名</strong></th>
<th class=tableHeaderText><strong>真实姓名</strong></th>
<th class=tableHeaderText><strong>注册时间</strong></th> <th class=tableHeaderText><strong>登录次数</strong></th>
<th class=tableHeaderText><strong>选择</strong></th>
<th class=tableHeaderText><strong>删除</strong></th>
  </tr>
  <%if (rs.eof or rs.bof) then %>
      <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
<td colspan="7">资料维护中.......</td>
  </tr>
       <% 
     else 
 n=1
 rs.absolutepage=curpage
     do while not (rs.eof or rs.bof) and n<=20
   %>
      <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
<td width="10%"><%=rs("vip_id")%></td>
<td width="20%"><%=rs("vip_name")%></td>
<td width="30%"><%=left(trim(rs("vip_realname")),5)%></td> 
<td width="10%"><%=rs("vip_date")%></td>
<td width="10%"><%=rs("vip_logtimes")%></td>
<td width="10%"><label>
  <input type="checkbox" name="vip_id" value="<%=rs("vip_id")%>" id="vip_id">
</label>     </td>
<td width="10%">
    <a href="condel.asp?no=<%=rs("vip_id")%>">删除</a></td>
  </tr>
<%
rs.movenext
n=n+1
loop  end if
%>


 <form name="fy" method="post" action="hymanage.asp?cpage=<%=cpage%>">
      <tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'" align="center">
<td colspan="7">
<%if curpage=1 then%>
    首页
<%else%>
    <a href="hymanage.asp?cpage=1">首页</a>
<%
  end if
  if curpage<=1 then
%>
   上一页
<%
   else
%>
   <a href="hymanage.asp?cpage=<%=curpage-1%>">上一页</a>
<%
   end if
   if curpage=pcount then
%>
   下一页
<%else%>
    <a href="hymanage.asp?cpage=<%=curpage+1%>">下一页</a>
<%
   end if
   if curpage=pcount then
%>
  最后一页 
<%else%>
   <a href="hymanage.asp?cpage=<%=pcount%>">最后一页</a>
<%
  end if
  response.Write"页次：" &curpage&"/"&rs.pagecount&"页"&"&nbsp;&nbsp;&nbsp;&nbsp;"&"每页显示"&rs.pagesize&"条记录"&"&nbsp;&nbsp;&nbsp;&nbsp;" & "跳转到"
    
%>
          <label>
  <input type="text" name="cpage" size="8" value="" id="cpage">
  </label>
  页&nbsp;&nbsp;<input class=input type='submit'  value=' Goto '  name='cndok'  >
  
  </td>
  </tr>
  </form>
</table>
<script language="javascript" type="text/javascript">
 function CheckAll()
 {
    var a=document.getElementsByTagName("input");
if (a[0].checked==true)
{
   for (var i=0; i<a.length;i++)
   {
             if(a[i].type=="checkbox")
  a[i].checked=false;
   }     }
else
{
       for (var i=0; i<a.length;i++)
   {
             if(a[i].type=="checkbox")
  a[i].checked=true;
   }     }

 }</script><%
  rs.close
    set rs=nothing
  conn.close
  set conn=nothing
%>