<!--#include file="login/0.asp"-->
<!--#include file="../mycartconn/conn.asp"-->
<!--#include file="login/menu.asp"-->
<%
'自动更新商户
conn.execute("Update user_name set zt=3 where (zt=2 or zt=1) and datediff(d,sj2,getdate())>rq")
'删除超过30天的收藏记录
conn.execute("Delete shoucang where datediff(n,sj,getdate())>30")
'删除超过20分钟的SQL入侵记录
conn.execute("Delete nosql where (datediff(n,sj,getdate())>js*6 or datediff(n,sj,getdate())>20) and js<>999")
'删除超过30天的短信记录
conn.execute("Delete duanxin where datediff(d,sj,getdate())>30")
'删除过期的登陆记录
conn.execute("Delete ip where datediff(d,sj,getdate())>30")
'删除商户过期时间限制
conn.execute("Delete sj_xianzhi where datediff(n,sj,getdate())>35")
'显示登陆信息
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from ip  order by id DESC"
rs.open sql,conn,1,1
%>
<html>
<link href="../mycartconn/admin.css" rel="stylesheet" type="text/css">
<body>
<meta http-equiv='refresh' content='60'>
<table width="100%" height="100%" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="middle"> 
      <table width="650" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top">您的登陆名称<%= rs("name") %>，IP地址<%= rs("ip") %>，所用浏览器<%= rs("win") %>，登陆时间<%= rs("sj") %>。您的管理操作权限如下：<br>
            <br>
          </td>
        </tr>
      </table>
      <table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
         <tr>
          <td>
<%rs.close
set rs=nothing
qx=conn.execute("select qx from admin where adminname='"&replace(session("www.coodou.com"),"'","''")&"'")(0)
for i=0 to ubound(menu,1)%> <b><%=menu(i,0)%></b><br> <%
for j=1 to ubound(menu,2)
if isempty(menu(i,j)) then exit for
tmpmenu=split(menu(i,j),",")
menuname=tmpmenu(0)
conn.close
set conn=nothing%> <% if instr(qx,i&j)<>0 then response.write "<font color=#ff6600>■&nbsp;"&menuname&"</font>" else Response.Write("□&nbsp;"&menuname&"")%>&nbsp;&nbsp; <%next%><br><%next%></td></tr>
      </table></td>
  </tr>
</table>
</body></html>