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模板