如何轻松打造ASP计数器
来源:互联网 发布:阿里云数据库 vb 编辑:程序博客网 时间:2024/04/29 06:34
以下介绍用数据库实现简单计数器
'下面存为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 日期型
- 如何轻松打造ASP计数器
- 如何轻松打造ASP计数器
- 如何轻松打造ASP计数器
- 如何轻松打造沉浸式状态栏
- asp中如何实现网页计数器
- 用asp.net轻松打造功能完备的分页技术!!!!
- 用asp.net轻松打造功能完备的分页技术!!!!
- 用asp.net轻松打造功能完备的分页技术!!
- 用asp.net轻松打造功能完备的分页技术!!!!
- ASP计数器
- 打造计数器DIY三步曲(下)
- 打造计数器DIY三步曲(上)
- 用asp.net轻松打造功能完备的分页技术!!!! (转)
- ASP计数器设计详解
- ASP计数器设计详解
- 简单ASP计数器
- ASP计数器设计详解
- ASP与网站计数器
- 新年新起点
- 如何保障Winnt +asp +sql web站点的安全经验
- 用ASP编程实现网络内容快速查找
- ASP中实现分页显示的七种武器
- Asp及Web开发中的常见问题
- 如何轻松打造ASP计数器
- ASP中几种分页显示的比较
- 遭遇ASP类的事件设计
- 关闭公告
- ASP基础语法
- OpenSSl 的一些介绍
- 微软的梦工场:做未来的产品
- 挑战计算机四级等考
- 股票涨跌原理之图解