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

SzmDate=DateAdd("d", -1, BzksDate)
SzksDate=DateAdd("d", -7, BzksDate)

SyDate=dateadd("m",-1,cdate(year(now)&"-"&month(now)&"-1"))


Sql="CFCount_TjSurvey_Proc '"&UserName&"','"&BzksDate &"','"&SzksDate&"','"&SzmDate&"','"&SyDate&"'"

Set Rs=Conn.Execute(Sql)

%>
        <table class="tb_1">
          <tr class="tr_1">
            <td>您好用户：<%=UserName%>
<%If Rs("ParentName")<>"" Then Response.Write "&nbsp;&nbsp;你的父账号是:"&Rs("ParentName")%>
			  </td>
          </tr>
          <tr> 
            <td>常用设置链接：
<a href="?Action=jsqquickset" class="t_button">网站统计快速设置</a>
<a href="?Action=jsqset" class="t_button">统计参数设置</a>
<a href="?Action=stylelist" class="t_button">网站统计图片设置</a>
<a href="?Action=imglist" class="t_button">网店图片管理</a>
</td>
          </tr>
        </table>
        
<table class="tb_1">
<tr class="tr_1">
    <td colspan="4"> 统计概况</td>
  </tr>
  <tr>
    <td>统计账号：</td>
    <td colspan="3">
	<%
	If Rs("VipState")=-1 Then
	 If Rs("ParentName")="" Then
	  Response.Write "<font color=ff0000>Vip父账号</font>&nbsp;Vip到期时间："&Rs("VipEndDate")&"&nbsp;允许子账号数:"&Rs("VipAddSubNum")
	 Else
	  Response.Write "<font color=ff0000>Vip子账号</font>&nbsp;Vip到期时间："&Rs("VipEndDate")
	 End If
	ElseIf Rs("VipState")=0 Then
	 If Rs("ParentName")="" Then
	  Response.Write "普通父账号"
	  If RsSet("UserUseDayState")=-1 Then 
	   Response.Write "&nbsp;到期时间："&Rs("EndDate")
	  Else
	   Response.Write "&nbsp;永久使用"
	  End If
	  Response.write "&nbsp;允许子账号数:"&RsSet("UserAddSubNum")	  
	 Else
	  Response.Write "普通子账号"
	  If RsSet("UserUseDayState")=-1 Then 
	   Response.Write "&nbsp;到期时间："&Rs("EndDate")
	  Else
	   Response.Write "&nbsp;永久使用"
	  End If
	 End If
	End If
	 %>


</td>
  </tr>
  <tr> 
    <td width="156">付费或延期操作：</td>
    <td colspan="3">
<%If Rs("ParentName")="" And Session("CFCountUser_View")="" Then

Response.write "<a href='?Action=enoughcardlist' class='t_button'>付费增加VIP天数</a>"

If Rs("VipState")=0 And RsSet("UserUseDayState")=-1 And RsSet("UserDelayDay")>0 Then
 If DateDiff("d",Now,Rs("EndDate"))<RsSet("UserDelayDay") Then
   Response.write "&nbsp;&nbsp;&nbsp;&nbsp;<a href='User.aspx?Action=delayday' class='t_button'>免费延长使用天数</a>(每次最多能延长有效使用天数"&RsSet("UserDelayDay")&"天，最少1天)"
  Else
   Response.write "&nbsp;&nbsp;&nbsp;&nbsp;免费延长今天无法再操作，请明天再试"
  End If
End If

End If
%>
</td>
  </tr>
  
  <tr> 
    <td width="156">网站名称：</td>
    <td colspan="3"><b><%=Rs("PageName")%></b></td>
  </tr>
  <tr> 
    <td>站点地址：</td>
    <td colspan="3"><a href="<%=Rs("PageUrl")%>" target="_blank"><%=Rs("PageUrl")%></a>&nbsp;[<a href="http://www.alexa.com/data/details/traffic_details?q=&url=<%=Rs("PageUrl")%>" target="_blank">Alexa排名查询</a>]&nbsp;[<a href="http://web.archive.org/web/*/<%=Rs("PageUrl")%>" target="_blank">历史网页回忆</a>]</td>
  </tr>
  <tr> 
    <td>开始统计于：</td>
    <td colspan="3"><%=Rs("AddTime")%></td>
  </tr>
  <tr> 
    <td>已统计天数：</td>
    <td colspan="3"><%=DateDiff("d",Rs("AddTime"),Now())%>天</td>
  </tr>
  <tr> 
    <td>平均每人访问页数：</td>
    <td colspan="3"><%=Int(Rs("RealShowTotal")/Rs("RealIpTotal"))%>页</td>
  </tr>
  <tr> 
    <td>在线人数：</td>
    <td colspan="3"><%=Rs("OnlineTotal")%></td>
  </tr>
  <tr> 
    <td></td>
    <td>浏览量 </td>
    <td>访问量 </td>
    <td></td>
  </tr>
  <tr> 
    <td>总量：</td>
    <td><%=Rs("RealShowTotal")%></td>
    <td><%=Rs("RealIpTotal")%></td>
    <td></td>
  </tr>
  <tr> 
    <td>今日流量：</td>
    <td><%=Rs("TodayShow")%></td>
    <td><%=Rs("TodayIp")%></td>
    <td> 今天最高： <%=Rs("TodayTopIp")%> IP (发生在: <%=Rs("TodayTopIpTime")%>时) 最低： <%=Rs("TodayLowIp")%> IP (发生在: <%=Rs("TodayLowIpTime")%>时)</td>
  </tr>
  <tr> 
    <td>昨日流量：</td>
    <td><%=Rs("YesShow")%></td>
    <td><%=Rs("YesIp")%></td>
    <td> 昨天最高： <%=Rs("YesTopIp")%> IP (发生在: <%=Rs("YesTopIpTime")%>时) 最低： <%=Rs("YesLowIp")%> IP (发生在: <%=Rs("YesLowIpTime")%>时)</td>
  </tr>
  <%
BzksDate=date
if weekday(BzksDate)=1 then BzksDate=DateAdd("d", -6, BzksDate)
if weekday(BzksDate)=2 then BzksDate=BzksDate
if weekday(BzksDate)=3 then BzksDate=DateAdd("d", -1, BzksDate)
if weekday(BzksDate)=4 then BzksDate=DateAdd("d", -2, BzksDate)
if weekday(BzksDate)=5 then BzksDate=DateAdd("d", -3, BzksDate)
if weekday(BzksDate)=6 then BzksDate=DateAdd("d", -4, BzksDate)
if weekday(BzksDate)=7 then BzksDate=DateAdd("d", -5, BzksDate)

SzmDate=DateAdd("d", -1, BzksDate)
SzksDate=DateAdd("d", -7, BzksDate)
%>
  <tr> 
    <td>本周累计：</td>
    <td><%=Rs("TWeekShow")%></td>
    <td><%=Rs("TWeekIp")%></td>
    <td> 本周最高： <%=Rs("TWeekTopIp")%> IP (发生在: <%=Rs("TWeekTopIpTime")%>) 最低： <%=Rs("TWeekLowIp")%> IP (发生在: <%=Rs("TWeekLowIpTime")%>)</td>
  </tr>
  <tr> 
    <td>上周累计：</td>
    <td><%=Rs("YWeekShow")%></td>
    <td><%=Rs("YWeekIp")%></td>
    <td> 上周最高： <%=Rs("YWeekTopIp")%> IP (发生在: <%=Rs("YWeekTopIpTime")%>) 最低： <%=Rs("YWeekLowIp")%> IP (发生在: <%=Rs("YWeekLowIpTime")%>)</td>
  </tr>
  <tr> 
    <td>本月累计：</td>
    <td><%=Rs("TMonthShow")%></td>
    <td><%=Rs("TMonthIp")%></td>
    <td> 本月最高： <%=Rs("TMonthTopIp")%> IP (发生在: <%=Rs("TMonthTopIpTime")%>) 最低： <%=Rs("TMonthLowIp")%> IP (发生在: <%=Rs("TMonthLowIpTime")%>)</td>
  </tr>
  <tr> 
    <td>上月累计：</td>
    <td><%=Rs("YMonthShow")%></td>
    <td><%=Rs("YMonthIp")%></td>
    <td> 上月最高： <%=Rs("YMonthTopIp")%> IP (发生在: <%=Rs("YMonthTopIpTime")%>) 最低： <%=Rs("YMonthLowIp")%> IP (发生在: <%=Rs("YMonthLowIpTime")%>)</td>
  </tr>
  <tr> 
    <td>今年累计：</td>
    <td><%=Rs("TYearShow")%></td>
    <td><%=Rs("TYearIp")%></td>
    <td> 所有最高： <%=Rs("TYearTopIp")%> IP (发生在: <%=Rs("TYearTopIpTime")%>) 最低： <%=Rs("TYearLowIp")%> IP (发生在: <%=Rs("TYearLowIpTime")%>)</td>
  </tr>
  <tr> 
    <td>平均每日：</td>
    <td><%=Int(Rs("RealShowTotal")/DateDiff("d",Rs("AddTime"),Now())+1)%></td>
    <td><%=Int(Rs("RealIpTotal")/DateDiff("d",Rs("AddTime"),Now())+1)%></td>
    <td></td>
  </tr>
  <tr> 
    <td>预计今日：</td>
    <td> 
        <%
			MyTime=DateDiff("n",Date(),Now())
			If MyTime=0 Then MyTime=1
			Response.write Int(Rs("TodayShow")*1440/MyTime)
			%>
      </td>
    <td> 
        <%Response.write Int(Rs("TodayIp")*1440/MyTime)%>
      </td>
    <td>&nbsp;</td>
  </tr>
</table>

<%
Set RsUser= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
RsUser.Open Sql,Conn,1,1
%>

<%If RsUser("ParentName")="" And Session("CFCountUser_View")="" Then'为父账号且是管理员时%>		
<br>
<table class="tb_1">
<tr class="tr_1">
    <td colspan="4"> 子账号</td>
  </tr>
  <tr> 
    <td colspan="4">
<%
If RsUser("UserState")=0 Then
 Response.write "<b>你没有权限开通子账号</b>"
Else 
 If RsUser("VipState")=0 Then'为普通用户时
  If RsSet("UserAddSub")=-1 Then'系统允许普通用户添加子账号时
   Sql="Select Count(*) From CFCount_User Where ParentName='"&UserName&"'"
   Set Rs2=Conn.Execute(Sql)

   If Rs2(0)>=RsSet("UserAddSubNum") Then
    Response.write "<b>子账号开通的数量已满</b>"
   Else
    Response.write "<a href='?Action=subadd' class='t_button'>添加子账号</a>"
   End If
  Else
   Response.write "<b>你没有权限开通子账号</b>"
  End If
 ElseIf RsUser("VipState")=-1 Then'为Vip用户时
  Sql="Select Count(*) From CFCount_User Where ParentName='"&UserName&"'"
  Set Rs2=Conn.Execute(Sql)
  If Rs2(0)>=RsUser("VipAddSubNum") Then
   Response.write "<b>子账号开通的数量已满</b>"
  Else
   Response.write "<a href='?Action=subadd' class='t_button'>添加子账号</a>"
  End If
 End If
End If
%>	
      如果你有多个网站需要分别进行统计，可以增加子账号，无需注册多个用户名</td>
  </tr>
  <tr> 
    <td colspan="4">已开通的子账号：</td>
  </tr>
  <%
Sql="Select * From CFCount_User Where ParentName='"&UserName&"'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
  <%
If Rs.Eof Then
%>
  <tr> 
    <td colspan="4">暂时没有子账号</td>
  </tr>
  <%
Else
%>
  <tr class="tr_2"> 
    <td>用户名</td>
    <td>站点名称</td>
    <td>域名</td>
    <td></td>
  </tr>
  <%
End If%>
  <%
While Not Rs.Eof
%>
  <tr class="tr_2"> 
    <td><%=Rs("UserName")%></td>
    <td><%=Rs("PageName")%></td>
    <td><a href="<%=Rs("PageUrl")%>" target="_blank"><%=Rs("PageUrl")%></a></td>
    <td>
<a href="?Action=subgoto&SubUserName=<%=Rs("UserName")%>" class="t_button">进入管理</a>
<a href="?Action=submodify&SubUserName=<%=Rs("UserName")%>" class="t_button">修改</a>
<a href="User.aspx?Action=subdel&SubUserName=<%=Rs("UserName")%>" class="t_button" onClick="return confirm('确定要删除这个子账号吗，删除后此子账号时统计数据将不存在!')">删除账号</a></td>
  </tr>
  <%
 Rs.MoveNext
 Wend
%>
</table>

<%End If%>
