📄 right.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5

💻 ASP

字号:

<!--#include file = include.asp-->
<%
  set CheckUser = server.createobject("adodb.recordset")
  sql = "select purview from UserManage where UserName='"&Name&"' and password='"&PassWord&"'"
  CheckUser.open sql,conn,1,1
  Purview=CheckUser("purview")
  set rs=Server.CreateObject("adodb.recordset")
  select case Purview
  case "管理员"
    sql="Select User,ErrorPas,LoginIP,Date,OS,result from Log order by Date desc"
  case "总编辑"
    sql="Select User,ErrorPas,LoginIP,Date,OS,result from Log where User='"&Name&"' order by Date desc"
  case "录入员"
    sql="Select User,ErrorPas,LoginIP,Date,OS,result from Log where User='"&Name&"' order by Date desc"
  end select
  rs.open sql,conn,1,1
%>
<body background="images/BLogo.gif" >
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5" bordercolordark="20">
  <tr> 
    <td height="20"><font color="#FFFFFF"><b>登录日志-----当前登录用户：<font color=#000000><%=Name%></font></b></font></td>
  </tr>
<%
  for i=1 to 10
  if rs.eof then exit for
  if rs("result")="Error" then
%>
  <tr> 
    <td height="20" background="images/BLogo.gif"><font color="#FF0000">非法登录-->&nbsp;&nbsp;</font>用户名：<font color="#FF0000"><%=rs("User")%></font>&nbsp;&nbsp;密码：<font color="#FF0000"><%=rs("ErrorPas")%>&nbsp;&nbsp;</font>登录IP：<font color="#FF0000"><%=rs("LoginIP")%>&nbsp;&nbsp;</font>登录日期：<%=rs("Date")%><font color="#FF0000">&nbsp;&nbsp;</font>操作系统：<font color="#FF0000"><%=rs("OS")%> 
      </font> </td>
  </tr>
<%
  else
%>
  <tr> 
    <td height="20" background="images/BLogo.gif">用户名：<%=rs("User")%>&nbsp;&nbsp;登录IP：<%=rs("LoginIP")%>&nbsp;&nbsp;登录日期：<%=rs("Date")%>&nbsp;&nbsp;操作系统：<%=rs("OS")%></td>
  </tr>
<%
  end if
  rs.movenext
  next
  rs.close
  set rs=nothing
%>
</table>
<script src="http://www.xunt.net/newcount/stat/mystat.asp"></script>
<p><font size="2"> </font></p>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -