📄 adminloginblog.asp
字号:
<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:214297587 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<link href=../css.css rel=stylesheet>
<!--#include file="../webinfo.asp"-->
<!--#include file="config.asp"-->
<body background="../back.gif"><center>
<%if session("qx")<>1 then
response.write "<script>alert('您的权限不够！')</script>"
response.write "<script>history.back()</script>"
else
%>
<p align=center>管理员登陆信息(<font color=red>包括通过管理员登陆页面注入攻击的信息，请警惕！</font>)<br>[系统设置显示<%=glylogin%>条数据] | <a href="loginblogdel.asp?act=delalladmin" onclick="{if(confirm('想清楚了吗？\n\n真的清空所有日志吗?')){return true;}return false;}">清空所有日志</a>
<p>
<%
num=glylogin
rs.PageSize=num
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
sql="select * from adminlogin "
rs.open sql,cn,1,1
pagenum=rs.PageCount
if curpage>pagenum then
curpage=pagenum
end if
rs.AbsolutePage =curpage
if (rs.eof and rs.bof) then
response.write "没有记录"
else
response.write"<table border=1 bordercolor=#3399ff bgcolor=#ffeeee>"
response.write "<tr><td bgcolor=#eeeeee align=center><b>登陆者</b></td><td bgcolor=#eeeeee align=center width=25% > <b>登陆IP</b></td><td bgcolor=#eeeeee align=center><b>登陆时间</b></td> </tr>"
do while not rs.eof and num>0
pname=rs("pname")
ip=rs("ip")
ptime=rs("time")
zt=rs("zt")
%>
<tr><td align=center><%=pname %></td> <td align=center><%=ip%></td>
<td align=center> <%=ptime%></td> </tr>
<% rs.movenext
num=num-1
loop
response.write"</table>"
end if
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 "
Response.Write "[<a href=adminloginblog.asp?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=adminloginblog.asp?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=adminloginblog.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=adminloginblog.asp?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
%>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -