📄 cf_manage_2.asp
字号:
<%
'乘风多用户计数器
'制作：乘 风
'QQ：178575
'E-Mail：yliangcf@163.com
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfcount
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%If Action="" Or Action="tjsurvey" Then%>
<%
Set RsUser= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
RsUser.Open Sql,Conn,1,1
Sql="Select Top 1 MyCounter,AddDate From CFCount_Count_Day Where UserName='"&UserName&"' Order By MyCounter Desc"
Set Rs=Conn.Execute(Sql)
If Not Rs.Eof Then
TopShow=Rs("MyCounter")
TopShowDate=Rs("AddDate")
Else
TopShow=0
TopShowDate=""
End If
Rs.Close
Sql="Select Top 1 IpCounter,AddDate From CFCount_Count_Day Where UserName='"&UserName&"' Order By IpCounter Desc"
Set Rs=Conn.Execute(Sql)
If Not Rs.Eof Then
TopIp=Rs("IpCounter")
TopIpDate=Rs("AddDate")
Else
TopIp=0
TopIpDate=""
End If
Rs.Close
Sql="Select Top 1 MyCounter,AddDate From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('d','"&RsUser("AddTime")&"',AddDate)>0 And DateDiff('d',AddDate,Date())>0 Order By MyCounter"
Set Rs=Conn.Execute(Sql)
If Not Rs.Eof Then
LowShow=Rs("MyCounter")
LowShowDate=Rs("AddDate")
Else
LowShow=0
LowShowDate=""
End If
Rs.Close
Sql="Select Top 1 IpCounter,AddDate From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('d','"&RsUser("AddTime")&"',AddDate)>0 And DateDiff('d',AddDate,Date())>0 Order By IpCounter"
Set Rs=Conn.Execute(Sql)
If Not Rs.Eof Then
LowIp=Rs("IpCounter")
LowIpDate=Rs("AddDate")
Else
LowIp=0
LowIpDate=""
End If
Rs.Close
%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td><strong>您好用户：<%=UserName%></strong>
<%
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&UserName&"'"
Rs.Open Sql,Conn,1,1
If Rs("state")=0 Then Response.Write " <font color=#ff0000>你的账号已被禁用!</font>"
If Rs("ParentName")<>"-" Then Response.Write " 你的父账号是:"&Rs("ParentName")
%>
</td>
</tr>
<tr>
<td><strong>常用设置链接</strong>：[<a href="?Action=jsqquickset">计数器基本样式快速设置</a>] [<a href="?Action=jsqset">计数器参数设置</a>] [<a href="?Action=stylelist">计数器图片样式选择</a>] [<a href="?Action=getcode">预览及获得计数器代码</a>] [<a href="?Action=modifypassword">修改密码</a>] </td>
</tr>
</table>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td height="19" colspan="4"> <div align="center"><strong>统计概况</strong></div></td>
</tr>
<tr align="center">
<td width="156" align="left"><div align="right">网站名称：</div></td>
<td colspan="3" align="left"><b><%=RsUser("PageName")%></b></td>
</tr>
<tr align="center">
<td align="left"><div align="right">站点地址：</div></td>
<td colspan="3" align="left"><a href="<%=RsUser("PageUrl")%>" target="_blank"><%=RsUser("PageUrl")%></a> [<a href="http://www.alexa.com/data/details/traffic_details?q=&url=<%=RsUser("PageUrl")%>" target="_blank">Alexa排名查询</a>] [<a href="http://web.archive.org/web/*/<%=RsUser("PageUrl")%>" target="_blank">历史网页回忆</a>]</td>
</tr>
<tr align="center">
<td align="left"><div align="right">开始统计于：</div></td>
<td colspan="3" align="left"><%=RsUser("AddTime")%></td>
</tr>
<tr align="center">
<td align="left"><div align="right">已统计天数：</div></td>
<td colspan="3" align="left"><%=DateDiff("d",RsUser("AddTime"),Now())%>天</td>
</tr>
<tr align="center">
<td align="left"><div align="right">在线人数：</div></td>
<td colspan="3" align="left">
<%
If IsEmpty(Application("CFCountOnline_"&UserName)) Then
OnlineTotal=0
Else
Myarray=Split(Application("CFCountOnline_"&UserName),"|")
OnlineTotal=Ubound(Myarray)
End If
Response.Write OnlineTotal&"人"%></td>
</tr>
<tr align="center">
<td align="left"><div align="center"></div></td>
<td width="62" align="left"><div align="center">浏览量
</div></td>
<td width="84" align="left"><div align="center">访问量
</div></td>
<td width="407" align="left"><div align="center"></div></td>
</tr>
<tr align="center">
<td align="left"><div align="right">总量：</div></td>
<td align="left"><div align="center"><%=RsUser("RealShowTotal")%></div></td>
<td align="left"><div align="center"><%=RsUser("RealIpTotal")%></div></td>
<td align="left"><div align="center"></div></td>
</tr>
<tr align="center">
<td align="left"><div align="right">今日流量：</div></td>
<%
Sql="Select MyCounter,IpCounter From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('d',AddDate,Date())=0"
Set Rs=Conn.Execute(Sql)
TodayShow=Rs("MyCounter")
TodayIp=Rs("IpCounter")
%>
<td align="left"><div align="center"><%=Rs("MyCounter")%></div></td>
<td align="left"><div align="center"><%=Rs("IpCounter")%></div></td>
<td align="left">最高访问量： <%=TopIp%> IP (发生在: <%=TopIpDate%>) </td>
</tr>
<%
Sql="Select MyCounter,IpCounter From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('d',AddDate,Date())=1"
Set Rs=Conn.Execute(Sql)
If Not Rs.Eof Then
MyCounter=Rs("MyCounter")
IpCounter=Rs("IpCounter")
Else
MyCounter=0
IpCounter=0
End If
%>
<tr align="center">
<td align="left"><div align="right">昨日流量：</div></td>
<td align="left"><div align="center"><%=MyCounter%></div></td>
<td align="left"><div align="center"><%=IpCounter%></div></td>
<td align="left">最高浏览量： <%=TopShow%> PV (发生在: <%=TopShowDate%>)</td>
</tr>
<%
Sql="Select Sum(MyCounter),Sum(IpCounter) From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('m',AddDate,Date())=0"
Set Rs=Conn.Execute(Sql)
%>
<tr align="center">
<td align="left"><div align="right">本月累计：</div></td>
<td align="left"><div align="center"><%=Rs(0)%></div></td>
<td align="left"><div align="center"><%=Rs(1)%></div></td>
<td align="left"> </td>
</tr>
<%
Sql="Select Sum(MyCounter),Sum(IpCounter) From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('yyyy',AddDate,Date())=0"
Set Rs=Conn.Execute(Sql)
%>
<tr align="center">
<td align="left"><div align="right">今年累计：</div></td>
<td align="left"><div align="center"><%=Rs(0)%></div></td>
<td align="left"><div align="center"><%=Rs(1)%></div></td>
<td align="left">最低访问量： <%=LowIp%> IP (发生在: <%=LowIpDate%>)</td>
</tr>
<tr align="center">
<td align="left"><div align="right">平均每日：</div></td>
<td align="left"><div align="center"><%=Int(RsUser("RealShowTotal")/DateDiff("d",RsUser("AddTime"),Now()+1))%></div></td>
<td align="left"><div align="center"><%=Int(RsUser("RealIpTotal")/DateDiff("d",RsUser("AddTime"),Now()+1))%></div></td>
<td align="left">最低浏览量： <%=LowShow%> Pv (发生在: <%=LowShowDate%>)</td>
</tr>
<tr align="center">
<td align="left"><div align="right">预计今日：</div></td>
<td align="left"><div align="center">
<%
MyTime=DateDiff("n",Date(),Now())
If MyTime=0 Then MyTime=1
Response.write Int(TodayShow*1440/MyTime)
%>
</div></td>
<td align="left"><div align="center">
<%Response.write Int(TodayIp*1440/MyTime)%>
</div></td>
<td align="left"> </td>
</tr>
</table>
<%If RsUser("ParentName")="-" And Session("CFCountUser_View")="" Then'为父账号且是管理员时%>
<br>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td height="19" colspan="4"> <div align="center"><strong>子账号</strong></div></td>
</tr>
<tr align="center">
<td colspan="4" align="left"><input type="submit" name="Submit" value="添加子账号" onclick="location.href='?Action=subadd'">
如果你有多个网站需要分别进行统计，可以增加子账号，无需注册多个用户名</td>
</tr>
<tr align="center">
<td colspan="4" align="left">已开通的子账号：</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 align="center">
<td colspan="4" align="left">暂时没有子账号</td>
</tr>
<%
Else
%>
<tr align="center">
<td align="left"><div align="center"><strong>用户名</strong></div></td>
<td align="left"><strong>站点名称</strong></td>
<td align="left"><div align="center"><strong>域名</strong></div></td>
<td align="left"><div align="center"></div></td>
</tr>
<%
End If%>
<%
While Not Rs.Eof
%>
<tr align="center">
<td align="left"><%=Rs("UserName")%></td>
<td align="left"><%=Rs("PageName")%></td>
<td align="left"><a href="<%=Rs("PageUrl")%>" target="_blank"><%=Rs("PageUrl")%></a></td>
<td align="left"><input type="submit" name="Submit" value="进入管理" onclick="location.href='?Action=subgoto&SubUserName=<%=Rs("UserName")%>'"> <a href="?Action=submodify&SubUserName=<%=Rs("UserName")%>">修改</a> <a href="?Action=subdel&SubUserName=<%=Rs("UserName")%>" onClick="{if(confirm('确定要删除这个子账号么，删除后此子账号时统计数据将不存在!')){return true;}return false;};">删除账号</a></td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<%End If%>
<%End If%>
<%If Action="subadd" Then%>
<table width="98%" align="center" class="tba">
<form name="form3" method="post" action="?Action=subaddsave">
<tr class="tba_tr_1">
<td height="19" colspan="2"> <div align="center"><strong>添加子账号</strong></div></td>
</tr>
<tr>
<td><div align="right">账号名称：</div></td>
<td><input name="SubUserName" type="text" id="password"></td>
</tr>
<tr>
<td><div align="right">账号密码：</div></td>
<td><input name="Pwd" type="password" id="password"></td>
</tr>
<tr>
<td><div align="right">重复账号密码：</div></td>
<td><input name="Pwd2" type="password" id="password"></td>
</tr>
<tr>
<td><div align="right">站点名称：</div></td>
<td><input name="PageName" type="text" id="password"></td>
</tr>
<tr>
<td><div align="right">域名：</div></td>
<td><input name="PageUrl" type="text" id="PageName"></td>
</tr>
<tr >
<td> </td>
<td> <input type="submit" name="Submit2" value="确定"> </td>
</tr>
</form>
</table>
<%End If%>
<%If Action="submodify" Then%>
<%
SubUserName=ChkStr(Request("SubUserName"),1)
Set Rs= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_User Where UserName='"&SubUserName&"' And ParentName='"&UserName&"'"
Rs.Open Sql,Conn,1,1%>
<table width="98%" align="center" class="tba">
<form name="form3" method="post" action="?Action=submodifysave">
<tr class="tba_tr_1">
<td height="19" colspan="2"> <div align="center"><strong>修改子账号</strong></div></td>
</tr>
<tr>
<td><div align="right">账号名称：</div></td>
<td><input name="SubUserName" type="hidden" value="<%=Rs("UserName")%>">
<%=Rs("UserName")%></td>
</tr>
<tr>
<td><div align="right">站点名称：</div></td>
<td><input name="PageName" type="text" id="password" value="<%=Rs("PageName")%>"></td>
</tr>
<tr>
<td><div align="right">域名：</div></td>
<td><input name="PageUrl" type="text" id="PageName" value="<%=Rs("PageUrl")%>"></td>
</tr>
<tr >
<td> </td>
<td> <input type="submit" name="Submit2" value="确定">
</td>
</tr>
</form>
</table>
<%End If%>
<%If Action="lastvisit" Then%>
<%
Myarray=Split(Application("CFCountLy_"&UserName),"|")
%>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td colspan="8" align="center"><strong>最新访问记录</strong></td>
</tr>
<tr>
<td align="center"> <p align="center"><strong>序号</strong></td>
<td align="center"><strong>IP</strong></td>
<td align="center"><strong>访问次数</strong></td>
<td align="center"><strong>访问时间</strong></td>
<td align="center"><strong>来源页面</strong></td>
<td align="center"><strong>最后访问时间</strong></td>
<td align="center"><strong>最后浏览页面</strong></td>
<td align="center"><strong>共浏览几页</strong></td>
</tr>
<%For I=Ubound(Myarray)-1 To 0 Step -1%>
<%MyArray_2=Split(MyArray(I),"\")
J=J+1%>
<tr>
<td align="center"><%=J%></td>
<td align="center"> <%If Ip=MyArray_2(0) Then Response.Write "<font color=ff0000>"%> <%=MyArray_2(0)%> <%If Ip=MyArray_2(0) Then Response.Write "</font>"%>
<%If RsSet("IpArea")=-1 And J<=20 Then
Response.write "<br>"&GetIpArea(MyArray_2(0))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -