asp中checkbox全选全消功能的实现

来源:互联网 发布:python csv模块 array 编辑:程序博客网 时间:2024/05/17 01:40
<!--#include file="../../include/db_conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="javascript">
function select_ok(){
if(document.all.check_all.checked){
document.form1.button_select.value="取消";
select_All(true)}
else{
document.form1.button_select.value="全选";
select_All(false)
}
}
function select_All(checked){

for (var i=0;i<document.form1.elements.length;i++){
var e = document.form1.elements[i];
if (e.name != 'allbox')
e.checked = checked;
}
document.all.check_all.checked=checked;
}

</script>

</head>

<body>

<%
dim myrs
set rs=server.CreateObject("ADODB.recordset")
rs.Open "select * from LogInfo ",conn,1,3
if rs.bof and rs.eof then
response.Write("数据中无数据")
else
%>
<form name="form1" method="post" action="add_ok.asp">
<table cellspacing="0" cellpadding="0" border="1" width="100%">
<tr>
<td><input type="checkbox" name="check_all" value="1" onClick="select_ok();"></td>
<td>序号 </td>
<td>用户帐号 </td>
<td>登录时间 </td>
<td>是否成功 </td>
<td>IP地址 </td>
<td>失败原因 </td>
</tr>


<% do while not rs.eof%>

<tr>
<td><input name="news_id" type="checkbox" value="<%=rs("LoginID")%>">l </td>
<td><%=rs("LoginID")%></td>
<td><%=rs("UserID")%></td>
<td><%=rs("LoginTime")%> </td>
<td><%=rs("Valid")%></td>
<td><%=rs("IP")%></td>
<td><%=rs("Reason")%></td>
</tr>

<%
rs.movenext
loop
end if
%>
</table>
<INPUT type="button" value="全选" name=button_select class="p9" style="WIDTH: 100px; HEIGHT: 24px;" size=134 OnClick="javascript:select_change();">
</form>
</body>
</html>
原创粉丝点击