📄 test.asp

📁 1.40种记数器图片样式自由选择
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<%
'==================================
' 乘风多用户计数器v3.4
' 制　作：乘　风
' 网　站：http://www.qqcf.com
' 系统演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,但不提供服务和升级。
' 付费版提供升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风免费电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理、系统乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2005年11月27日									
'===================================
%>
<%Response.Expires= -1
Response.Addheader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="QQCF_Conn.Asp"-->
<!--#Include File="QQCF_ChkStr.Asp"-->
<!--#Include File="QQCF_MyFunCtion.Asp"-->
<!--#Include File="QQCF_Md5.Asp"-->
<%
If Session("CfCountUser")="" Then
  If Request.Cookies("CfCountUserCooKie")<>"" then
   CfCountUserCooKie=Chkstr(Request.Cookies("CfCountUserCooKie"))
   Set Rs= Server.CreateObject("Adodb.RecordSet")
   Sql="Select User_Name From WWW_QQCF_COM_CfCount_RegUser Where Cookies='"&CfCountUserCooKie&"'"
   Rs.Open Sql,Conn,1,1
   If Not Rs.Eof Then Session("CfCountUser")=Rs("User_Name")
  End If
End If

If Session("CfCountUser")="" Then
 Response.Cookies("CfCountUserCooKie")=""
 Call AlertUrl("请重新登陆!","QQCf_Index.Asp")
Else
 User_Name=Session("CfCountUser")
End If
%>

<!--#Include File="QQCF_Manage_Do.Asp"-->
<%
Tmp = HttpPath(2)
%> 

<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>
<%If Request("Action")="" Or Request("Action")="tjsurvey" Then
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 RsSet("TjOpen")=-1 Then
 show="show_1()"
ElseIf RsSet("TjOpen")=0 Then
 show="show_2()"
End If
%>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0"<%If Request("Action")="jsqset" Then Response.Write " onload="&show%>>
<!--#include file="QQCF_Manage_Menu.Asp"-->
<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 valign="top" background=QQCF_Pic/ok3-1_r7_c2.jpg><table width="730" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="#6681D9" bgcolor="#6681D9">
          <tr bgcolor="#e8e8e8"> 
            <td><div align="center"><a href="?Action=tjsurvey"><strong>统计概况</strong></a></div></td>
            <td><div align="center"><a href="?Action=lylist"><strong>来源明细</strong></a></div></td>
            <td><div align="center"><a href="?Action=onlinetj"><strong>在线统计</strong></a></div></td>
            <td><div align="center"><a href="#" name="link1" id="link1" onClick="MM_showMenu(window.mm_menu_1,-5,20,null,'link1')" onMouseOut="MM_startTimeout();"><strong>计数统计报表</strong></a></div></td>
            <td><div align="center"><a href="#" name="link2" id="link2" onClick="MM_showMenu(window.mm_menu_2,-5,20,null,'link2')" onMouseOut="MM_startTimeout();"><strong>搜索引擎统计</strong></a></div></td>
            <td><div align="center"><a href="#" name="link3" id="link3" onClick="MM_showMenu(window.mm_menu_3,-5,20,null,'link3')" onMouseOut="MM_startTimeout();"><strong>计数器设置</strong></a></div></td>
            <td><div align="center"><a href="?Action=getcode"><strong>预览及获得计数代码</strong></a></div></td>
            <td><div align="center"><a href="#" name="link4" id="link4" onClick="MM_showMenu(window.mm_menu_4,-5,20,null,'link4')" onMouseOut="MM_startTimeout();"><strong>修改个人资料</strong></a></div></td>
            <td><div align="center"><a href="?Action=logout"><strong>退出管理</strong></a></div></td>
          </tr>
        </table></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 valign="top">
	
<%If Request("Action")="" Or Request("Action")="tjsurvey" Then%>
<%
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


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("RealShowTotal")%></div></td>
            <td align="left" bgcolor="#FFFFFF"><div align="center"><%=RsUser("RealIpTotal")%></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>
12 3 4 5 下一页
💿 文件大小 412 K
👤 上传用户 woainijiajia123
📂 所属分类其他数据库
🏷️ 相关标签

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

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