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

2004-04-05 11:13:17 214 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wanliang2001 墨衍会员 · AI 创作全网分发关注 + 加入社区

案例分析：SQL基于MYSQL数据库的用户充值问题一、建表用户注册表：结构（ 1 user id 2 注册日期时间 3 性别） create table t_usereg( user_id int primary key auto_increment,--用户id主键、自增 registration_date datetime,--注册日期时间 sex char(1) ); 登录表: 结构（1 user id 2 登录日期时间 3 充值金额 4 登出日期时间）用户可多次重复登录，所以主键设为联合主键较为合适。 create 阅读详情

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

...全文

从零构建eSIM RSP服务：云原生架构与GSMA合规实践本文详细阐述了从零开始构建一个符合GSMA SAS-SM安全标准的云原生eSIM RSP服务的完整路径。内容涵盖云原生基础设施选型、容器化部署、GSMA标准接口集成，并重点分享了通过SAS-SM安全审计的实战经验与避坑指南，为物联网及智能设备企业自建可控的远程SIM配置服务提供了系统性的解决方案。阅读详情

wanliang2001

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

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>

//在随便建一个文件，
 //包含这个文件

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

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

sukey00 2004-04-07

打赏
举报

建一个表名为ip 字段有（theip,count,theday,themonth,theyear,thetime,id）
建一个表名为mycount 字段有(count,id)
代码如下


<% '统计访问人数！！
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 表名
昨天人数就不用说了吧？

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

相关推荐