total.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 116 行

ASP
116 行
字号 
<!--飞天网络统计程序 V1.0 Powered by flymorn,ftwl.cb35.com-->
<!--#include file="inc/conn.asp" -->
<%
sql="select * from cnt where id =1"                 
set rs=server.createobject("adodb.recordset")                  
rs.open sql,conn,1,1
totalip=rs("totalip")
totalpv=rs("totalpv")
startday=rs("startday")
yesdayip=rs("yesdayip")
yesdaypv=rs("yesdaypv")
day2ip=rs("day2ip")
day2pv=rs("day2pv")
dd=datediff("d",startday,date())
if dd=0 then
dd=1
end if
set rs=nothing

'今日IP
function todayip()
sql="Select count(id) from ip"
set ips=conn.execute(sql) 
todayip=ips(0) 
ips.close
set ips=nothing 
end function
 
'今日PV
function todaypv()
sql="Select sum(n) from ip"
set rs=conn.execute(sql)
If rs.eof and rs.bof Then 
todaypv=0                    
Else
todaypv=rs(0)
end if
rs.close
set rs=nothing 
end function 

'在线人数
function online()
sql="Select count(id) from ip WHERE DATEDIFF('s', lastime, now()) < "&kicktime&"*60"
set ips=conn.execute(sql) 
online=ips(0) 
ips.close
set ips=nothing 
end function 
%>
<html>
<head>
<title>总体数据 - 飞天网络统计程序 V1.0</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="css.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.style1 {
	font-size: 14pt;
	font-weight: bold;
}
-->
</style>
</head>

<body>
<!--#include file="head.asp"--> 
<!--飞天网络统计程序 V1.0 Powered by flymorn,ftwl.cb35.com-->
<div align="center"><br>
</div>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="biao_bdr1">
  <tr>
    <td><table width="756" border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td><p align="center"><span class="style1"><br>
          </span><span class="style1">总体数据 - 飞天网络统计程序 V1.0</span>          <br> 
          </p></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--Powered by flymorn,www.cn-pn.com-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="biao_bdr2">
  <tr>
    <td><table width="720" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><hr noshade size="1">[ 当前在线：<font color=red><b><%=online()%></b></font>人 ] <br>
            <br>
[ 今日IP：<b><%=todayip()%></b> ] [ 今日PV：<b><%=todaypv()%></b> ]<br>
<br>
[ 昨日IP：<b><%=yesdayip%></b> ] [ 昨日PV：<b><%=yesdaypv%></b> ] <br>
<br>
[ 前日IP：<b><%=day2ip%></b> ] [ 前日PV：<b><%=day2pv%></b> ]<br>
<br>
            [ 开始统计：<b><%=startday%></b> ] [ 统计天数：<b><%=dd%></b> ] <br>
            <br>
            [ 总访问量：<b><%=totalpv%></b> ]  [ 总IP量：<b><%=totalip%></b> ] <br>
            <br>
            [ 平均访量：<b><%=int(totalpv/dd)%></b> ] [ 平均IP：<b><%=int(totalip/dd)%></b> ]
            <br>
            <br>
            注意：<br>
            1、当前在线人数，今日IP，今日PV为即时更新数据。<br>
            2、其他所有数据，每天凌晨只更新一次；目的：节省系统资源，使程序更快执行。<br>
            <br></td>
        </tr>
    </table></td>
  </tr>
</table>
<br>
<!--#include file="foot.asp"-->
<!--飞天网络统计程序 V1.0 Powered by flymorn,ftwl.cb35.com-->
</body>
</html>
<%call closedb%>

total.asp - 源码说明

本页面展示了「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程序」中的 total.asp 源码文件，采用 ASP 编程语言编写，共 116 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与6.0相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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