不用Global.asa实现在线人数统计 -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 不用Global.asa实现在线人数统计

不用Global.asa实现在线人数统计 时间：2004/11/7 4:11:00来源：本站整理作者：蓝点我要评论(0): <%

'count online user without using Global.asa

'script by Narong Khotarasakit

'webmaster of ezebox.com

'report bug : info@ezebox.com

sessionID = session.SessionID

timeout = 5

' set how long to keep this session in minute you can increase this number

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("count.mdb")

'Conn_String = "activeUser"

'set your DSN = "activeuser" is a better way because you need include this file to all your asp scripts.

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

ConnCount.Open Conn_String

' delete session after timeout

aaa = dateadd("n", -timeout, now())

connCount.Execute ("delete * from count where postdate < #" & aaa & "#")

' keep sessionID

sql0 = "select sess from count where sess='" & 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

'count sessionID

sql2 = "select count(sess) from count"

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%> Active users

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。