shopa_loghist.asp

本软件可以实现的功能如下： 用户管理

<!--#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 face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font size=2 face=arial><b>User log in/out history:</b></font></font></font></td>
</tr>
<tr BGCOLOR="#0080C0">
	<th><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color="white"><b>UserName:</b></font></font></font></th>
	<th><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color="white"><b>Time:</b></font></font></font></th>
	<th><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color="white"><b>Date:</b></font></font></font></th>
	<th><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color="white"><b>In/Out:</b></font></font></font></th>
	<th><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><font face="arial" size=2 color="white"><b>Delete:</b></font></font></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 color=white face=verdana size=2><b>select all</b></font></font></font></td>
</tr>
<tr>
	<td colspan="5"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><center><input type="submit" name="Delete" value="Delete Selected Activities"></center></font></font></td>
</tr>
<tr>
	<td colspan="5"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><!--msthemeseparator--><p align="center">
</tr>
</table><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
</form>
<%
AdminPageTrailer
%>