📄 index.asp
字号:
vCount=vRs("vCount")
vRs.Close
'统计今日访问量和计算今日访问量预测
vCha = Now()-Date()
vSql = "select cTDC from cD where cDay ="&day(date())
Set vRs = GetRs(vSql)
vToday = vRs("cTDC")
vYToday = Round(vToday/vCha *(1-vCha) + vToday)
vRs.close
'统计天数和平均日访问量
vCDate = date()-cDate(WebCountTime)
if vCDate=0 then
vAveCount = 0
else
vAveCount = Round((vCount-vToday)/vCDate)
End IF
'年访问量和月访问量
vSql = "select cTMC from cM where cMonth="&Month(Now())&""
Set vRs = GetRs(vSql)
vMCount = vRs("cTMC")
vRs.close
vsql = "select refurbish from flux where id=1"
set vRs = GetRs(vsql)
vref = vRs("refurbish")
vRs.close
if vflux > 1024 then
vflux = cStr(FormatNumber(vflux / 1024,0,-1,-1)) & " K"
else
vflux = cStr(vflux) & " 字节"
end if
str = "<table width=100% border=0 cellpadding=2><tr><td>网站名称：</td><td>"&WebName&"</td><td>网站地址：</td><td><a href="&WebUrl&" target=_blank>"&WebUrl&"</a></td></tr><tr><td>网站管理员：</td><td>"&WebMaster&"</td><td>网站信箱：</td><td><a href='mailto:"&WebEmail&"'>"&WebEmail&"</a></td></tr><tr><td width=14% height=22 valign=top>网站介绍：</td><td colspan=3>"&WebExp&"</td></tr><tr><td colspan=4><hr size=1 noshade></td></tr><tr><td>总访问人数：</td><td width=41% >"&vCount&"</td><td width=14% >开始统计日期：</td><td width=31% >"&WebCountTime&"</td></tr><tr><td>今日访问量：</td><td>"&vToday&"</td><td>本月访问量：</td><td>"&vMCount&"</td></tr><tr><td>统计天数：</td><td>"&vCDate&"</td><td>平均日访问量：</td><td>"&vAveCount&"</td></tr><td>整站页面刷新：</td><td>"&vref&"</td><td>预计本日访问量：</td><td>"&vYToday&"</td></tr></table><br>"
Call DrawTable("网站统计简要信息",str)
%>
</p>
<p>
<%
End Sub
Dim aHour
Dim MaxHour
Dim sImage
Dim SAimage
Sub Sb_Hour()
'取的当前小时数
vHour = hour(now())
'循环取最近24小时的访问人数
Conn.execute "update cH set cTHC=0,HMD=now() where DATEDIFF('h',HMD,Now()) > 23 "
MaxHour = 0
vSql = "select cH.cHour,cH.cTHC,MaxNum.MaxCount from cH,(select Max(cTHC) as MaxCount from cH) as MaxNum order by cH.cHour asc"
Set vRs = GetRs (vSql)
Dim aHour(23)
for i=0 to ubound(aHour)
aHour(i) = vRs("cTHC")
MaxHour = vRs("MaxCount")
vRs.MoveNext
next
'算出图例最大值的比例
if MaxHour = 0 then MaxHour = 1
vPoint = 100/MaxHour
k=0
avgcount=0
sImage = "<table border=0 cellpadding=2><tr><td align=center>最近24小时统计图表</td></tr><tr><td align=center><table align=center><tr valign=bottom ><td valign=top><table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" height=""100""><tr><td height=""25"" valign=top nowrap>"&MaxHour&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxHour*0.75&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxHour*0.5&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxHour*0.25&"</td></tr></table></td>"
for vPH = vHour+1 to 23
k = k+1
sHeight = aHour(vPH)*vPoint
avgcount = avgcount + aHour(vPH)
avgheight = (avgcount/k)*vPoint
sImage = sImage & "<td align=center width=15 background=images/tu_back.gif height=120 nowrap><img src=images/bar.gif width=15 height="&sheight&" id=htav avgheight="&avgheight&" title=访问量："&aHour(vPH)&"><br>"&vPH&"</td>"
next
for vBH = 0 to vHour
k = k+1
sHeight = aHour(vBH)*vPoint
avgcount = avgcount + aHour(vBH)
avgheight = (avgcount/k)*vPoint
sImage = sImage & "<td align=center width=15 background=images/tu_back.gif height=120 nowrap><img src=images/bar.gif width=15 height="&sheight&" id=htav avgheight="&avgheight&" title=访问量："&aHour(vBH)&"><br>"&vBH&"</td>"
next
sImage = sImage & "<td>单位（点）</td></tr></table></td></tr></table>"
'取出所有24小四的统计图表
vSql = "select cH.cHour,cH.cCHC,MaxNum.MaxCount from cH,(select Max(cCHC) as MaxCount from cH) as MaxNum order by cH.cHour asc"
Set vRs = GetRs(vSql)
MaxHour = 0
for i=0 to ubound(aHour)
aHour(i) = vRs("cCHC")
MaxHour = vRs("MaxCount")
vRs.MoveNext
next
'算出图例最大值的比例
if MaxHour = 0 then MaxHour = 1
vPoint = 100/MaxHour
sImage = sImage & "<table border=0 cellpadding=2><tr><td align=center>访问量24小时分配图表</td></tr><tr><td align=center><table align=center><tr valign=bottom ><td valign=top><table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" height=""100""><tr><td height=""25"" valign=top nowrap>"&MaxHour&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxHour*0.75&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxHour*0.5&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxHour*0.25&"</td></tr></table></td>"
for vL = 0 to 23
sHeight = aHour(vL)*vPoint
sImage = sImage & "<td align=center width=15 background=images/tu_back.gif height=120 nowrap><img src=images/bar.gif width=15 height="&sheight&" title=访问量："&aHour(vL)&"><br>"&vL&"</td>"
next
sImage = sImage & "<td>单位（点）</td></tr></table></td></tr></table>"
Erase aHour '释放掉数组
Call DrawTable("24小时统计信息",sImage)
%>
</p>
<SCRIPT FOR=window EVENT=onload LANGUAGE="JScript">
drawavg();
</SCRIPT>
<p>
<%
End Sub
Dim sADImage,sDImage
Sub Sb_day()
vDay = day(now())
'循环取最近24小时的访问人数
MaxCDay = 0
MaxDay = Fn_MaxDay(Month(DateAdd("m",-1,now())))
Conn.execute "update cD set cTDC=0,DMD=now() where DATEDIFF('d',DMD,Now()) > "&MaxDay
Dim aDay(31)
vSql = "select cD.cDay,cD.cTDC,MaxNum.MaxCount from cD,(select Max(cTDC) as MaxCount from cD) as MaxNum order by cD.cDay asc"
Set vRs = GetRs(vSql)
for i=1 to Ubound(aDay)
aDay(i) = vRs("cTDC")
MaxCDay = vRs("MaxCount")
vRs.MoveNext
if vRs.eof then exit for
next
'算出图例最大值的比例
if MaxCDay = 0 then MaxCDay = 1
vPoint = 100/MaxCDay
k=0
avgcount=0
sDImage = "<table border=0 cellpadding=2><tr><td align=center>最近30天统计图表</td></tr><tr><td align=center><table align=center><tr valign=bottom ><td valign=top><table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" height=""100""><tr><td height=""25"" valign=top nowrap>"&MaxCDay&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxCDay*0.75&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxCDay*0.5&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxCDay*0.25&"</td></tr></table></td>"
for vL = vDay+1 to MaxDay
k=k+1
sHeight = aDay(vL)*vPoint
avgcount = avgcount + aDay(vL)
avgheight = (avgcount/k)*vPoint
sDImage = sDImage & "<td align=center width=15 background=images/tu_back.gif height=120 nowrap><img src=images/bar.gif width=15 height="&sheight&" id=htav avgheight="&avgheight&" title=访问量："&aDay(vL)&"><br>"&vL&"</td>"
next
for vL = 1 to vDay
k=k+1
sHeight = aDay(vL)*vPoint
avgcount = avgcount + aDay(vL)
avgheight = (avgcount/k)*vPoint
sDImage = sDImage & "<td align=center width=15 background=images/tu_back.gif height=120 nowrap><img src=images/bar.gif width=15 height="&sheight&" id=htav avgheight="&avgheight&" title=访问量："&aDay(vL)&"><br>"&vL&"</td>"
next
sDImage = sDImage & "</tr></table></td></tr></table>"
'取出所有24小四的统计图表
MaxDay = Fn_MaxDay(Month(Now()))-1
MaxCDay = 0
vSql = "select cD.cDay,cD.cCDC,MaxNum.MaxCount from cD,(select Max(cCDC) as MaxCount from cD) as MaxNum order by cD.cDay asc"
Set vRs = GetRs(vSql)
for i=1 to Ubound(aDay)
aDay(i) = vRs("cCDC")
MaxCDay = vRs("MaxCount")
vRs.MoveNext
if vRs.eof then exit for
next
vRs.close
'算出图例最大值的比例
if MaxCDay = 0 then MaxCDay = 1
vPoint = 100/MaxCDay
sDImage = sDImage & "<table border=0 cellpadding=2><tr><td align=center>访问量各天分配图表</td></tr><tr><td align=center><table align=center><tr valign=bottom ><td valign=top><table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" height=""100""><tr><td height=""25"" valign=top nowrap>"&MaxCDay&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxCDay*0.75&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxCDay*0.5&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxCDay*0.25&"</td></tr></table></td>"
for vL = 1 to 31
sHeight = aDay(vL)*vPoint
sDImage = sDImage & "<td align=center width=15 background=images/tu_back.gif height=120 nowrap><img src=images/bar.gif width=15 height="&sheight&" title=访问量："&aDay(vL)&"><br>"&vL&"</td>"
next
sDImage = sDImage & "</tr></table></td></tr></table>"
Erase aDay
Call DrawTable("按日统计信息",sDimage)
%>
</p>
<SCRIPT FOR=window EVENT=onload LANGUAGE="JScript">
drawavg();
</SCRIPT>
<p>
<%
End Sub
Dim sMImage,sAMImage
Sub Sb_Month()
'取的当前小时数
vMonth = Month(now())
Conn.execute "update cM set cTMC=0,MMD=now() where DATEDIFF('m',MMD,Now()) > 11 "
Dim aMonth(12)
MaxMonth = 0
'循环取最近24小时的访问人数
vSql = "select cM.cMonth,cM.cTMC,MaxNum.MaxCount from cM,(select Max(cTMC) as MaxCount from cM) as MaxNum order by cM.cMonth asc"
Set vRs = GetRs(vSql)
for vS=1 to 12
aMonth(vS) = vRs("cTMC")
MaxMonth = vRs("MaxCount")
vRs.MoveNext
next
vRs.close
'算出图例最大值的比例
if MaxMonth = 0 then MaxMonth = 1
vPoint = 100/MaxMonth
sMImage = "<table border=0 cellpadding=2><tr><td align=center>最近12个月统计图表</td></tr><tr><td align=center><table align=center><tr valign=bottom ><td valign=top><table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" height=""100""><tr><td height=""25"" valign=top nowrap>"&MaxMonth&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxMonth*0.75&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxMonth*0.5&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxMonth*0.25&"</td></tr></table></td>"
for vL = vMonth+1 to 12
sHeight = aMonth(vL)*vPoint
sMImage = sMImage & "<td align=center width=15 background=images/tu_back.gif height=120><img src=images/bar.gif width=15 height="&sheight&" title=访问量："&aMonth(vL)&"><br>"&vL&"</td>"
next
for vL = 1 to vMonth
sHeight = aMonth(vL)*vPoint
sMImage = sMImage & "<td align=center width=15 background=images/tu_back.gif height=120><img src=images/bar.gif width=15 height="&sheight&" title=访问量："&aMonth(vL)&"><br>"&vL&"</td>"
next
sMImage = sMImage & "<td>单位（月）</td></tr></table></td></tr></table>"
'取出所有24小四的统计图表
sMonth = ""
MaxMonth = 0
vSql = "select cM.cMonth,cM.cCMC,MaxNum.MaxCount from cM,(select Max(cCMC) as MaxCount from cM) as MaxNum order by cM.cMonth asc"
Set vRs = GetRs(vSql)
for vS=1 to Ubound(aMonth)
aMonth(vS) = vRs("cCMC")
MaxMonth = vRs("MaxCount")
vRs.MoveNext
next
vRs.close
'算出图例最大值的比例
if MaxMonth = 0 then MaxMonth = 1
vPoint = 100/MaxMonth
sMImage = sMImage & "<table border=0 cellpadding=2><tr><td align=center>访问量12个月分配图表</td></tr><tr><td align=center><table align=center><tr valign=bottom ><td valign=top><table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" height=""100""><tr><td height=""25"" valign=top nowrap>"&MaxMonth&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxMonth*0.75&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxMonth*0.5&"</td></tr><tr><td height=""25"" valign=top nowrap>"&MaxMonth*0.25&"</td></tr></table></td>"
for vL = 1 to 12
sHeight = aMonth(vL)*vPoint
sMImage = sMImage & "<td align=center width=15 background=images/tu_back.gif height=120><img src=images/bar.gif width=15 height="&sheight&" title=访问量："&aMonth(vL)&"><br>"&vL&"</td>"
next
sMImage = sMImage & "<td>单位（月）</td></tr></table></td></tr></table>"
'年份～
Call DrawTable("按月统计信息",sMimage)
%>
</p>
<p>
<%
End Sub
Dim sOsImage,sExpImage,sScrImage
Sub Sb_OSExp()
MaxValue = 0
'系统
oSql = "select cO.cOS,cO.cCOC,MaxNum.MaxCount from cO,(select Max(cCOC) as MaxCount from cO) as MaxNum order by cO.cCOC desc"
Set oRs = GetRs(oSql)
dim aOS(9,1)
for i=0 to 9
aOS(i,0) = oRs("cOS")
aOS(i,1) = oRs("cCOC")
MaxValue = oRs("MaxCount")
oRs.MoveNext
next
oRs.close
if MaxValue = 0 then MaxValue = 1
vPoint = 150/MaxValue
sImage = "<table border=0 cellpadding=2><tr><td width=50% align=center>系统统计图表</td><td width=50% align=center>浏览器统计图表</td></tr><tr valign=top><td height=22 align=center><table align=center>"
for vL = 0 to 9
sHeight = aOs(vL,1)*vPoint
sImage = sImage & "<tr valign=cente><td align=right nowap>"&aOs(vL,0)&"</td><td align=left background=images/tu_back_2.gif valign=middle width=150><img src=images/bar2.gif width="&sheight&" height=15 title=访问量："&aOs(vL,1)&"></td><td nowap>"&aOs(vL,1)&"</td></tr>"
next
sImage = sImage & "</table></td><td align=center>"
'浏览器
oSql = "select cE.cExplorer,cE.cCEC,MaxNum.MaxCount from cE,(select Max(cCEC) as MaxCount from cE) as MaxNum order by cE.cCEC desc"
Set oRs = GetRs(oSql)
''
dim aExp(6,1)
for i=0 to 6
aExp(i,0) = oRs("cExplorer")
aExp(i,1) = oRs("cCEC")
MaxValue = oRs("MaxCount")
oRs.Movenext
next
if MaxValue = 0 then MaxValue = 1
vPoint = 150/MaxValue
sImage = sImage & "<table align=center>"
for vL = 0 to 6
sHeight = aExp(vL,1)*vPoint
sImage = sImage & "<tr valign=bottom ><td align=right nowap>"&aExp(vL,0)&"</td><td align=left background=images/tu_back_2.gif valign=middle width=150><img src=images/bar2.gif width="&sheight&" height=15 title=访问量："&aExp(vL,1)&"></td><td nowap>"&aExp(vL,1)&"</td></tr>"
next
sImage = sImage & "</table></td></tr></table>"
call DrawTable("按操作系统和浏览器统计",sImage)
%>
</p>
<p>
<%
End Sub
Dim sWhereImage
Sub Sb_Where()
MaxValue = 0
oSql = "select cW.cWhere,cW.cCWC,MaxNum.MaxCount from cW,(select Max(cCWC) as MaxCount from cW) as MaxNum order by cW.cCWC desc"
vI = cLng(request("AbsolutePage"))
if vI <= 0 then vI=1
Set oRs = GetRs(oSql)
if not oRs.eof then
oRs.Pagesize = 20
Dim aWhere(19,1)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -