荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: 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软件 网络书店