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

<%If RsSet("WebTj")=0 Then Response.write "系统已经禁用此功能"%>
<table class="tb_1">  
<tr class="tr_1">
<%
Sql="Select Sum(MyCounter) From CFCount_Web_Day where UserName='"&UserName&"' And Datediff(d,AddDate,GetDate())=0 And WebUrl<>''"
Set Rs=Conn.execute(Sql)
ShowTotal=Rs(0)


Sql="Select Top 100 * From CFCount_Web_Day where UserName='"&UserName&"' And Datediff(d,AddDate,GetDate())=0 And WebUrl<>''"

Sql=Sql&" Order By LastTime Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
    <td colspan="5"> 最近页面浏览统计</td>
  </tr>
  <tr class="tr_2"> 
    <td>序号</td>
    <td>网站页面</td>
    <td>浏览数量</td>
    <td>所占此天的比例</td>
    <td>最后访问时间</td>
  </tr>
  <%
While Not Rs.Eof And I<=100
I=I+1
%>
  <tr class="tr_2"> 
    <td><%=I%></td>
    <td> 
        <%
  Response.Write "<a href='"&Rs("WebUrl")&"' target='_blank'>"&server.HTMLEncode(Left(BreakUrl(Rs("WebUrl"),2),30))&"</a>&nbsp;[<a href="&Rs("WebUrl")&" target='_blank'>详细</a>]"
%>
      </td>
    <td><%=Rs("MyCounter")%></td>
    <td class="td_1"><img src=images/bar_blue.gif width=<%=CInt(Rs("MyCounter")/ShowTotal*150)%> height=10><%=MyRate(Rs("MyCounter"),ShowTotal)%>%</td>
    <td><%=GetTurnTime(Hour(Rs("LastTime")))&":"&GetTurnTime(Minute(Rs("LastTime")))&":"&GetTurnTime(Second(Rs("LastTime")))%></td>
  </tr>
  <%
Rs.Movenext
wend%>
</table>