?? log.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">
<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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -