荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: lvyou (dfgfdgsdf), 信区: Homepage
标 题: Re: 用asp如何记录在线人数?
发信站: 荔园晨风BBS站 (Wed Oct 15 21:22:35 2003), 站内信件
办法很多。比如你可以在数据库里新建一个表:count,表里有三个字段:
主键字段:trackID,数据类型:int,标识为“是”,标识种子与递增量为1,
字段2:sess,数据类型:char,长度:8
字段3:postdate,数据类型:datetime
然后在你需要统计该页的在线人数的页面文件插入下列asp代码,获得的count
变量值就是在线人数,这个方法突破了根目录的限制,自由度很大,其中数据库连
接conn自己建立:
<%
sessionID = session.SessionID
timeout = 5
' delete session after timeout
aaa = dateadd("n", -timeout, now())
conn.Execute ("delete from count where postdate<'" &aaa& "'")
' keep sessionID
sql0 = "select sess from count where sess='" & sessionID & "'"
set rscheck = conn.Execute (sql0)
if rscheck.eof then
sql = "insert into count (sess,postdate) values('" & sessionID & "', '" & now()
& "')"
conn.Execute (sql)
end if
rscheck.close
set rscheck = nothing
'count sessionID
sql2 = "select count(sess) from count"
set rs3 = conn.Execute (sql2)
count = rs3(0)
rs3.close
set rs3 = nothing
sql3 = "select * from count"
set rspredel = conn.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
if count = 0 then
count = 1
end if
conn.close
%>
【 在 cycker (好好学习天天向上) 的大作中提到: 】
: 谢谢,除了这个没其它办法了是吧?
: 【 在 Anthorny (忧郁的眼睛) 的大作中提到: 】
: : golbal.asa的源代码如下:
: : <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
: : Sub Application_OnStart
: : Session.Timeout=20
: : Application.Lock
: : Application("activeUsers")=0
: : Application.unlock
: : end sub
: : Sub Session_OnStart
: : 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>
: : 显示代码如下:
: : <html>
: : <head> ┌┐
: : <title>Untitled Document</title> ┌┘└──────┐
: : <meta http-equiv="Content-Type" content="text/html; cha ∣金风玉露一相逢 ∣
: : </head> └┐┌──────┘
: : <body bgcolor="#FFFFFF" text="#000000"> ∣∣
: : <font color="#000000">[在线:<font color="#FF0000"><% r ┌┘└──────┐
: : application("activeusers") %></font></font> ∣便胜却人间无数 ∣
: : <font color="#000000"> 人]</font> └┐┌──────┘
: : </body> ∣∣
: : </html> ┌┘└──────┐
: : 记住:golbal.asa一定要放在根目录下。 ∣两情若是久长时 ∣
: : ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~放在你网 └┐┌──────┘
∣∣
┌┘└──────┐
--
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店