有的朋友想在統(tǒng)計(jì)中加上昨日訪問量的輸出統(tǒng)計(jì),可以用以下方法(2005版本的ACC和SQL統(tǒng)計(jì)均適合):
請?jiān)贑ount/Counter.asp中加上如下代碼(紅色所示):

If FoundInArr(RegCount_Fill, "IsCountOnline", ",") = True Then
If OnlineTime="" Or isnumeric(OnlineTime)=0 Then OnlineTime=100
OnNowTime = dateadd("s",-OnlineTime,now())
dim rsOnline
if CountDatabaseType="SQL" then
set rsonline = conn_counter.execute("select count(UserIP) from PE_Statonline where LastTime>'"&OnNowTime&"'")
else
set rsonline = conn_counter.execute("select count(UserIP) from PE_Statonline where LastTime>#"&OnNowTime&"#")
end if
OnlineNum = rsonline(0) ' 當(dāng)前在線人數(shù)
Set rsonline=Nothing
if CountDatabaseType="SQL" then
Set rsonline = conn_counter.execute("select LastTime,OnTime from PE_Statonline where LastTime>'"&OnNowTime&"' and UserIP='"&IP&"'")
else
Set rsonline = conn_counter.execute("select LastTime,OnTime from PE_Statonline where LastTime>#"&OnNowTime&"# and UserIP='"&IP&"'")
end if
If rsOnline.eof then
Update()
Else
if rsonline(0)=rsonline(1) Then
Update()
else
conn_counter.Execute("Update PE_StatInfoList set TotalView=TotalView 1")
end if
End If
Set rsonline=Nothing
Else
if instr(Application(LastIPCache),"#" & IP & "#") then ' 假如IP已經(jīng)存在于保存的列表中，是刷新
conn_counter.Execute("Update PE_StatInfoList set TotalView=TotalView 1")
Else
Application.Lock
Application(LastIPCache)=SaveIP(Application(LastIPCache)) ' 更新最近需要防刷的IP
Application.UnLock
Update()
End If
End If

'--------輸出昨日訪問量代碼開始
Dim nYesterDayNum,CacheData

If CacheIsEmpty("nYesterDayVisitorNum") Then
dim YesterdayStrLong
YesterdayStrLong=year(dateadd("d","-1",date()))&"-"&month(dateadd("d","-1",date()))&"-"&day(dateadd("d","-1",date()))
set rs=server.createobject("adodb.recordset")
If CountDatabaseType="SQL" Then
sql="SELECT * FROM PE_StatDay WHERE TDay='"&YesterdayStrLong&"'"
Else
sql="SELECT * FROM PE_StatDay WHERE TDay=#"&YesterdayStrLong&"#"
End If
rs.Open sql,conn_counter,1,1
If Not rs.BOF or Not rs.EOF then
for i=0 to 23
nYesterDayNum=nYesterDayNum rs(CStr(i))
next
else
nYesterDayNum=0
end if
CacheData = Application("nYesterDayVisitorNum")
If IsArray(CacheData) Then
CacheData(0) = nYesterDayNum
CacheData(1) = Now()
Else
ReDim CacheData(2)
CacheData(0) = nYesterDayNum
CacheData(1) = Now()
End If
Application.Lock
Application("nYesterDayVisitorNum") = CacheData
Application.UnLock
Else
CacheData = Application("nYesterDayVisitorNum")
If IsArray(CacheData) Then
nYesterDayNum = CacheData(0)
Else
nYesterDayNum = 0
End If
End If

Function CacheIsEmpty(MyCacheName)

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