[原创]今天开发日志管理系统,全选，多项删除功能。

来源：互联网发布：软件设计师就业前景编辑：程序博客网时间：2024/04/29 22:20

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="javascript">
function select_change(){
if(document.form1.button_select.value=="全选"){
document.form1.button_select.value="取消";
select_All(true);
}
else{
document.form1.button_select.value="全选";
select_All(false);
}
}

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

function count_checked_items() {
var number_checked=0;
var box_count=document.form1.news_id.length;
if ( box_count==null ) {
if ( document.form1.news_id.checked==true ) {
number_checked=1;}else {
number_checked=0;}}
else {
for ( var i=0; i < (box_count); i++ ) {
if ( document.form1.news_id[i].checked==true ) {
number_checked++;}}}return number_checked;}

function del_to() {
if (count_checked_items()>0){
if(confirm("您真的要删除这些新闻吗?")){
document.form1.action="DelLoginInfo.asp";
document.form1.submit();
}
}
else
alert('请您先选择要删除的新闻!');
return false;
}

</script>
<link href="../../css/gb2312.css" rel="stylesheet" type="text/css">
</head>

<body>

<%
dim rs
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">
<%
'定义分页
rs.PageSize=15'每页显示的记录数
total_page=rs.PageCount
total_red=rs.RecordCount
current_page=Request.Form("me_page")
if current_page="" then
current_page=1
elseif not isnumeric(current_page)then
current_page=1
else
current_page=cint(current_page)
end if
if current_page>total_page then
current_page=total_page
elseif current_page<1 then
current_page=1
end if

rs.AbsolutePage=current_page

%>
<table width="98%" border="1" align="center" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#C0C0C0">
<tr bgcolor="#CCCCCC">
<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>
<%
for ii=1 to rs.PageSize
if rs.eof then exit for
%>

<tr>
<td><input name="news_id" type="checkbox" value="<%=rs("LoginID")%>"></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
next
end if
%>
</table> <br>
<table width="98%" border="0" align="center" cellpadding="6" cellspacing="0">
<tr><td>
<INPUT type="button" value="全选" name=button_select class="p9" style="WIDTH: 100px; HEIGHT: 24px;" size=134 OnClick="javascript:select_change();">
<INPUT type="button" value="删除" name=button_21 class="p9" style="WIDTH: 100px; HEIGHT: 24px;" size=134 OnClick="javascript:del_to();">
</td></tr>
</table>
</form>

<table>
<tr>
<td height="30" align="center"><div align="center" class="a01">共 <%=total_red%> 条记录，显示第 <%=current_page%>页/总<%=total_page%>页
<%if total_red>rs.pagesize then%>
<%call showpage%>
转到第
<input type="text" name="goto_page1"

value="<%=current_page%>" style="border: 1px solid rgb(200,200,200)" size=2 maxlength=3>
页
<input hidefocus type="button"

value="GoTo" name="cmd_goto2" onClick="javascript:viewPage(document.all.goto_page1.value);"

style="width:40px; BORDER-RIGHT: #C2C2C2 1px solid; BORDER-TOP: #FFFFF0 1px solid;

BORDER-LEFT: #F2F2F9 1px solid; COLOR: #000000; BORDER-BOTTOM: #C2C2C2 1px solid;

BACKGROUND-COLOR: #F2F2F2">

<%end if%>
</div></td>
<form action="ListLoginInfo.asp" method=post

name="frm_page">
<input type="hidden"

name="me_page">
<input type="hidden" name="keyword"

value="<%=keyword%>">
<input type="hidden" name="sortid"

value="<%=sortid%>">
</form>
</tr>
</table>

</body>
</html>



<%
i=Request.Form("news_id").Count
if i<>0 then
news_id=Request.Form("news_id")
sqlstr="delete from LogInfo where LoginID in ("&news_id&")"
conn.execute sqlstr
response.Write("OK")
end if
Response.Redirect("ListLoginInfo.asp")
%>