繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 轻松打造ASP计数器
- ASP
- 迁移到 ASP .NET：需考虑的重要问题(2)
- ASP中优化数据库处理
- 结合XML, ADO, 以及ASP
- 在ASP中优化数据库处理
- 提高ASP性能的最佳选择（一）
- 返回UPDATE SQL语句所影响的行数的方法
- ASP如何使用MYSQL数据库
- 安全维护 IIS asp 站点的高级技巧
- 也谈ASP中的RESPONSE属性
- ASP提速技巧
- 在ASP中如何访问Novell下的数据库
- 改善ASP性能和外观的技巧集锦（上）
- 改善ASP性能和外观的技巧集锦（中）
- 改善ASP性能和外观的技巧集锦（下）
- 利用ASP在浏览器上打印输出
- 用ASP文件实现CPU的使用率始终保持100％
- ASP 0115 Error的解决方案
- Varchar与char的区别
- 探讨一下rs(0)和rs(fieldname)的执行效率
- 连接WEB数据库的ADO性能提高技巧
轻松打造ASP计数器
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 88 ::
收藏到网摘: n/a
'下面存为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 日期型
评论 (0) All
