📄 qqcf_view.asp

📁 1.40种记数器图片样式自由选择
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%
'==================================
' 乘风多用户计数器v3.4
' 制　作：乘　风
' 网　站：http://www.qqcf.com
' 系统演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,但不提供服务和升级。
' 付费版提供升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风免费电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理、系统乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2005年11月27日									
'===================================
%>
<!--#Include File="QQCF_Conn.Asp"-->
<!--#Include File="QQCF_ChkStr.Asp"-->
<!--#Include File="QQCF_MyFunCtion.Asp"-->

<HTML><HEAD><TITLE><%=RsSet("Title")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=10><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=40><IMG height=12 src="QQCF_Pic/ok3-3_r2_c15.gif" 
      width=40></TD>
    <TD width=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
    <TR> 
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=14><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD><a href="http://www.qqcf.com" target="_blank"><IMG src="<%=RsSet("LogoUrl")%>" width="480" height="60" border="0"></a></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE height=6 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD background=QQCF_Pic/ok3-1_r7_c2.jpg>&nbsp;&nbsp;&nbsp;<a href="QQCF_Manage.Asp?Action=lylist"><strong>来源明细</strong></a>|<a href="QQCF_Manage.Asp?Action=lytj"><strong>来源统计</strong></a>|<a href="QQCF_Manage.Asp?Action=onlinetj"><strong>在线统计</strong></a>|<a href="QQCF_Manage.Asp?Action=daytj"><strong>每日统计</strong></a>|<a href="QQCF_Manage.Asp?Action=hourtj"><strong>小时统计</strong></a>|<a href="QQCF_Manage.Asp?Action=backtj"><strong>回头率统计</strong></a>|<a href="QQCF_Manage.Asp?Action=searchtj"><strong>搜索引擎统计</strong></a>|<a href="QQCF_Manage.Asp?Action=keywordtj"><strong>搜索关键字统计</strong></a>|<a href="QQCF_Manage.Asp?Action=jsqset"><strong>计数设置</strong></a>|&nbsp;&nbsp;<a href="QQCF_Admin.Asp"><font color="#ff0000"><strong>超级管理员入口</strong></font></a></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=12 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1>
 
	  <%
User_Name=Request.QueryString("User_Name")
Set RsUser= Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where User_Name='"&User_Name&"'"
RsUser.Open Sql,Conn,1,1

If RsUser("TjOpen")=0 Then Response.Redirect "QQCF_Index.Asp"
%>
<%If RsUser("SurveyOpen")=-1 Then%>
<%
Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' Order By Counter Desc"
Set RsTopShow=Conn.Execute(Sql)

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

Sql="Select Top 1 Counter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d','"&RsUser("AddTime")&"',AddDate)>0 And DateDiff('d',AddDate,Date())>0 Order By Counter"
Set RsLowShow=Conn.Execute(Sql)

Sql="Select Top 1 IpCounter,AddDate From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d','"&RsUser("AddTime")&"',AddDate)>0 And DateDiff('d',AddDate,Date())>0 Order By IpCounter"
Set RsLowIp=Conn.Execute(Sql)

%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <tr> 
            <td height="19" colspan="4"> <div align="center"><strong>统计概况</strong></div></td>
          </tr>
          <tr align="center"> 
            <td width="156" align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">网站名称：</div></td>
            <td colspan="3" align="left" bgcolor="#FFFFFF"><b><%=RsUser("PageName")%></b></td>
          </tr>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">站点地址：</div></td>
            <td colspan="3" align="left" bgcolor="#FFFFFF"><a href="<%=RsUser("PageUrl")%>" target="_blank"><%=RsUser("PageUrl")%></a></td>
          </tr>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">开始统计于：</div></td>
            <td colspan="3" align="left" bgcolor="#FFFFFF"><%=RsUser("AddTime")%></td>
          </tr>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">已统计天数：</div></td>
            <td colspan="3" align="left" bgcolor="#FFFFFF"><%=DateDiff("d",RsUser("AddTime"),Now())%>天</td>
          </tr>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="center"></div></td>
            <td width="62" align="left" bgcolor="#FFFFFF"><div align="center">浏览量
              </div></td>
            <td width="84" align="left" bgcolor="#FFFFFF"><div align="center">访问量 
              </div></td>
            <td width="407" align="left" bgcolor="#FFFFFF"><div align="center"></div></td>
          </tr>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">总量：</div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=RsUser("RealIpTotal")%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=RsUser("RealShowTotal")%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"></div></td>
          </tr>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">今日流量：</div></td>
            <%
Sql="Select Counter,IpCounter From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Date())=0"
Set Rs=Conn.Execute(Sql)
TodayShow=Rs("Counter")
TodayIp=Rs("IpCounter")
%>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs("Counter")%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs("IpCounter")%></div></td>
            <td align="left" bgcolor="#FFFFFF">最高访问量： <%=RsTopIp("IpCounter")%> IP (发生在: <%=RsTopIp("AddDate")%>) </td>
          </tr>
          <%
Sql="Select Counter,IpCounter From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('d',AddDate,Date())=1"
Set Rs=Conn.Execute(Sql)
%>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">昨日流量：</div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs("Counter")%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs("IpCounter")%></div></td>
            <td align="left" bgcolor="#FFFFFF">最高浏览量： <%=RsTopShow("Counter")%> PV (发生在: <%=RsTopShow("AddDate")%>)</td>
          </tr>
          <%
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('m',AddDate,Date())=0"
Set Rs=Conn.Execute(Sql)
%>
          <tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="right">本月累计：</div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs(0)%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=Rs(1)%></div></td>
            <td align="left" bgcolor="#FFFFFF">&nbsp;</td>
          </tr>
          <%
Sql="Select Sum(Counter),Sum(IpCounter) From WWW_QQCF_COM_CfCount_Day_Count Where User_Name='"&User_Name&"' And DateDiff('yyyy',AddDate,Date())=0"
Set Rs2=Conn.Execute(Sql)
%>
12 3 下一页
💿 文件大小 412 K
👤 上传用户 woainijiajia123
📂 所属分类其他数据库
🏷️ 相关标签

#1.40 #记数 #自由选择
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -