function chkkey()
{
 if(document.form2.selectkey.value.length ==0){
 document.form2.selectkey.focus();
 alert("请输入查询关键字")
 return false;
 }
}
 
function mm()
{
   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>

<input type="button" name="Submit" value="清空购物车" onclick="javascript:if(confirm('确定删除？删除后不可恢复!')){window.location.href='deleteall.asp';}else{history.go(0);}" />

Sub DelPhoto()
    id = SafeRequest("id",1)

 sql = "delete * from desktop where Desktopid in ("& id &")"
 conn.execute(sql)

 Response.Write("<script>alert(""删除成功"");location.href=""Admin_All.asp"";</script>")
 Response.End()
End Sub

<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 
%>