<%
'乘风多用户计数器
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，没有放在程序里，请自己上网站上查看
%>
<%If SysCode="" Then Response.End%>

<table class="tb_1">
<tr class="tr_1">
<td colspan="4">最近12个月访问统计 <br>
</td>
</tr>
<tr class="tr_2"> 
<td>月份</td>
<td>显示数量</td>
<td>IP数量</td>
<td>在12个月内的比率及数量</td>
</tr>
          <%
ShowTotal=0
IpTotal=0
Sql="Select Sum(MyCounter),Sum(IpCounter) From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('m',AddDate,Date())<12"
Set Rs=Conn.Execute(Sql)
ShowTotal=Rs(0)
IpTotal=Rs(1)
If ShowTotal=0 Then ShowTotal=1
If IpTotal=0 Then IpTotal=1

For I=0 To 11
CurrMonth=Dateadd("m",-I,Date())

Sql="Select Sum(MyCounter),Sum(IpCounter) From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('m',AddDate,'"&CurrMonth&"')=0"
Set Rs=Conn.ExeCute(Sql)
%>
<tr class="tr_2"> 
<td><%=year(CurrMonth)&"-"&month(CurrMonth)%></td>
<td><%=Rs(0)%></td>
<td><%=Rs(1)%></td>
<td style="text-align:left;"><img src=images/bar_blue.gif width=<%=Rs(0)/ShowTotal*300%> height=10><%=MyRate(Rs(0),ShowTotal)%>%<br><img src=images/bar_green.gif width=<%=Rs(1)/IpTotal*300%> height=10><%=MyRate(Rs(1),IpTotal)%>%</td>
</tr>
<%Next%>
<tr> 
<td colspan="6" >图例： <img src=images/bar_blue.gif width=30 height=10>显示数，<img src=images/bar_green.gif width=30 height=10>IP数</td>
</tr>
<tr> 
<td colspan="4"> 共<%=ShowTotal%>次浏览，<%=IpTotal%>个IP，平均每月<%=Int(ShowTotal/12)%>次访问，平均每月IP<%=Int(IpTotal/12)%>个</td>
</tr>
</table>