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

<table class="tb_1">
        <%
IpTotal=0
Session("CFCountTemp")=""

Sql="Select BackNum_1+BackNum_2+BackNum_3+BackNum_4+BackNum_5+BackNum_6+BackNum_7+BackNum_8+BackNum_9+BackNum_10+BackNum_Higher From CFCount_Back where UserName='"&UserName&"'"
Set Rs=Conn.Execute(Sql)
IpTotal=Rs(0)


Sql="Select BackNum_1,BackNum_2,BackNum_3,BackNum_4,BackNum_5,BackNum_6,BackNum_7,BackNum_8,BackNum_9,BackNum_10,BackNum_Higher From CFCount_Back where UserName='"&UserName&"'"
Set Rs=Conn.Execute(Sql)
If Not Rs.eof Then
  Session("CFCountTemp")=Rs.GetRows(-1)
End If
%>
<tr class="tr_1">
          <td colspan="3">回头率报表</td>
        </tr>
        <tr class="tr_2"> 
          <td>次数</td>
          <td colspan="2">IP数量</td>
        </tr>
<%
For I=1 To 11

IpNum=Session("CFCountTemp")(I-1,0)
If I<=10 Then
 Mystr="第&nbsp;"&I&"&nbsp;次"
Else
 Mystr="更&nbsp;多&nbsp;次"
End If
%>
        <tr class="tr_2"> 
          <td><%=Mystr%></td>
          <td><%=IpNum%></td>
          <td class="td_1"><img src=images/bar_green.gif width=<%=CInt(IpNum/IpTotal*60)%> height=10><%=MyRate(IpNum,IpTotal)%>%</td>
        </tr>
        <%
Next
%>
      </table>