<%Session.CodePage=65001%> <%if session("adxclass")<>"超管" then response.Write"" response.End() end if%> <%call log_chk()%>

后台管理：>> 管理员管理

<%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%> " /> <%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%> <%c=c+1 rs.movenext loop rs.close set rs=nothing%>

管理员登录日志
帐号	上次登陆时间	登陆IP	停留时间	操作
<%=thename%>	<%=rs("L_loginT")%>	<%=rs("L_ip")%>	<%=datediff("n",rs("L_loginT"),rs("L_outT"))%>分	" />
				全选

<%'页面跳转 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 "["+"第一页] " response.write "["+"上一页] " else Response.Write "[第一页] [上一页]" end if if k<>n then response.write "["+"下一页] " response.write "["+"最后一页] " else Response.Write "[下一页] [最后一页]" end if '------------------------------------------------------页面跳转msmsms有点小毛病！就是转页没有连带搜索和类别 response.Write(" | 共"&n&"页 / "&totalPut&"条信息 / ") response.Write("当前第"&k&"页") response.Write(" ") for myi=1 to n response.Write(""&myi&"") next response.Write("") response.Write(" ")%>

<%end if%>