轻松打造ASP计数器

苏夜末萨

苏夜末萨

2016-01-29 17:48

轻松打造ASP计数器,轻松打造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="http://img.jcwcn.com/attachment/portal"</script在要统计的页面调用即可.

建立数据库:建一个count的MDB库,再建一个表count,表中字段为
hit 数字型
dayhit 数字型
weekhit 数字型
lasthit 日期型
 
展开更多 50%)
分享

猜你喜欢

轻松打造ASP计数器

ASP
轻松打造ASP计数器

4.9 如何轻松打造ASP计数器

Web开发
4.9 如何轻松打造ASP计数器

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用ASP编写计数器

ASP
用ASP编写计数器

用ASP编写图片计数器

ASP
用ASP编写图片计数器

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

ASP图形计数器设计详解

ASP
ASP图形计数器设计详解

编写“公平”的ASP图形计数器

ASP
编写“公平”的ASP图形计数器

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

用asp实现的代码批量修改程序

用asp实现的代码批量修改程序

Linux指令篇:网络通讯--cu

Linux指令篇:网络通讯--cu
下拉加载更多内容 ↓