ÈçºÎÇáËÉ´òÔìASP¼ÆÊýÆ÷

ÒÔϽéÉÜÓÃÊý¾Ý¿âʵÏÖ¼òµ¥¼ÆÊýÆ÷
'ÏÂÃæ´æΪ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)
%£¾
£¼%
'¸üÐÂÿÖÜÿÈÕÊý¾Ý
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%"£¾½ñÈÕ·ÃÎÊ£¼%=rs("dayhit")%£¾´Î,±¾ÖÜ·ÃÎÊ£¼%=rs("weekhit")%£¾´Î,×Ü·ÃÎÊ£¼%=rs("hit")%£¾´Î£¼/td£¾£¼/tr£¾');
£¼%rs.close
set rs=nothing%£¾
'Óã¼script language="javascript1.1" src="count.ASP"£¾£¼/script£¾ÔÚҪͳ¼ÆµÄÒ³Ãæµ÷Óü´¿É.
½¨Á¢Êý¾Ý¿â:½¨Ò»¸öcountµÄMDB¿â,ÔÙ½¨Ò»¸ö±ícount,±íÖÐ×Ö¶ÎΪ
hit Êý×ÖÐÍ
dayhit Êý×ÖÐÍ
weekhit Êý×ÖÐÍ
lasthit ÈÕÆÚÐÍ
±¾ÎÄÀ´×ÔCSDN²©¿Í£¬×ªÔØÇë±êÃ÷³ö´¦£ºhttp://blog.csdn.net/okfei/archive/2009/01/11/3748317.aspx