如何轻松打造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 日期型

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有