浏览总数,今日人数,昨天人数

wanliang2001 2004-04-05 11:13:17
我在搞个网站,需要有:浏览总数,今日人数,昨天人数!怎么计算这3个数值了?谢谢高手指点,请详细点,我怕简单了我看不懂!!!!
...全文
32 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wanliang2001 2004-04-15
楼上的人,建议是把月,日,年,分开了比较,要是遇到31号,和1号的关系,怎么比哟>??>
回复
onkey1999 2004-04-07
我觉得用APPLICATION+一个包含三个字段的数据库就够了
如到了晚上十二点就把APPLICATION的值赋给数据库中记录全天总数的字段就行了
再用ASP内置的计数器对象计数总浏览总数就行了
我想应该这样就可以了,如各位有更好的思路
请指教,谢谢
回复
fenlin 2004-04-07
用一个表来记录就好了。简单明了
回复
sukey00 2004-04-07
//建一个global.asa文件

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
Session.Timeout = 20
Session("Start") = now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>

//在随便建一个文件,
<!-- #include file="global.asa" --> //包含这个文件

当前在线人数<font color="#FF3300"><%=Application("ActiveUsers")%></font>人

呵呵,不过好象要放在服务器上才能看到!本地的 好象不行哦!
回复
sukey00 2004-04-07
建一个表名为ip 字段有 (theip,count,theday,themonth,theyear,thetime,id)
建一个表名为mycount 字段有(count,id)
代码如下

<!--#include file=conn.asp-->
<% '统计访问人数!!
dim mycount
Set rs=Server.CreateObject("ADODB.Recordset")
sql= "select * from mycount where id=1"
rs.open sql,conn,1,3
rs("count")=rs("count")+1
rs.update
mycount=rs("count")
rs.close
set rs=nothing
%>
<% '纪录访问者的ip!!!
dim rs1,sql1
set rs1 = server.CreateObject("adodb.recordset")
sql1 = "select * from ip"
rs1.open sql1,conn,3,3

dim rs11,sql11,uip,uyear,umonth,uday,utime,mtime
uip = request.ServerVariables("remote_addr")
uyear = year(now())
umonth = month(now())
uday = day(now())

set rs11 = server.CreateObject("adodb.recordset")
sql11 = "select * from ip where theip='"& uip &"' and theday='"& uday &"' and themonth='"& umonth &"' and theyear='"& uyear &"'"
rs11.open sql11,conn,3,3

if not rs11.eof then
rs11("count")=rs11("count")+1
rs11.update '这里记住要update!!
else
rs1.addnew
rs1("theip")=uip
rs1("theyear")=year(now())
rs1("themonth")=month(now())
rs1("theday")=day(now())
rs1("thetime")=now()
rs1("count")=1
rs1.update
rs1.close
set rs1=nothing
end if
%>
<% '取得今天的访问人数!!!
dim rs2,sql2,todaycount
set rs2 = server.CreateObject("adodb.recordset")
sql2 = "select * from ip where theday='"&day(now())&"' and themonth='"&month(now())&"'"
rs2.open sql2,conn,3,3
do while not rs2.eof
todaycount=cint(rs2("count"))+cint(todaycount)
rs2.movenext
loop
rs2.close
set rs2=nothing
%>
<% '取得昨天的访问人数
dim rs3,sql3,sukeycount
set rs3 = server.CreateObject("adodb.recordset")
sql3 = "select * from ip where theday='"&day(now())-1&"' and themonth='"&month(now())&"'"
rs3.open sql3,conn,3,3
do while not rs3.eof
sukeycount=cint(rs3("count")) + cint(sukeycount)
rs3.movenext
loop
rs3.close
set rs3=nothing
%>

总访问量<%=mycount%>
昨天访问量<=sukeycount%>
今天访问量<=todaycount%>

呵呵代码,写的好烂,高手不要见笑 ^_^
回复
qiao198 2004-04-07
老兄建个表,获取,再进行分析不就得了
回复
wanliang2001 2004-04-07
还有个问题,怎么算在线人数呢????在线等哟!
回复
jnyezhi 2004-04-07
建一个这样的表:日期、人数
然后在页面中搜索今日的记录,有记录则人数+1,无记录则插入一条新记录
总数为select sum(人数) from 表名
昨天人数就不用说了吧?
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告