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

[wanliang2001]

我在搞个网站，需要有：浏览总数，今日人数，昨天人数！怎么计算这3个数值了？谢谢高手指点，请详细点，我怕简单了我看不懂！！！！

[jnyezhi]

建一个这样的表：日期、人数
然后在页面中搜索今日的记录，有记录则人数+1，无记录则插入一条新记录
总数为select sum(人数) from 表名
昨天人数就不用说了吧？

[wanliang2001]

还有个问题，怎么算在线人数呢？？？？在线等哟！

[qiao198]

老兄建个表，获取，再进行分析不就得了

[sukey00]

建一个表名为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%>

呵呵代码，写的好烂，高手不要见笑 ^_^

[sukey00]

//建一个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>人

呵呵，不过好象要放在服务器上才能看到！本地的 好象不行哦！

[fenlin]

用一个表来记录就好了。简单明了

[onkey1999]

我觉得用APPLICATION+一个包含三个字段的数据库就够了
如到了晚上十二点就把APPLICATION的值赋给数据库中记录全天总数的字段就行了
再用ASP内置的计数器对象计数总浏览总数就行了
我想应该这样就可以了,如各位有更好的思路
请指教,谢谢

[wanliang2001]

楼上的人，建议是把月,日,年,分开了比较，要是遇到31号,和1号的关系，怎么比哟>??>