ASP中复选框全选并删除

来源：百度知道 编辑：UC知道 时间：2024/05/10 10:17:10
<!--#include file="conn.asp" -->
<%Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 3 * from db"
Rs.Open SqlStr,conn,1,1
do while not rs.eof %>
<form name="form3" method="post" action="del.asp?id=<%=rs("id")%>">

<table width="406" height="auto" border="1">
<tr>
<td width="317">编号</td>
<td width="105">是否删除</td>
</tr>

<tr>
<td><%response.write rs("name")%></td>
<td>
<!--<form name="form3" method="post" action="deluser.asp?operstep=del">-->
<input type="checkbox" name="delbox" value="<%=rs("id")%>" />

</td>
</tr>
<%rs.moven

显示数据页面：

<%
set rs = server.CreateObject ("Adodb.Recordset")
sql="select top 500 * from 表名 order by 时间 desc"
set rs = conn.Execute (Sql)
%>

<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var checkflag = "false";
function check(field) {
if (checkflag == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag = "true";
return "Uncheck All"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag = "false";
return "Check All"; }
}
// End -->
</script>

<form name="form1" method="post" action="del.asp">
<input type="submit" name="submit" value="删 除" onClick="return(confirm('确实要删除吗？'));">