网站首页 > 书籍教程 > ASP教程 > 轻松打造ASP计数器

轻松打造ASP计数器

作者：互联网
时间：2009-06-23 16:43:18

以下介绍用数据库实现简单计数器
'下面存为co***.asp
<%
Set co***Server.CreateObject("AD***.Connection")
co***Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Se***r.MapPath("co***.mdb")
%>
<%on error resume next%>
<%sql="update count set hit=hit+1%><%c***.Execute(sql)%>
<%sql = "select * from count
set rs***nn.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")
co***Execute(sql)
' re***nse.write "success"
else
sql="update site set dayhit=1 where id="&request("id")
co***Execute(sql)
' re***nse.write "error"
end if
sql="update site set lasthit='"&tdate&"' where ID="&request("id")
co***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)=sql="update site set weekhit=weekhit+1 where id="&request("id")
co***Execute(sql)
else
sql="update site set weekhit=1 where id="&request("id")
co***Execute(sql)
end if
%>
do***ent.write('今日访问<%=rs("dayhit")%>次,本周访问<%=rs("weekhit")%>次,总访问<%=rs("hit")%>次');
<%r***lose
set rs=nothing%>

'用在要统计的页面调用即可.

建立数据库:建一个count的MDB库,再建一个表count,表中字段为
hit 数字型
dayhit 数字型
weekhit 数字型
lasthit 日期型

上一篇：用纯ASP代码实现图片上传

下一篇：用文件写入建立简单的网上调查

轻松打造ASP计数器

相关阅读

最新文章

人气下载推荐

相关应用

热门文章

推荐游戏