<% '############################################################# '# E002 单用户统计系统 V1.0 '# '# 版权所有: E002.Com '# '# 制作人 : E002 (Shenxin) '# '# 主页地址: http://www.E002.Com '# '############################################################# %> <% '------删除--- sql11="select count(fid) as alldayweek from fcount" set rs11=conn.execute(sql11) maxalldayweek=rs11("alldayweek") if maxalldayweek>tmax then sql="delete fid from fcount" conn.execute(sql) end if set rs11=nothing fyear=year(now)'判断当前年份 fmonth=month(now)'判断当前月份 fday=day(now)'判断当前日期 fweek=weekday(now)'判断当前星期 fweeknum=Datepart("ww",now())'判断当前周数 sql="select * from vcount" set rs=conn.execute(sql) vyear=rs("vnowyear")'今年访问量 vmonth=rs("vnowmonth")'今月访问量 vpremonth=rs("vpremonth")'上个月访问量 vweek=rs("vweek")'今周访问量 vtoday=rs("vtoday")'今日访问量 vyestaday=rs("vyestaday")'昨日访问量 vtotal=rs("vtotal")'总访问量 vtotal1=rs("vtotal1")'ip总访问量 vstarttime=rs("vstarttime")'开始统计时间 set rs=nothing vdatecount=round((now()-vstarttime),2)'统计天数 if vdatecount=0 then vdatecount=1 vavercount=round((vtotal/vdatecount),2)'平均访问量 vdaylong=now()-date() vguesstoday=int(((vtoday/vdaylong)+vyesterday)/2+0.5) if vguesstoday< vtoday then vguesstoday=int((vtoday/vdaylong)+0.5)'预计今日访问量 '--------统计在线人数-------- set rs2 = server.createobject("adodb.recordset") sql2="select distinct fip from fcount where ftime >= dateadd('n',-"&onlinetime&",now()) order by fip" rs2.Open sql2,conn,1,1 fonline=rs2.RecordCount rs2.Close '--------结束统计-------- %>
cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center >
class=tdc1 height="23"> 总体数据
width="20%">总访问量: height="22" width="22%"><%=vtotal%> height="22" width="20%" align="left">站点名称: height="22"><%=hometitle%>
width="20%">今年访问量: height="22" width="22%"><%=vyear%> height="22" width="20%" align="left"> 站点地址: height="22"><%=homeurl%>
width="20%">今月访问量: height="22" width="22%"><%=vmonth%> height="22" width="20%" align="left"> 站长名称: height="22"><%=homebanzhu%>
width="20%">上月访问量: height="22" width="22%"><%=vpremonth%> height="22" width="20%" align="left"> 站长信箱: height="22"><%=homeemail%>
width="20%">今周访问量: height="22" width="22%"><%=vweek%> height="22" width="20%" align="left"> 站点简介: height="110" rowspan="5" valign="top"><%=homecontent%>
width="20%">今日访问量: height="22" width="22%"><%=vtoday%> height="22" width="20%">
width="20%">昨日访问量: height="22" width="22%"><%=vyestaday%> height="22" width="20%">
width="20%">当前在线人数: height="22" width="22%"><%=fonline%> height="22" width="20%">
width="20%">用本系统前: height="22" width="22%"><%=startcount%> height="22" width="20%">
width="20%">用本系统后: height="22" width="22%"><%=vtotal%> height="22" width="20%"> IP总访问量: height="22"><%=vtotal1%>
width="20%">开始统计时间: height="22" width="22%"><%=vstarttime%> height="22" width="20%">你的访问量: height="22"><%=request.Cookies(homeurl)("feiyue")%>
width="20%">总共统计天数 height="22" width="22%"><%=vdatecount%> height="22" width="20%">平均日访量: height="22"><%=vavercount%>
width="20%">预计今日访问量 height="22" width="22%"><%=vguesstoday%> height="22" width="20%"> height="22">