📄 admin_adminloginlog.asp

📁 asp+sql软件系统
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="CheckAdmin.asp"-->
<%
ErrTitle = "管理下载出错："
SucTitle = "管理下载成功："

Dim Adminid
Adminid=Request.QueryString("Adminid")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理员登陆日志</title>
</head>

<body>
<%
Select Case Action
	Case "Del"
		Call Del()
	Case Else
		Call Main()
End Select

%>
<%
Sub Main()
	Sql="SELECT Adminid,Adminname,Logindata,Loginip FROM [AdminLogin] WHERE Adminid="&CInt(Adminid)&" ORDER BY Did DESC"
Call OpenDatabase()
Dim Page,PageSize,RemarkCount,PageCount,x
	Sql="SELECT * FROM [AdminLogin] WHERE Adminid="&CInt(Session("NetCom_Admin_Id"))&" ORDER BY Logindate DESC"
	Page = Request.QueryString("Page")
	PageSize = CInt(10)
Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.CursorLocation = 3
	Rs.Open Sql,Conn,1,1
	RemarkCount = Rs.RecordCount
    If NetCom.isInt(Page)=False Then
        Page = 1
    Else
        Page = CInt(Page)
    End If 
	If RemarkCount Mod CInt(PageSize)=0 Then
	    PageCount = RemarkCount \ CInt(PageSize)
	Else
	    PageCount = RemarkCount \ CInt(PageSize)+1
  	End If
%>
<table width="640" border="1" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td colspan="5">登陆日志</td>
  </tr>
  <tr>
    <td width="134">ID</td>
    <td width="134">用户名</td>
    <td width="175">登陆时间</td>
    <td width="84">登陆IP</td>
    <td width="84">&nbsp;</td>
  </tr>
<%
  	If Not (Rs.Bof And Rs.Eof) Then
		Rs.MoveFirst
		If Page > PageCount Then Page = PageCount
		If Page<1 Then Page=1
		Rs.Move (Page-1) * CInt(PageSize)
		x=1
	While Not Rs.EOF AND x<=PageSize
%>
  <tr>
    <td><%=Rs(0)%></td>
    <td><%=Rs(1)%></td>
    <td><%=Rs(2)%></td>
    <td><%=Rs(3)%></td>
	
    <td><a href="Admin_AdminLoginLog.asp?Action=Del&Adminid=<%=Rs(0)%>">删除</a></td>
  </tr>
<%
x=x+1
Rs.MoveNext
Wend

End If
%>
  <tr>
    <td colspan="5"><%=NetCom.ShowPage(PageCount,RemarkCount,Page,PageSize,"?")%></td>
  </tr>
</table>
<%
Rs.Close
Set Rs = Nothing
Call CloseDatabase()
End Sub

Sub Del()
Dim Adminid
Adminid=CInt(Request.QueryString("Adminid"))

Call OpenDatabase()
	Conn.Execute("DELETE FROM [AdminLogin] WHERE Adminid="&Adminid&"")
	Call SucMsg("<li>删除管理成功！</li>","Admin_AdminLoginLog.asp")
Call CloseDatabase()
End Sub
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -