<!--#include file="conn.asp" -->
<%
if chk_userlogin<>True then
call msgbox_j("請先登陸","self.close()")
Response.end
end if
%>
<link rel="stylesheet" href="images/css.css" type="text/css">

<table border="0" align="center" width="612">
  <tr> 
    <td  valign="top"> 
      <div align="right"><br>
      </div>
      <table width="100%" border="0" cellspacing="5" cellpadding="5">
        <tr> 
          <td bgcolor="#0086C6" class="t1"><b><font color="#FFFFFF">&#149; 用戶操作紀錄</font></b></td>
        </tr>
        <tr> 
          <td bgcolor="#CAEEFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<%
'////限制紀錄條數/////參數:site_log_max///
conn.execute("delete from 操作紀錄 where 用戶='"&session("username")&"' and id not in(select top "&site_log_max&" id from 操作紀錄 order by id desc)")
'////限制紀錄條數////

set rs=server.createobject("adodb.recordset")
sql="select * from 操作紀錄 where 用戶='"&session("username")&"' or 事件='系統日志' order by id desc"
rs.open sql,conn,1,1
if not rs.eof then

'///////////////////開始分頁代碼//////////////////////////////////
cardnumber=rs.recordcount
if Rq("page")="" then page="1" else page=Rq("page") end if
PageSize = 20
rs.PageSize = PageSize
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
'///////////////////結束分頁代碼//////////////////////////////////
count=1
do while not rs.eof and count-1<rs.PageSize%>
              <tr> 
                <td>&nbsp;<%=rs("事件")%></td>
                <td><%=rs("內容")%></td>
                <td> 
                  <div align="right">操作時間：<%=rs("時間")%></div>
                </td>
              </tr>
              <tr> 
                <td colspan="3" height="1" background="images/line.gif"></td>
              </tr>
<%count=count+1
rs.movenext
loop
rs.close
set rs=nothing
showpag=True
else
Rw "暫無"
end if%>
            </table>
          </td>
        </tr>
      </table>
      <div align="right">
        <table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr> 
            <td height="31"><img src="images/!.gif" width="14" height="14" align="absmiddle"> 
              系統自動保留<b><%=site_clear_log%></b>天內的<b><%=site_log_max%></b>條日志</td>
            
			<%if showpag=True then%>
			<td height="31">
              <div align="right">共<b><%=cardnumber%></b>條紀錄&nbsp;&nbsp;共<b><%=pgnum%></b>頁&nbsp;&nbsp;當前第<b><%=page%></b>頁&nbsp; 
                <%if cint(page)<>1 then%>
                <a href="?page=1<%=urlstr%>">首頁</a>&nbsp;&nbsp;<a href="?page=<%=page-1%><%=urlstr%>">上一頁</a>&nbsp; 
                <%end if
if cint(page)<>cint(pgnum) then%>
                <a href="?page=<%=page+1%><%=urlstr%>">下一頁</a>&nbsp;&nbsp;<a href="?page=<%=pgnum%><%=urlstr%>">尾頁</a> 
                <%end if%>
              </div>
            </td>
			<%end if%>
          </tr>
        </table>
        <br>
      </div>
      </td>
  </tr>
</table>
<%cleartimeout_user
connclose%>