oplog.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F999"
session("title")="日志管理"
session("headline")="首页 -> 注册系统 -> 日志管理"
%>
<!--#include file="../inc/head2.asp"-->
<script language="JavaScript">
<!-- 
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall')
       e.checked = form.chkall.checked;
    }
}
// -->
 </script>
<%

if request("act")="del" then
	if request("id") <> "" then	conn.execute (" delete opLog where id in ("&request("id")&") ")
	call List()
elseif request("act")="delall" then
	conn.execute (" delete from opLog  ")
	call List()
else
	call List()
end if


sub Del()
id=request("id")
conn.execute (" delete opLog where id in ("&id&") ")

end sub

sub List()
username=request("username")
opname=request("opname")
optype=request("optype")
issucc=request("issucc")

sql = "select * from oplog where username like'%"&username&"%' and opname like '%"&opname&"%' and optype like '%" & optype & "%' and issucc like '%" & issucc & "%' order by ID DESC "

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1

call  PrintSetPage(rs,pagecount)
call PrintRecNum(rs)
%>



<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=90% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' align="center" colspan="10"><b>日志管理</b></td></tr>
<tr>
<td class='color01' bgcolor='#efefef'>

	
	<form method="POST" action="opLog.asp">
	
		用户名:<input  class="form" type="Text" size="10" name="username" value="<%=username%>">
		对象名:<input class="form" type="Text" size="10" name="opname" value="<%=opname%>">
		&nbsp;&nbsp;类型&nbsp;<input class="form" type="Text" size="10" name="optype" value="<%=optype%>">
			&nbsp;&nbsp;结果&nbsp;<input class="form" type="Text" size="10" name="issucc" value="<%=issucc%>">
					&nbsp;&nbsp;<b><input type='submit' class='form' value='搜索符合条件的记录' name='B1'></b></td></form> </tr>
</table>

<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=90% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>序号</td><td class='color01' bgcolor='#efefef'>用户名</td><td class='color01' bgcolor='#efefef'>对象</td><td class='color01' bgcolor='#efefef'>类型</td><td class='color01' bgcolor='#efefef'>结果</td><td class='color01' bgcolor='#efefef'>描述</td><td class='color01' bgcolor='#efefef'>时间</td><td class='color01' bgcolor='#efefef'>删除</td></tr>
<form method="POST" action="opLog.asp">
<input type="Hidden" name="act" value="del">
<% 
i=1
do while not rs.eof %> 
<tr><td><%=i+(pagecount-1)*pagesize%></td><td><%=rs("userName")%>&nbsp;</a></td><td><%=rs("opname")%>&nbsp;</td><td><%=rs("optype")%>&nbsp;</td><td><%=rs("issucc")%>&nbsp;</td><td><%=rs("remark")%>&nbsp;</td><td><%=rs("regtime")%>&nbsp;</td><td><input type="Checkbox" name="id" value='<%=rs("ID")%>'></td></tr>
<% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>rs.PageSize then exit do 
		  loop                                                                    
           %>	
<tr><td colspan="10"><input type=checkbox name=chkall onclick="CheckAll(this.form)">全选/取消全选&nbsp;&nbsp;<input type='submit' class='form' value='删除选中记录' name='B1'>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="opLog.asp?act=dellall" onclick="return window.confirm('该操作结果不可恢复,你确实要执行该操作吗?')">清空所有日志</a></td></tr></form>
</table>


<%
username=request("username")
opname=request("opname")
optype=request("optype")
issucc=request("issucc")

URL = "opLog.asp?username="&username&"&opname="&opname&"&optype="&optype&"&issucc="&issucc
call PrintPage(pagecount, rs, URL)

rs.close                                                                                                
set rs=nothing                                                                                                
end sub

%>
 <!--#include file="../inc/bottom2.asp"-->