凡人網(wǎng)絡(luò)購(gòu)物系統(tǒng)-輕松打造ASP計(jì)數(shù)器

導(dǎo)航：返回上一頁(yè)

凡人網(wǎng)絡(luò)購(gòu)物系統(tǒng)-輕松打造ASP計(jì)數(shù)器

以下介紹用數(shù)據(jù)庫(kù)實(shí)現(xiàn)簡(jiǎn)單計(jì)數(shù)器

'下面存為count.asp 
<% 
Set conn=Server.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("count.mdb") 
%> 
<%on error resume next%> 
<%sql="update count set hit=hit+1%><%conn.Execute(sql)%> 
<%sql = "select * from count 
set rs=conn.execute(sql) 
%> 
<% 
'更新每周每日數(shù)據(jù) 
lasthit=rs("lasthit") 
tdate=year(Now()) & "-" & month(Now()) & "-" & day(Now()) 
if trim(lasthit)=trim(tdate) then 
sql="update site set dayhit=dayhit+1 where id="&request("id") 
conn.Execute(sql) 
' response.write "success" 
else 
sql="update site set dayhit=1 where id="&request("id") 
conn.Execute(sql) 
' response.write "error" 
end if 
sql="update site set lasthit='"&tdate&"' where ID="&request("id") 
conn.Execute(sql) 

p_year=CInt(year(Now()))-CInt(year(lasthit)) 
p_month=CInt(month(Now()))-CInt(month(lasthit)) 
p_day=CInt(day(Now()))-CInt(day(lasthit)) 
period_time=((p_year*12+p_month)*30+p_day) 
if cint(period_time)=<cint(7) then 
sql="update site set weekhit=weekhit+1 where id="&request("id") 
conn.Execute(sql) 
else 
sql="update site set weekhit=1 where id="&request("id") 
conn.Execute(sql) 
end if 
%> 
document.write('<tr><td width="100%">今日訪問(wèn)<%=rs("dayhit")%>次,本周訪問(wèn)<%=rs("weekhit")%>次,總訪問(wèn)<%=rs("hit")%>次</td></tr>'); 
<%rs.close 
set rs=nothing%> 

'用<script language="JavaScript1.1" src="count.asp"></script>在要統(tǒng)計(jì)的頁(yè)面調(diào)用即可. 

建立數(shù)據(jù)庫(kù):建一個(gè)count的MDB庫(kù),再建一個(gè)表count,表中字段為 hit 數(shù)字型 dayhit 數(shù)字型 weekhit 數(shù)字型 lasthit 日期型

參考來(lái)源

• 參考來(lái)源