Asp全選刪除代碼

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

<form id="form" name="form" method="post" action="">
<table width="" cellspacing="" cellpadding="">
<tr>
<td width="">全選</td>
<td width=""><input name="chkall" type="checkbox" id="chkall" value="all" onclick="CheckAll(thisform)" /></td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="" /></td>
<td> 標題</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="" /></td>
<td> 標題</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="" /></td>
<td>  標題</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="" /></td>
<td> 標題</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="" /></td>
<td> 標題</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="" /></td>
<td> 標題</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="" /></td>
<td> 標題</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="" /></td>
<td> 標題</td>
</tr>
<tr>
<td><input name="id" type="checkbox" id="id" value="" /></td>
<td> 標題</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="刪除" /></td>
</tr>
</table>
</form>

如需傳值到另一文件
deleteasp文件

<!#include file="inc/connasp">
<%
Num=requestform("checkbox")count
if Num= then
ResponseWrite ("請選擇要刪除的新聞")
ResponseEnd
end if

ids=requestForm("checkbox")
sqlStr="Delete * From indexad Where id in ("&ids&")"
connexecute(sqlStr)

Responseredirect(requestservervariables("http_referer"))
ResponseEnd
%>

方法
<%
 Num=requestform("DelID")count
 if Num= then
 ResponseWrite ("請選擇要刪除的新聞") 
 ResponseEnd
 end if
    for i= to Num
      set rs=ServerCreateObject("adodbRecordset")
      sql="Select * from News where NewsID="&requestform("DelID")(i)
      rsopen sqlconn
      if not rseof then
      connexecute("Delete From News Where NewsID="&requestform("DelID")(i))
      connexecute("Delete From Review Where NewsID="&requestform("DelID")(i))
      else
      ResponseWrite ("新聞刪除失敗") 
     ResponseEnd
      end if
    rsclose
    set rs=nothing
    next
    ResponseWrite  ("成功將選定新聞刪除") 
 ResponseEnd
%>

From:http://tw.wingwit.com/Article/program/net/201311/14421.html