在最近做的程序中,要删除多选框被选中的内容,实现方法有:
<%
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();
}