📄 menberloginblog.asp

📁 通用考勤系统
💻 ASP
字号:
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：ctplr@163.com          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<!--#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/menberblog.GIF><br><font color=yellow><b>包括通过成员登陆页面注入攻击的信息，请警惕！</font>
<br>[<a href="loginblogdel.asp?act=delallmenber" onclick="{if(confirm('想清楚了吗？\n\n真的清空所有日志吗?')){return true;}return false;}">清空所有日志</a>]

</td></tr></table>
<p> 

  <% 
num=menberlogin
rs.PageSize=num
if Request.QueryString("page")<>"" then 
curpage=cint(Request.QueryString("page")) 
else
curpage=1
end if
sql="select * from menberlogin  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=td1><%=pname %></td>
  <td   align=center  class=td2><%=ip%></td>
   <td   align=center class=td1> <%=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
%>
 <br>
<br>
<br>
<br>
<br><br><br><br>
⌨️ 快捷键说明

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