📄 index.asp
字号:
<!--#include file=conn.asp-->
<html>
<head>
<title>流量统计</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/command.css" type="text/css">
<%
session("countuserid")=request("countuser")
if session("countuserid")="" then
errmsg="您尚未注册请先注册"
else
usersql="select * from kcount where countid="&session("countuserid")&""
set rsusersql=Server.createobject("adodb.recordset")
rsusersql.open usersql,conn,1,1
if rsusersql.eof then
errmsg="用户名出错"
rsusersql.close
set rsusersql=nothing
else
'session("countuserid")=rsusersql("countid")
rsusersql.close
set rsusersql=nothing
sqlcount1="select * from kcount where countid="&session("countuserid")&""
set rssqlcount1=Server.Createobject("adodb.recordset")
rssqlcount1.open sqlcount1,conn,1,1
countnumer=rssqlcount1("countnumer")'//总记录数
counttime=rssqlcount1("counttime")'//注册时间
timedifference=clng(Datediff("d",counttime,now()))'//注册时间和现在时间之差
if not timedifference=0 then
dayaverage=int(countnumer/timedifference)
end if
rssqlcount1.close
set rssqlcount1=nothing
if dayaverage<=0 then
dayaverage=1
end if
sqlcount2="select * from kcounttop where counttopuserid='"&session("countuserid")&"'"
set rssqlcount2=Server.Createobject("adodb.recordset")
rssqlcount2.open sqlcount2,conn,1,1
daycountmax=rssqlcount2("counttopdaynum")
daycountdate=FormatDatetime(rssqlcount2("counttopdaydate"),1)
weekcountmax=rssqlcount2("counttopweeknum")
weekcountdate=rssqlcount2("counttopweekdate")
weekcountdatew=Datepart("ww",weekcountdate)
weekcountdatey=Datepart("yyyy",weekcountdate)
monthcountmax=rssqlcount2("countmonthernum")
monthcountday=rssqlcount2("countmontherdate")
monthcountm=Datepart("m",monthcountday)
monthcounty=Datepart("yyyy",monthcountday)
rssqlcount2.close
set rssqlcount2=nothing
if daycountmax<=0 then
daycountmax="暂无"
end if
if weekcountmax<=0 then
weekcountmax="暂无"
end if
if monthcountmax<=0 then
monthcountmax="暂无"
end if
sqlcount5="select * from overall where overuserid='"&session("countuserid")&"' and overtime>#"&Dateadd("h",-1,now())&"# "
set rssqlcount5=Server.Createobject("adodb.recordset")
rssqlcount5.open sqlcount5,conn,1,1
if not rssqlcount5.eof then
overcounttime=rssqlcount5.recordcount
rssqlcount5.close
set rssqlcount5=nothing
else
rssqlcount5.close
set rssqlcount5=nothing
end if
sqlipcount="select sum(kieold) from kip where kuserid='"&session("countuserid")&"' and kmark=2 "
set rssqlipcount=Server.Createobject("adodb.recordset")
rssqlipcount.open sqlipcount,conn,1,1
ieold=rssqlipcount(0)
rssqlipcount.close
sqlipcount2="select sum(kienow) from kip where kuserid='"&session("countuserid")&"' and kmark=2 "
rssqlipcount.open sqlipcount2,conn,1,1
ienow=rssqlipcount(0)
rssqlipcount.close
sqlipcount3="select sum(knetscape) from kip where kuserid='"&session("countuserid")&"' and kmark=2 "
rssqlipcount.open sqlipcount3,conn,1,1
netscape=rssqlipcount(0)
rssqlipcount.close
'set rssqlipcount=nothing
if ieold>ienow and ieold>netscape then
maxie="IE4.0"
elseif ienow>ieold and ienow>netscape then
maxie="IE5.0"
elseif netscape>ieold and netscape>ienow then
maxie="Netscape"
end if
sqlipcount4="select sum(kwinold) from kip where kuserid='"&session("countuserid")&"' and kmark=2 "
rssqlipcount.open sqlipcount4,conn,1,1
winold=rssqlipcount(0)
rssqlipcount.close
sqlipcount4="select sum(kwinnow) from kip where kuserid='"&session("countuserid")&"' and kmark=2 "
rssqlipcount.open sqlipcount4,conn,1,1
winnow=rssqlipcount(0)
rssqlipcount.close
sqlipcount4="select sum(kelse) from kip where kuserid='"&session("countuserid")&"' and kmark=2 "
rssqlipcount.open sqlipcount4,conn,1,1
kelse=rssqlipcount(0)
rssqlipcount.close
set rssqlipcount=nothing
if winold>winnow and winold>kelse then
maxsys="Windows 9X"
elseif winnow>winold and winnow>kelse then
maxsys="Windows NT"
elseif kelse>winold and kelse>winnow then
maxsys="其它"
end if
end if
end if
if errmsg<>empty then
response.write "<Script LANGUAGE=""javascript"">alert("""&errmsg&""");window.open(""registor.asp"",""_self"")</script>"
end if
%>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="640" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td bgcolor="#FFFFFF">
<table width="640" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<!--#include file=title.htm-->
</td>
</tr>
<tr>
<td>
<table width="624" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30"><img src="images/little.gif" width="1" height="1"></td>
</tr>
<tr>
<td>
<table width="624" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#3366cc">
<tr bgcolor="#FFFFFF" align="center" valign="bottom">
<td class="navigation" height="18" width="69" bgcolor="#3366cc"><font color="#FFFFFF" class="titlefont">综合统计</font></td>
<td width="69" class="navigation" height="18"><a href="hour.asp?" class="titlefont">时统计</a></td>
<td width="69" class="navigation" height="18"><a href="day.asp" class="titlefont">日统计</a></td>
<td width="69" class="navigation" height="18"><a href="week.asp" class="titlefont">周统计</a></td>
<td width="69" class="navigation" height="18"><a href="monther.asp" class="titlefont">月统计</a></td>
<td width="69" class="navigation" height="18"><a href="area.asp" class="titlefont">地区</a></td>
<td width="69" class="navigation" height="18"><a href="exprace.asp" class="titlefont">浏览器</a></td>
<td width="69" class="navigation" height="18"><a href="economy.asp" class="titlefont">操作系统</a></td>
<td width="69" class="navigation" height="18" bgcolor="#FFFFFF"><a href="registor.asp" class="titlefont">注册</a></td>
</tr>
<tr bgcolor="#3366cc" align="center" valign="bottom">
<td class="navigation" height="2" colspan="9"><img src="images/little.gif" width="1" height="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="18"><img src="images/little.gif" width="1" height="1"></td>
</tr>
<tr>
<td valign="top">
<table width="624" border="0" cellspacing="1" cellpadding="0" bgcolor="#3366cc">
<tr>
<td bgcolor="#FFFFFF" valign="top">
<table width="624" border="0" cellspacing="0" cellpadding="0">
<tr align="center" bgcolor="#3366cc">
<td colspan="2" height="20"><font color="#FFFFFF" style="letter-spacing:14pt;font-size:14px">网站流量统计基本信息</font></td>
</tr>
<tr>
<td colspan="2" height="2" bgcolor="#000000"><img src="images/little.gif" width="1" height="1"></td>
</tr>
<tr>
<td width="120" height="20" bgcolor="#E7E7E7"> <font color="#000000">总访量</font></td>
<td height="20" bgcolor="#E7E7E7"><%=countnumer%></td>
</tr>
<tr>
<td height="20"> 日均访问量</td>
<td height="20"><%=dayaverage%></td>
</tr>
<tr>
<td height="20" bgcolor="#E7E7E7"> 最高日访问量</td>
<td height="20" bgcolor="#E7E7E7"><%=daycountmax%></td>
</tr>
<tr>
<td height="20"> 最高日访问日期</td>
<td height="20"><%if daycountmax="暂无" then%>暂无<%else%><%=daycountdate%><%end if%></td>
</tr>
<tr>
<td height="20" bgcolor="#E7E7E7"> 最高周访问量</td>
<td height="20" bgcolor="#E7E7E7"><%=weekcountmax%></td>
</tr>
<tr>
<td height="20"> 最高周访问日期</td>
<td height="20"><%if weekcountmax="暂无" then%>暂无<%else%><%=weekcountdatey&"年第"&weekcountdatew&"周"%><%end if%></td>
</tr>
<tr>
<td height="20" bgcolor="#E7E7E7"> 最高月访问量</td>
<td height="20" bgcolor="#E7E7E7"><%=monthcountmax%></td>
</tr>
<tr>
<td height="20"> 最高月访问日期</td>
<td><%if monthcountmax="暂无" then%>暂无<%else%><%=monthcounty&"年"&monthcountm&"月"%><%end if%></td>
</tr>
<tr>
<td height="20" bgcolor="#E7E7E7"> 当前访问量</td>
<td bgcolor="#E7E7E7"><%=overcounttime%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"> 访问量最多的地区</td>
<td> </td>
</tr>
<tr bgcolor="#E7E7E7">
<td height="20"> 常用浏览器</td>
<td><%=maxie%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"> 常用操作系统</td>
<td><%=maxsys%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20"> </td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><!--#include file=copyright.htm--></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -