你去搜索一下 asp计数器 下载下回去研究研究么一般就是 每次页面被访问 就 给数据库里的流量字段 + 1 (update)
解决方案 »
- 网页前台设计人员,应该会哪些技能?
- aspx中iframe怎么写一个上下两层的框架其中下层又分为左右两层。
- 程序中操作Excel的一个小问题
- 求DIV模拟的dropDownList,能填充数据,能在DIV中选择行到TextBox中。
- 这是咋回事儿?
- 急!!~50分以上求本书...[望大家帮忙--回复有分]
- 怎么给别人加分呀
- 怎样实现控件显示一段时间后自动隐藏???
- 不一般的问题,请大伙帮忙,thx!
- 文件操作问题
- 请问Windows2003+vs2003 在ASP.NET程序调试中出现没有调试权限?
- 思归,孟子请进,Web Web 服务器报告了以下错误http://1.1 500 internal Server Error
2、另外一个页面显示统计信息
www.ajiang.net
大的用网上免费的,比如:
http://www.5987.com
[email protected]
<%
Set conn=Server.CreateObject("ADODB.Connection")
db=Server.MapPath("count.mdb")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&db
'若是新版本的引擎用:
'connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db
conn.Open connstr
%>
<%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 日期型
script调用asp文件,对么?
-------
up
谢谢