gusucode.com > ASP+ACCESS学生信息管理系统设计(源代码+论文) > ASP+ACCESS学生信息管理系统设计(源代码+论文)\赵超\AdminLog.asp

    <!--#include file="AdminTop.asp"-->
<% Call  IsBrower() %>
<table width="779" height="450" border="0" align="center" cellpadding="0" cellspacing="1" class="TableAll">
  <tr bgcolor="#FFFFFF">
    <td width="161" valign="top" bgcolor="#FFFFFF" class="w9pt"><!--#include file="AdminLeft.asp"-->
    </td>
    <td width="615" align="center" valign="top"><br>
      <br>
      <table width="90%"  border="0" cellpadding="0" cellspacing="1" class="TrBody">
        <tr>
          <td height="25" align="center" class="TrTop">系统登陆日志</td>
        </tr>
        <tr>
          <td height="30" align="center"><table width="100%"  border="0" cellpadding="0" cellspacing="1" class="TableAll">
              <tr align="center" bgcolor="#FFFFFF">
                <td width="9%">序号</td>
                <td width="14%" height="25">用户</td>
                <td width="25%">登陆时间</td>
                <td width="21%">登陆IP</td>
                <td width="16%">操作系统</td>
                <td width="15%">权限</td>
              </tr>
              <% Str="Select * From XcUserLog Order By ID Desc"
			Set Rs=Conn.execute(Str)
			I=1
			Do while Not Rs.eof
		  %>
              <tr align="center" bgcolor="#FFFFFF">
                <td><%=I%></td>
                <td height="25"><%=Rs("LogUser")%></td>
                <td><%=Rs("LogTime")%></td>
                <td><%=Rs("LogIP")%></td>
                <td><%=Rs("LogSys")%></td>
                <td><%=UserToStr(Rs("LogOpr"))%></td>
              </tr>
              <%
		   I=I+1
			Rs.MoveNext
			Loop
			%>
            </table></td>
        </tr>
      </table>
      <table width="90%"  border="0" cellpadding="0" cellspacing="1" class="w9pt">
        <tr>
          <td height="30" align="center"><input type="button" name="Submit" value="清除登陆日志" onClick="Clr()">
            <script language="javascript">
		function Clr()
		{
		if(confirm('确实要删除登陆日志吗？'))
		{
		window.location.href='AdminLog.asp?Del=ok';
		}
		}
		</script>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<%

IF Request.QueryString("Del")="ok" then
Call IsOpr()
Str="Delete From XcUserLog"
Conn.execute(Str)

Call UserOpr("删除系统登陆日志成功！")
Call ShowMessAge("删除系统登陆日志成功！","AdminLog.asp")
End if
%>
<!--#include file="Foot.asp"-->