ad_log.asp 运动用品商城网站系统源代码程序 - ASP源码程序

www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_log.asp
    <!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%logc=Conn.Execute("Select count(*) from venshop_adminlog")(0)
if logc>100 then
dlogc=int(logc-100)
set rs=server.createobject("adodb.recordset")
sql="select top "&dlogc&" * from venshop_adminlog where log_date<#" & date & "# order by log_id asc"
rs.open sql,conn,1,3
do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
rs.close
set rs=nothing
end if
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<tr><td class="sa"><b>最新登录记录：</b></td></tr>
<tr><td bgcolor="#FFFFFF">


<table border="0" cellpadding="3" cellspacing="0" width="100%" id="table2">
<tr><td bgcolor="#FFFFFF" class="s0"><b>时间</b></td><td bgcolor="#FFFFFF" class="s0">
	<b>用户</b></td>
	<td bgcolor="#FFFFFF" class="s0"><b>IP</b></td><td bgcolor="#FFFFFF" class="s0">
	<b>状态</b></td></tr>
<%set rs=Conn.Execute("Select top 100 * from venshop_adminlog order by log_id desc")

i=0
do while not rs.eof
i=i+1
%>
<tr><td class="s<%=i mod 2%>"><%=rs("log_date")%></td>
<td class="s<%=i mod 2%>"><%=rs("log_name")%></td>
<td class="s<%=i mod 2%>"><%=rs("log_ip")%></td>
<td class="s<%=i mod 2%>"><%=rs("log_result")%></td></tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</table>

</td></tr></table><!--#include file="ad_bottom.asp"-->