删除多选框被选中的内容

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

<%

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();
}