📄 adminloginblog.asp

📁 通用考勤系统
💻 ASP
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：ctplr@163.com          ''''
''''说明：需要新功能联系我      ''''
''''QQ:214297587                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<!--#include file="check.asp"-->
 
<!--#include file="conn.asp"-->
<link href=left.css rel=stylesheet>
<!--#include file="../webinfo.asp"-->
 <body   leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

 <center>
<%if session("qx")<>1 then 
response.write "<script>alert('您的权限不够！')</script>"
response.write "<script>history.back()</script>"
else
%>
<table background=../images/loginIn2.gif width=100%><tr>
<td align=center><img src=images/adminblog.GIF><br><b><font color=yellow>包括通过管理员登陆页面注入攻击的信息，请警惕！</font><br>[<a href="loginblogdel.asp?act=delalladmin" onclick="{if(confirm('想清楚了吗？\n\n真的清空所有日志吗?')){return true;}return false;}">清空所有日志</a>]
</td></tr></table><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  ORDER by id DESC"
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 >"
response.write "<tr><td class=tdwhtimg align=center><b><font color=green>登陆者</b></td><td class=tdwhtimg align=center width=25% > <b><font color=green>登陆IP</b></td><td class=tdwhtimg align=center><b><font color=green>登陆时间</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  class=td2><%=pname %></td> 
 <td   align=center  class=td1><%=ip%></td>
   <td   align=center  class=td2> <%=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=?page=1>首 页</a>]  "
if curpage>1 then 
Response.Write "[<b><a name=up href=?page=" & (curpage-1) & " >上一页</a></b> ]&nbsp;"
end if

if curpage<pagenum then
Response.Write "[<b><a name=down href=?page=" & (curpage+1) & " >下一页</a></b>] "
end if 

Response.Write "  [<a href=?page="&pagenum&">尾 页</a>]"
Response.Write "  当前是第[<font color=red>"&curpage&"</font>]页</center>"

rs.Close 
set rs=nothing
cn.close
set cn=nothing



%>
<%
end if
%>
<p><br>
</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
⌨️ 快捷键说明

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