删除多选框被选中的内容

在最近做的程序中，要删除多选框被选中的内容，实现方法有：

<%

dim action
 action=request.QueryString("action")
 'select case action
'  case "DelMore"'
'  call DelMore()
' end select
 select case action
  case "del"
   delPerson=trim(request("person_combin"))
   if trim(delPerson)="" then
   delPerson=0
   end if
   'showend delPerson
   '============
   stempSQL="delete from tblPerson where iid in("&delPerson&")"
   conn.execute(stempSQL)
   'showend stempSQL

全部删除
   'id=request("ids")
  'showmsg id
  'id=Split(id,",")
  'for i=0 To Ubound(id)
 ' conn.execute("delete * from tblperson where iid="&id(i))
  
 ' next
   
 end select

%>

<td align=center><input type='checkbox' name='person_combin'  value='"&cstr(rs("iRecordID"))&"'></a></td>

<!--<td align=center><input type='checkbox' name='person_combin'  ><input type=hidden name=ids value='"&cstr(rs("iRecordID"))&"'></a></td>-->

<a href='javascript:deletePerson();'>[删除所选人员]</a>

function deletePerson()
 {
  document.QueryForm.action="QueryResult.asp?action=del";
  //alert("请至少要选择一名要删除的人员")
  document.QueryForm.submit();
  }