不用Global.asa也能实现统计在线人数吗?_编程10000问

不用Global.asa也能实现统计在线人数吗?

<%
sessionID = session.SessionID
timeout = 5
' 设置session保持的时间.

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("count.mdb")
'Conn_String = "activeUser"
' 最好设置DSN = "activeuser",因为我们需要在所有的ASP脚本中包含这个文件.

Set ConnCount =Server.CreateObject("ADODB.Connection")
ConnCount.Open Conn_String

aaa = dateadd("n", -timeout, now())
connCount.Execute ("delete * from count where postdate < #" & aaa & "#")
' 在超时后删除session.

sql0 = "select sess from count where sess='" & sessionID & "'"

' 保持sessionID.
set rscheck = connCount.Execute (sql0)
if rscheck.eof then
sql = "insert into count (sess,postdate) values('" & sessionID & "', '" & now() & "')"
connCount.Execute (sql)
end if
rscheck.close
set rscheck = nothing

sql2 = "select count(sess) from count"

' 计算sessionID.
set rs = connCount.Execute (sql2)
count = rs(0)

rs.close
set rs = nothing

sql3 = "select * from count"
set rspredel = connCount.Execute (sql3)
do until rspredel.eof
xxx=DateDiff("n", rspredel("postdate"), Now())
if xxx > timeout then
count = count-1
end if
rspredel.movenext
loop
rspredel.close
set rspredel = nothing

connCount.Close
set connCount = nothing

if count = 0 then
count = 1
end if
%>

当前正有<%=count%>人在随风起舞流连忘返!

 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

[1]

时间: 2024-10-30 15:48:32

不用Global.asa也能实现统计在线人数吗?_编程10000问的相关文章

统计在线人数是实时的吗?_编程10000问

global.asa<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <script LANGUAGE="VBScript" RUNAT="Server">   Sub Application_OnStart Application("ActiveUsers") = 0 ' 从0开始计起.不过你可以把

如何最准确地统计在线用户数?_编程10000问

' 设置好global.asa 文件,如下:<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart      Application("ActiveUsers") = 0      ' 设置计数初始值,可以根据自己的需要哦.End Sub Sub Session_OnStart      Session.Timeout = 20<?xml:names

不用Global.asa实现在线人数统计

统计|在线|在线人数 <%'count online user without using Global.asa'script by Narong Khotarasakit'webmaster of ezebox.com'report bug : info@ezebox.com sessionID = session.SessionIDtimeout = 5' set how long to keep this session in minute you can increase this nu

不用Global.asa也可以实现在线人数统计

统计|在线|在线人数 不使用Global.asa实现在线人数统计 <%sessionID = session.SessionIDtimeout = 5' 设置保持SESSION的时间,你可以增加这个数值Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("count.mdb")'Conn_String = "activeUser"

asp统计在线人数 global.asa写法

Global.asa中是一个文本文件中找到您的主目录( / Global.asa中) .娄显示的基本extructure一个global.asa文件. global.asa <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart ........ End Sub Sub Application_OnEnd End Sub Sub Session_OnStart .......

ASP编程入门进阶(十):Global.asa文件

编程 我们已经知道Application和Session对象的OnStart.OnEnd事件的脚本,都必须是在 Global.asa 文件中声明的.那究竟Global.asa是什么样的一个文件?它的作用有何?又该如何运用呢?且听我慢慢道来. 首先.asa是文件后缀名,它是Active Server Application的首字母缩写.Global.asa文件可以管理在ASP应用中两个非常苛刻的对象:Application.Session. 它其实是一个可选文件,程序编写者可以在该文件中指定事件脚

ASP入门进阶之Global.asa文件用法

我们已经知道Application和Session对象的OnStart.OnEnd事件的脚本,都必须是在 Global.asa 文件中声明的.那究竟Global.asa是什么样的一个文件?它的作用有何?又该如何运用呢?且听我慢慢道来. 首先.asa是文件后缀名,它是Active Server Application的首字母缩写.Global.asa文件可以管理在ASP应用中两个非常苛刻的对象:Application.Session. 它其实是一个可选文件,程序编写者可以在该文件中指定事件脚本,并

深入研究Application和Session对象(包括global.asa)3

application|session|对象 三.Global.asa ASP的Application和Session对象体现了其他ASP内置对象所没有的特征--事件.每一个访客访问服务器时都会触发一个OnStart事件(第一个访客会同时触发Application和Session的OnStart事件,但Application先于Session),每个访客的会话结束时都会触发一个OnEnd事件(最后一个访客会话结束时会同时触发Application和Session的OnEnd事件,但Session

深入研究Application和Session对象(包括global.asa)

application|session|对象 用ASP编写虚拟社区.网上购物等程序时,Application和Session对象具有举足轻重的作用,能够灵活合理地运用这两个对象是提高程序质量的关键.下面让笔者根据自己在这方面的经验,向大家深入介绍一下ASP的这两个内建对象. 一.Application对象的成员概述 Application对象成员包括Application对象的集合.方法和事件. ⒈Application对象的集合 Contents集合:没有使用<OBJECT>元素定义的存储于