log.asp

本系统采用ASP作为开发环境

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="../../Conn/conn.asp" -->
<% 
sql="insert into tb_Log(Name,Content,IssueDate) values('"&session("Admin")&_
"','进行日志查看','"&Now()&"')"
rs.open sql,conn
set rs=nothing
conn.close
set conn=nothing
%>
<table width="470" height="420" border="0" align="center" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td colspan="2" valign="top"> <table width="460" border="0" align="center" cellpadding="2" cellspacing="2"> 
        <tr bgcolor="#214994"> 
          <td width="77" height="20"><div align="center" class="wenbenkuang style6">管理员</div></td> 
          <td width="232" height="20"><div align="center" class="wenbenkuang style6">操作项目</div></td> 
          <td width="131" height="20"><div align="center" class="wenbenkuang style6">操作时间</div></td> 
        </tr> 
        <!-- #include file="../../Conn/conn.asp" --> 
        <%
		rs.Pagesize=18
		pages=cInt(Request.Querystring("page"))
		If pages=0 Then pages=1 End If 
		sql="select * from tb_Log order by IssueDate DESC"
		rs.open sql,conn,1,3
		If Not rs.Eof Or Not rs.Bof Then 
			rs.Absolutepage=CInt(pages)
			row=0
			While Not rs.Eof And row<rs.Pagesize 
%> 
        <tr> 
          <td class="wenbenkuang"><div align="center"><%=rs("Name")%></div></td> 
          <td class="wenbenkuang"><div align="center"><%=rs("Content")%></div></td> 
          <td class="wenbenkuang"><div align="center"><%=rs("IssueDate")%></div></td> 
        </tr> 
<% 
				rs.MoveNext
				row=row+1
			Wend 
%> 
      </table></td> 
  </tr> 
  <tr> 
    <td width="174">&nbsp;&nbsp;
	<a href="#" onClick="javascript:window.open('Log/Delete.asp')">删除当天</a>
	<a href="Manager.asp?action=Log" onClick="javascript:window.open('Log/Delete.asp?action=all')">删除全部</a></td> 
    <td width="296" valign="top"> <table width="100%" height="51"  border="0" cellpadding="0" cellspacing="0"> 
        <% 	If pages=1 Then %> 
        <% If pages<>rs.PageCount Then %> 
        <tr> 
          <td > <table height="20" border="0" cellpadding="0" cellspacing="0"> 
              <tr> 
                <td width="203" align="right"> <a href="Manager.asp?action=Log&page=<%=(pages+1)%>">下一页</a> <a href="Manager.asp?action=Log&page=<%=(rs.PageCount)%>">最后一页</a></td> 
              </tr> 
            </table></td> 
        </tr> 
        <% End If %> 
        <% 	Else%> 
        <% If pages<rs.PageCount Then %> 
        <tr> 
          <td  align="right"> <table height="20" border="0" cellpadding="0" cellspacing="0"> 
              <tr> 
                <td width="203" align="right"><a href="Manager.asp?action=Log&page=1">第一页</a> <a href="Manager.asp?action=Log&page=<%=(pages-1)%>">上一页</a> <a href="Manager.asp?action=Log&page=<%=(pages+1)%>">下一页</a> <a href="Manager.asp?action=Log&page=<%=(rs.PageCount)%>">最后一页</a> </td> 
              </tr> 
            </table></td> 
        </tr> 
        <% Else %> 
        <tr> 
          <td  align="right"> <table height="20" border="0" cellpadding="0" cellspacing="0"> 
              <tr> 
                <td width="203" align="right"><a href="Manager.asp?action=Log&page=1">第一页</a> <a href="Manager.asp?action=Log&page=<%=(pages-1)%>">上一页</a> </td> 
              </tr> 
            </table></td> 
        </tr> 
        <% End If %> 
        <% 	
		End If%> 
      </table></td> 
    <%Else
%> 
</TABLE> 
<%
	Set rs=Nothing
	conn.Close
	Set conn=Nothing
	End If 
%> 
</table>