📄 index.asp
字号:
<%
'********************************
'官方网站:http://www.ztren.com
'站长:贝o壳
'E-mail:ishell@163.com
'发布日期:2008-6-9
'********************************
'数据库连接
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
'设置统计名称
dim Title,Action,Cday
Title="统计v3.1" '统计名称
'获取浏览器action
Action=Request("action")
Cday=Request.Form("Cday")
'页面执行时间
dim startime
startime=timer()
%>
<html>
<head>
<title><% =Title %></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<style>
body,td,th {
/*文字大小*/
font-size: 12px;
/*文字颜色*/
color: #2E2E2E;
/*文字行距*/
line-height: 20px;
}
a:link {
text-decoration: none;
color: #000000;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
color: #FF6600;
}
</style>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<%
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select * from [Counter]"
mRs.open Sql,conn,1,1
%>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" width="700" 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>
<form method="post" Action="?Action=Cx">
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';">
<td>统计天数：</td>
<td><% =mRs("Daynum") %></td>
<td colspan="2"><input name="Cday" type="text" value="<%
If Action="Cx" then
Response.Write Cday
Else
Response.Write ""& year(Now()) &"-"& month(Now()) &"-"& day(Now()) -8 &""
End If
%>" size="font-size: 12px;border: 1px solid #CCCCCC;background-color: transparent;width: 130px;">
<input type="submit" value="查询" style="font-size: 12px;border: 1px solid #CCCCCC;background-color:transparent;"></td>
</tr>
</form>
</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>
</tr>
<%
If Request.Querystring("action")="Cx" then
'显示查询结果
dim Zday,Stats,Browser
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select top 1 * from [Day] where Zday='"& Cday &"'"
mRs.open Sql,conn,1,1
If mRs.eof and mRs.bof then
Response.Write "<tr bgcolor=""red"" align=center><td></td><td><font color=""FFFFFF"">没有查询的（"& Cday &"）的记录</font></td><td></td></tr>"
End If
do while not mRs.eof
%>
<tr bgcolor="red" align=center>
<td><font color="#FFFFFF"><% =mRs("Zday") %></font></td>
<td><font color="#FFFFFF"><% =mRs("Stats") %></font></td>
<td><font color="#FFFFFF"><% =mRs("Browser") %></font></td>
</tr>
<%
mRs.movenext
loop
mRs.close
set mRs=nothing
End If
'修改下面的数字"7"可以改为任意天数
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select top 7 * from [Day] order by Id desc"
mRs.open Sql,conn,1,1
If mRs.eof and mRs.bof then
Response.Write "暂时没有往日统计记录"
End If
do while not mRs.eof
%>
<tr onmouseover="javascript:this.bgColor='#F4F4F4';" onmouseout="javascript:this.bgColor='#F9F9F9';" align=center>
<td><% =mRs("Zday") %></td>
<td><font color="red"><% =mRs("Stats") %></font></td>
<td><% =mRs("Browser") %></td>
</tr>
<% mRs.movenext
loop
mRs.close
set mRs=nothing
%>
</table>
<hr noshade size=1>
<%
'显示今日最新IP,修改下面的数字"50"可以改为任意条数的IP
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select top 50 * from [Ip] order by Id desc"
mRs.open sql,conn,1,1
If Not(mRs.eof and mRs.bof) then
Response.Write"<table border=""0"" cellpadding=""0"" style=""border-collapse: collapse"" width=""100%"">"
For I = 1 to 10
Response.Write "<tr>"
For J=1 to 5
Response.Write "<td><font color=""#000000"">"& mRs("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
mRs.close
set mRs=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="700" align="center">
<tr>
<td height="5"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center">页面执行时间：<% =FormatNumber((timer()-startime)*1000,3) %>毫秒
<br>Copyright © 2008 <a href="http://www.ztren.com"><% =Title %></a> All Rights Reserved<br></td>
</tr>
<tr>
<td align="center"><SCRIPT LANGUAGE="JavaScript" src="Counter.asp"></SCRIPT></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -