shopa_loghist.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 77 行

<!--#include file="shop$db.asp"-->
<!--#include file="shopa_tools.asp"-->
<%
'*********************************************************************
' shop administration only
' use to display who has logged into adminitrative domain
'********************************************************************
ShopCheckAdmin
OpenDB con, Session("db")
If Request("Delete")<>"" Then
	For Each item in Request("DeleteHis")
		del = "DELETE FROM tblLog WHERE fldAuto=" & CINT(item)
		con.Execute(del)
	Next
End If
AdminPageHeader
SQL = "SELECT * FROM tblLog"
Set objRec = con.Execute(SQL)
%>
<script language="JavaScript">
<!--
function CheckAll()
  {
  for (var i=0;i<document.log.elements.length;i++)
    {
    var e = document.log.elements[i];
    if (e.name != 'allbox')
      e.checked = document.log.allbox.checked;
    }
  }
//-->
</script>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<form action="shopa_loghist.asp" method="post" name="log">
</font></font><table border=0>
<tr>
	<td colspan="5"><font size=2 face=arial><b>用户日志管理:</b></font></td>
</tr>
<tr BGCOLOR="#0080C0">
	<th><font face="arial" size=2 color="white"><b>用户名:</b></font></th>
	<th><font face="arial" size="2" color="#FFFFFF">时间</font><font face="arial" size=2 color="white"><b>:</b></font></th>
	<th><font face="arial" size="2" color="#FFFFFF">日期</font><font face="arial" size=2 color="white"><b>:</b></font></th>
	<th><font face="arial" size="2" color="#FFFFFF">输入</font><font face="arial" size=2 color="white"><b>输出:</b></font></th>
	<th><font face="arial" size="2" color="#FFFFFF">删除</font><font face="arial" size=2 color="white"><b>:</b></font></th>
</tr>
</tr>
<%While Not objRec.EOF
id = objRec("fldAuto")
%>
<tr bgcolor="#E5E5E5">
	<td><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color=navy><%=objRec("fldUserName")%></font></font></font></td>
	<td><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color=navy><%=objRec("fldTime")%></font></font></font></td>
	<td><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color=navy><%=objRec("fldDate")%></font></font></font></td>
	<td><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color=navy><%=UCase(objRec("fldInOut"))%></font></font></font></td>
	<td><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><center><input type="checkbox" name="DeleteHis" value="<%=id%>"></center></font></font></td>
</tr>
<%objRec.MoveNext
Wend
objRec.Close
%>
<tr>
	<td colspan="3"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">&nbsp;</font></font></td>
	<td colspan="2" align="right" bgcolor="#0080C0"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><input name="allbox" type="checkbox" value="Check All" onClick="CheckAll();">&nbsp;&nbsp;</font></font><b><font face="verdana" size="2" color="#FFFFFF">全部选择</font></b></td>
</tr>
<tr>
	<td colspan="5"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><center>
	<input type="submit" name="Delete" value="删除选中的日志"></center></font></font></td>
</tr>
<tr>
	<td colspan="5"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><p align="center">
</tr>
</table><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
</form>
<%
AdminPageTrailer
%>