如何在统计中加上昨日访问量的输出统计?(2)_动易Cms教程

CacheIsEmpty = True
CacheData = Application(MyCacheName)
If Not IsArray(CacheData) Then Exit Function
If Not IsDate(CacheData(1)) Then Exit Function
If DateDiff("s", CDate(CacheData(1)), Now()) < 8640 Then
CacheIsEmpty = False
End If
End Function
'--------输出昨日访问量代码完毕

Call CloseConn_counter()

style=lcase(trim(Request("style")))
select case style
case "simple"
ShowInfo="总访问量：" & AllNum & "人次
"
If FoundInArr(RegCount_Fill, "IsCountOnline", ",") = True Then
ShowInfo=ShowInfo&"当前在线：" & OnlineNum & "人"
End If
case "all"
ShowInfo=ShowInfo&"总访问量：" & AllNum & "人次
"
ShowInfo=ShowInfo&"总浏览量：" & TotalView & "人次
"
' ShowInfo=ShowInfo&"统计天数：" & StatDayNum & "天
"
ShowInfo=ShowInfo&"昨日访问：" & nYesterDayNum & "人
"
ShowInfo=ShowInfo&"今日访问：" & DayNum & "人次
"
ShowInfo=ShowInfo&"日均访问：" & AveDayNum & "人次
"
If FoundInArr(RegCount_Fill, "IsCountOnline", ",") = True Then
ShowInfo=ShowInfo&"当前在线：" & OnlineNum & "人"
End If

case "common"
ShowInfo="总访问量：" & AllNum & "人次
"
ShowInfo=ShowInfo&"总浏览量：" & TotalView & "人次
"
If FoundInArr(RegCount_Fill, "IsCountOnline", ",") = True Then
ShowInfo=ShowInfo&"当前在线：" & OnlineNum & "人"
End If
end select
if style<>"none" then
Response.Write "document.write(" & chr(34) & ShowInfo & chr(34) & ")"
end if

查看更多 动易Cms教程  动易Cms模板