Asp全選刪除代碼

<script language="javascript">
function CheckAll(form)
{ ///定義函數checkall,參數為form
for (var i=0;i<form.elements.length;i++)
///循環,form.elements.length得到表單裡的控件個數
{
///把表單裡的內容依依付給e這個變量
var e = form.elements[i];
if (e.name != ’chkall’)
e.checked = form.chkall.checked;
}
}
    </script>

<form id="form1" name="form1" method="post" action="">
<table width="200" cellspacing="1" cellpadding="0">
<tr>
<td width="26">全選</td>
<td width="169"><input name="chkall" type="checkbox" id="chkall" value="all" onclick="CheckAll(this.form)" /></td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="1" /></td>
<td>1 標題1</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="2" /></td>
<td>2 標題2</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="3" /></td>
<td> 3 標題3</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="4" /></td>
<td>4 標題4</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="5" /></td>
<td>5 標題5</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="6" /></td>
<td>6 標題6</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="7" /></td>
<td>7 標題7</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="8" /></td>
<td>8 標題8</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="9" /></td>
<td>9 標題9</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="刪除" /></td>
</tr>
</table>
</form>

如需傳值到另一文件
delete.asp文件：

<!--#include file="inc/conn.asp"-->
<%
Num=request.form("checkbox1").count
if Num=0 then
Response.Write ("請選擇要刪除的新聞")
Response.End
end if

ids=request.Form("checkbox1")
sqlStr="Delete * From indexad Where id in ("&ids&")"
conn.execute(sqlStr)

Response.redirect(request.servervariables("http_referer"))
Response.End
%>

方法2
<%
 Num=request.form("DelID").count
 if Num=0 then
 Response.Write ("請選擇要刪除的新聞") 
 Response.End
 end if
    for i=1 to Num
      set rs=Server.CreateObject("adodb.Recordset")
      sql="Select * from News where NewsID="&request.form("DelID")(i)
      rs.open sql,conn,1,1
      if not rs.eof then
      conn.execute("Delete From News Where NewsID="&request.form("DelID")(i))
      conn.execute("Delete From Review Where NewsID="&request.form("DelID")(i))
      else
      Response.Write ("新聞刪除失敗") 
     Response.End
      end if
    rs.close
    set rs=nothing
    next
    Response.Write  ("成功將選定新聞刪除") 
 Response.End
%>