zizhong.wang
/
xuanjuAsp


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153
							<%Session.CodePage=65001%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>BdeCMS网站后台管理登陆</title>
<meta name="Keywords" content="网站后台管理系统，网站内容管理系统，asp网站后台管理系统，西安网站建设，西安网络公司"  />
<link rel="stylesheet" type="text/css" href="../bdcommx/css.css">
</head>
<body>
<script language="javascript">
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'selectall')
       e.checked = form.selectall.checked;
    }
  }
</script>
<%if session("adxclass")<>"超管" then
response.Write"<script language='javascript'>alert('您没有权限');history.go(-1);</script>"
response.End()
end if%>

<!--#include file="../bdcommx/connxyz.asp"-->

<!--#include file="../bdcommx/jsall.asp"-->

<%call log_chk()%>

<table width="100%" height="42" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="4%" height="42" align="center" background="../images/top_bg2.jpg"><img src="../images/dian.gif" width="10" height="10" /></td>
        <td width="96%" background="../images/top_bg2.jpg" class="hui12">后台管理：&gt;&gt; 管理员管理 </td>
      </tr>
</table>
      <br />
      <table width="750" border="0" align="center" cellpadding="0" cellspacing="1" class="tab_bdr">
        <form id="form1" name="myform" method="post" action="adLogdel.asp"><tr>
          <td colspan="7" align="center" background="../images/bg2.jpg" class="tb_bg"><strong>管理员登录日志</strong></td>
        </tr>
        <tr>
          <td width="20%" height="26" align="center" class="NcB_bg">帐号</td>
          <td width="29%" align="center" class="NcB_bg">上次登陆时间</td>
          <td width="23%" align="center" class="NcB_bg">登陆IP</td>
          <td width="17%" align="center" class="NcB_bg">停留时间</td>
          <td width="11%" align="center" class="NcB_bg">操作</td>
        </tr>
<%dim CurrentPage,TotalPages,adid
adid=request("adid")
MaxPerPage=10
Set rs=Server.Createobject("Adodb.Recordset")
if adid="" then
sql="select * from adminlog order by L_id desc"
end if
if adid<>"" then
sql="select * from adminlog where adx_id="&adid&" order by L_id desc"
end if
rs.open sql,conn,1,3
if rs.eof then
else
rs.pagesize=MaxPerPage'定义每页记录数
'howmanyfields=rs.Fields.Count-1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=rs.recordcount 'totalput=总记录数
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage < totalPut then
rs.move(currentPage-1)*MaxPerPage
end if
end if%>

<input name="adid" type="hidden" id="adid" value="<%=rs("adx_id")%>" />

<%do while not rs.eof and c<10
Set rs1=Server.Createobject("Adodb.Recordset")
sql="select * from adminx where adx_id="&rs("adx_id")&""
rs1.open sql,conn,1,3
if not rs1.eof then
thename=rs1("adx_name")
end if
rs1.close
set rs1=nothing%>

<tr>
<td height="26" align="center" class="NcB_bg"><%=thename%></td>
          <td width="29%" align="center" class="NcB_bg"><%=rs("L_loginT")%></td>
          <td width="23%" align="center" class="NcB_bg"><%=rs("L_ip")%></td>
          <td width="17%" align="center" class="NcB_bg Fnt_red"><%=datediff("n",rs("L_loginT"),rs("L_outT"))%>分</td>
      <td width="11%" align="center" class="NcB_bg"><input name="idgroup" type="checkbox" id="idgroup" value="<%=rs("L_id")%>" />
      </td>
</tr>

<%c=c+1
rs.movenext 
loop 
rs.close 
set rs=nothing%>

<tr>
      <td height="34" colspan="4" align="center" bgcolor="#FAFAFA" class="NcB_bg"><input type="submit" name="Submit22" value="删除日志" /></td>
            <td align="center" bgcolor="#FAFAFA" class="NcB_bg">全选
      <input name="selectall" type="checkbox" id="selectall" value="on" onClick="CheckAll(this.form)" /></td>
          </tr>
</form>
</table><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
        <form name="formgo" method="post" action="nmag.asp">
          <tr>
            <td height="31" align="center">
<%'页面跳转
dim n,k
if (totalPut mod MaxPerPage)=0 then 'n表示总页数
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
k=currentPage
k=currentPage
if k<>1 then
response.write "["+"<a href=?page=1&adid="&adid&">第一页</a></b>] "
response.write "["+"<a href=?page="+cstr(k-1)+"&adid="&adid&">上一页</a>] "
else
Response.Write "[第一页] [上一页]"
end if
if k<>n then
response.write "["+"<a href=?page="+cstr(k+1)+"&adid="&adid&">下一页</a>] "
response.write "["+"<a href=?page="+cstr(n)+"&adid="&adid&">最后一页</a>] "
else
Response.Write "[下一页] [最后一页]"
end if
'------------------------------------------------------页面跳转msmsms有点小毛病！就是转页没有连带搜索和类别
response.Write("<font color='red'> | </font>共"&n&"页 / "&totalPut&"条信息 / ")
response.Write("当前第"&k&"页")
response.Write(" <select name='page'>")
for myi=1 to n
response.Write("<option value='"&myi&"'>"&myi&"</option>")
next
response.Write("</select>")
response.Write(" <input type=submit name=Submit3 value=Go→ />")%>
            </td>
          </tr>
        </form>
</table>
<%end if%>
</body>
</html>