📄 index.asp
字号:
<%
'数据库连接
Dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("#Date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'数据库连接地址
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
%>
<html>
<head>
<title>统计V1.01</title>
<style type=text/css>
body,td,th {
font-size: 12px;
color: #2E2E2E;
line-height: 20px;
}
a:link {
color: #2E2E2E;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #2E2E2E;
}
a:hover {
text-decoration: none;
color: #FF6600;
border-bottom-color: #FF6600;
}
</style>
</head>
<body>
<%
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select * from Counter"
mRs.open Sql,conn,1,3
%>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" width="550" bgcolor="#CCCCCC" align="center">
<tr valign="top" bgcolor="#FFFFFF">
<td align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="10"></td>
</tr>
</table>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';">
<td width="112">总访问人数：</td>
<td><% =mRs("Counter") %></td>
<td width="106">最高IP访问量：</td>
<td width="191"><% =mRs("Top") %></td>
</tr>
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';">
<td>今日IP访问量：</td>
<td><% =mRs("Today") %></td>
<td>昨日IP访问量：</td>
<td><% =mRs("Yesterday") %></td>
</tr>
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';">
<td>今日浏览量：</td>
<td><% =mRs("Browser") %></td>
<td>平均日访问量：</td>
<td><font color="#FF0000"><% =int(mRs("Counter")/mRs("Daynum")) %></font></td>
</tr>
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';">
<td>统计天数：</td>
<td><% =mRs("Daynum") %></td>
<td>日期统计：</td>
<td><a href="?action=Counts_date"><font color="#FF0000">查看日期</font></a></td>
</tr>
</table>
<hr noshade size=1>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';" align=center>
<td>日期</td>
<td>IP访问量</td>
<td>浏览访问量</td>
<%
dim Zzday,Stats
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select top 7 * from Zzday order by Zzday desc"
mRs.open Sql,conn,1,3
If mRs.eof and mRs.bof then
Response.Write "<p align=center>暂时没有往日统计记录</p>"
End If
mRs.movefimRst
while not mRs.eof
Zzday=mRs("Zzday")
Stats=mRs("Stats")
Browser=mRs("Browser")
mRs.movenext
%>
</tr>
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';" align=center>
<td><% =Zzday %></td>
<td><font color="red"><%=stats%></font></td>
<td><% =Browser %></td>
</tr>
<% Wend %>
</table>
<hr noshade size=1>
<%
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open "Select * from Userandip order by Id desc",conn,1
If Not(mRs.eof and mRs.bof) then
%>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td align="center">以下为今日最新的IP</dt>
</tr>
</table>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<%
For I = 1 to 10
Response.Write "<tr>"
For J=1 to 3
Ip=mRs("Ip")
Response.Write "<td><font color=""#000000"">"&ip&"</font></td>"
mRs.movenext
If mRs.eof then exit for
Next
Response.Write "</tr>"
If mRs.eof then exit for
Next
Response.Write "</table>"
End If
%>
</td>
</tr>
</table>
<% If Request.QueryString("action")="Counts_date" then %>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td align="center"><font color="#FF6600">以下为50天的数据</font></dt>
</tr>
</table>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" width="550" bgcolor="#CCCCCC" align="center">
<tr valign="top" bgcolor="#FFFFFF">
<td align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="10"></td>
</tr>
</table>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';" align=center>
<td>日期</td>
<td>IP访问量</td>
<td>浏览访问量</td>
<%
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select top 50 * from Zzday order by Zzday desc"'默认为50天的数据，修改就可以增加和减少显示的天数
mRs.open Sql,conn,1,3
If mRs.eof and mRs.bof then
Response.Write "<p align=center>暂时没有往日统计记录</p>"
End If
mRs.movefimRst
while not mRs.eof
Zzday=mRs("Zzday")
Stats=mRs("Stats")
Browser=mRs("Browser")
mRs.movenext
%>
</tr>
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';" align=center>
<td><% =Zzday %></td>
<td><% =stats %></td>
<td><% =Browser %></td>
</tr>
<% Wend %>
</table>
</td>
</tr>
</table>
<% End If %>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" align="center">
<tr>
<td align="center"><br>Copyright © 2005－2007 <a target="_blank" href="http://www.xg123.cn">XG123.cn</a> All Rights Reserved<SCRIPT LANGUAGE=JavaScript src="online.asp"></SCRIPT></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -