|
 ∷∷∷ 最近31天访问量 ∷∷∷
|
<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(connpath)
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'找到开始统计天数，如果天数不足31天，则跳过前面的空间
tmprs=conn.execute("Select top 1 vtime from view order by id")
vfirst=tmprs("vtime")
set tmprs=nothing
if isnull(vfirst) then vfirst=now()
vdays=int(date()-vfirst+1)
'声明二维数组，voutday(*,0)为访问量,voutday(*,1)为日期,voutday(*,2)为星期
dim vday(31,3),voutday(31,3)
maxday=0
sumday=0
for i=0 to 30
vday(i,0)=vdaycon(date()-30+i)
if vday(i,0)>maxday then maxday=vday(i,0)
sumday=sumday+vday(i,0)
vday(i,1)=day(date()-30+i)
vday(i,2)=weekday(date()-30+i)
next
'防止除数为0而出错
if maxday=0 then maxday=1
if sumday=0 then sumday=1
'根据已统计天数将数值左移
if vdays>=31 then
for i=0 to 30
voutday(i,0)=vday(i,0)
voutday(i,1)=vday(i,1)
voutday(i,2)=vday(i,2)
next
else
on error resume next
for i=0 to 30
if i<=vdays then
voutday(i,0)=vday(i+30-vdays,0)
voutday(i,1)=vday(i+30-vdays,1)
voutday(i,2)=vday(i+30-vdays,2)
else
voutday(i,0)=0
voutday(i,1)=""
voutday(i,2)=0
end if
next
end if
%>
|
<%=int(maxday*10+0.5)/10%>
<%=int(3*maxday*10/4+0.5)/10%>
<%=int(maxday*10/2+0.5)/10%>
<%=int(maxday*10/4+0.5)/10%>
|
 |
<%
'
for i= 0 to 30
%>
 %"> |
<%
next
%>
 |
|
|
0 |
|
<%
for i= 0 to 30
%>
%"><%
'根据当天的日期用不同的颜色区分日期，周六用绿色，周日用红色
select case voutday(i,2)
case 1%>
<%case 7%>
<%case else%>
<%end select%>
<%=voutday(i,1)%> |
<%
next
%>
|
|
|
|
|
