cf_view_pre.asp

1.核心采用.Net、Mssql数据库、存储过程、缓存技术构建

<%
'乘风多用户计数器
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfcount
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
On Error Resume Next

Action=Request("Action")

If Action="login" Then
 UserName=GoBack(ChkStr(Request("UserName"),1),"请输入用户名称")
 Pwd_View=GoBack(ChkStr(Request("Pwd_View"),1),"请输入独立查看密码")

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


 If Rs.Eof And Rs.Bof Then Call AlertBack("没有此注册用户!",1)

 If Rs("Pwd_View")<>Md5(Pwd_View,1) Then Call AlertBack("独立查看密码错误!",1)
 
 Session("CFCountUser_View")=UserName
 Response.Redirect "Manage.asp"
End If



UserName=ChkStr(Request.QueryString("UserName"),1)
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip= "" Then Ip= Request.ServerVariables("REMOTE_ADDR")

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


<table width="98%" border="0" align="center" cellpadding="10" cellspacing="0">
  <tr> 
    <td><div align="center"><a href="Index.asp?UserName=<%=Username%>">[<%=RsUser("PageName")%>] 的站长请点击这里登录</a></div></td>
  </tr>
  <form name="form1" method="post" action="?Action=login&UserName=<%=UserName%>">
    <tr> 
      <td><div align="center">独立查看密码： 
          <input name="Pwd_View" type="password" id="Pwd_View">
          <input type="submit" name="Submit" value="查看统计">
        </div></td>
    </tr>
  </form>
</table>


<%If RsUser("SurveyOpen")=-1 Then%>
<%
Sql="Select Top 1 MyCounter,AddDate From CFCount_Count_Day Where UserName='"&UserName&"' Order By MyCounter Desc"
Set RsTopShow=Conn.Execute(Sql)

Sql="Select Top 1 IpCounter,AddDate From CFCount_Count_Day Where UserName='"&UserName&"' Order By IpCounter Desc"
Set RsTopIp=Conn.Execute(Sql)

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 RsLowShow=Conn.Execute(Sql)

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 RsLowIp=Conn.Execute(Sql)

%>
<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="20%" 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></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">最高访问量： <%=RsTopIp("IpCounter")%> IP (发生在: <%=RsTopIp("AddDate")%>) </td>
          </tr>
          <%
Sql="Select MyCounter,IpCounter From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('d',AddDate,Date())=1"
Set Rs=Conn.Execute(Sql)
%>
          <tr align="center"> 
            <td align="left"><div align="right">昨日流量：</div></td>
            <td align="left"><div align="center"><%=Rs("MyCounter")%></div></td>
            <td align="left"><div align="center"><%=Rs("IpCounter")%></div></td>
            <td align="left">最高浏览量： <%=RsTopShow("MyCounter")%> PV (发生在: <%=RsTopShow("AddDate")%>)</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">&nbsp;</td>
          </tr>
          <%
Sql="Select Sum(MyCounter),Sum(IpCounter) From CFCount_Count_Day Where UserName='"&UserName&"' And DateDiff('yyyy',AddDate,Date())=0"
Set Rs2=Conn.Execute(Sql)
%>
          <tr align="center"> 
            <td align="left"><div align="right">今年累计：</div></td>
            <td align="left"><div align="center"><%=Rs2(0)%></div></td>
            <td align="left"><div align="center"><%=Rs2(1)%></div></td>
            <td align="left">最低访问量： <%=RsLowIp("IpCounter")%> IP (发生在: <%=RsLowIp("AddDate")%>)</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">最低浏览量： <%=RsLowShow("MyCounter")%> Pv (发生在: <%=RsLowShow("AddDate")%>)</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">&nbsp;</td>
          </tr>
        </table>
<%End If%>

<%If RsUser("TodayLyOpen")=-1 Then%><br>
<%
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>
          <%
		  If Ubound(Myarray)>10 Then
		   K=Ubound(Myarray)-10
		  Else
		   K=0
		  End if
		  
		  For I=Ubound(Myarray)-1 TO K Step -1
		  J=J+1%>
          <%
		  If MyArray(I)="" Then MyArray(I)="\"
		  MyArray_2=Split(MyArray(I),"\")%>
          <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 Then
				  Response.write "<br>"&GetIpArea(MyArray_2(0))
				 End If%> </td>
            <td align="center"><%=MyArray_2(1)%></td>
            <td align="center"><%=GetTurnTime(Hour(Cdate(MyArray_2(2))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(2))))&":"&GetTurnTime(Second(Cdate(MyArray_2(2))))%></td>
            <td align="center"> <%If MyArray_2(3)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="http://<%=BreakUrl(MyArray_2(3),1)%>" target='_blank'><%=BreakUrl(MyArray_2(3),1)%></a>[<a href="<%=MyArray_2(3)%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center"><%=GetTurnTime(Hour(Cdate(MyArray_2(4))))&":"&GetTurnTime(Minute(Cdate(MyArray_2(4))))&":"&GetTurnTime(Second(Cdate(MyArray_2(4))))%></td>
            <td align="center"> <%If MyArray_2(5)="-" Then%>
              直接从浏览器输入 
              <%Else%> <a href="<%=MyArray_2(5)%>" target='_blank'><%=BreakUrl(MyArray_2(5),2)%></a>[<a href="<%=MyArray_2(5)%>" target='_blank'>详细</a>] 
              <%End If%></td>
            <td align="center"><%=MyArray_2(6)%></td>
          </tr>
          <%
Next%>
        </table>
        <br>

<table width="98%" align="center" class="tba">

          <%
Ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If Ip= "" Then Ip= Request.ServerVariables("REMOTE_ADDR")

Sql="Select Sum(MyCounter) From CFCount_Ly_Day where UserName='"&UserName&"' And Datediff('d',AddDate,Date())=0"
Set Rs=Conn.execute(Sql)
ThisDayTotal=Rs(0)
If ThisDayTotal=0 Then ThisDayTotal=1

Sql="Select * From CFCount_Ly_Day where UserName='"&UserName&"' And Datediff('d',AddDate,Date())=0 Order By MyCounter Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
%>
<tr class="tba_tr_1">
            <td colspan="7"><div align="center"><strong><%=Date()%> 来源统计</strong></div></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"><div align="center"><strong>序号</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>来源网站</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>来源数量</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>所占此天的比例</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>上站时间</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>最后IP地址</strong></div></td>
            <td bgcolor="#FFFFFF"><div align="center"><strong>最后访问时间</strong></div></td>
          </tr>
<%
I=0
While Not Rs.Eof
I=I+1
%>
          <tr
<%If I Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
            <td class="td_1"><div align="center"><%=I%></div></td>