在線統(tǒng)計(jì)代碼 application

更新時(shí)間：2006年06月27日 00:00:00 作者：

首先要設(shè)置好global.asa 文件,如下

以下內(nèi)容為程序代碼

<script language="vbscript" runat="server">
sub application_onstart
application("activeusers") = 0 　//初始值
end sub
sub session_onstart
session.timeout = 20 　　 //刪除不活動(dòng)用戶的時(shí)間
session("start") = now
application.lock 　　　　　 //鎖定application變量
application("activeusers") = application
("activeusers") + 1 　　　　 //統(tǒng)計(jì)
application.unlock 　　　 //解鎖
end sub
sub session_onend
application.lock
application("activeusers") = application
("activeusers") - 1 　　　 //刪除不活動(dòng)用戶或退出用戶
application.unlock
end sub
</script>

顯示在線用戶數(shù)量的頁(yè)面

以下內(nèi)容為程序代碼

<%@ language=vbscript %>
<html>
<head>
<title>在線用戶</title>
</head>
<body>
<b>當(dāng)前共有<font color="#cc0000"><%= application("activeusers") %></font> 人在線</b>
</body>
</html>

最普通的方法是用SESSION，但缺點(diǎn)是無(wú)法即時(shí)反應(yīng)在線情況（有超時(shí)時(shí)間）和占用服務(wù)器資源（如果有100人在線就有100個(gè)SESSION，想想看8）；上次（好象間隔很久了耶）介紹了一種采用APPLICATION+COOKIES的方法，但實(shí)現(xiàn)方法有些煩瑣同時(shí)還要設(shè)一個(gè)隱藏的自刷新頁(yè)面。
這種方法則避免了以上的弊病，經(jīng)實(shí)踐，效果不錯(cuò)（例子：WWW。ATERSOFT。COM/BBS），具體如下：
假定INDEX。HTM為框架網(wǎng)頁(yè)，包含ID=LEFT，ID=TOP和ID=BOTTOM的三個(gè)框架
1、做個(gè)統(tǒng)計(jì)頁(yè)面USERNUM。ASP
<p>正在統(tǒng)計(jì)數(shù)據(jù)。。。</p>
<%
user=request.querystring("user")
if user=0 then '如果離開(kāi)則人數(shù)-1
application.lock
application("num")=application("num")-1
application.unlock
response.write "<script>self.close();</script>"
elseif user=1 then '如果進(jìn)入則+1
application.lock
application("num")=application("num")+1
application.unlock
end if
%>

2、在框架頁(yè)面中如（INDEX。HTM）嵌入U(xiǎn)SERNUM。ASP
<body onbeforeunload="window.open('usernum.asp?user=0','num','menubar=no')">
......
<iframe src="usernum.asp?user=1" frameborder=0 width=0 height=0></iframe>
3、在需要顯示人數(shù)的頁(yè)面（假定在LEFT顯示）中加入
<div id=num><%=application("num")%></div>
4、設(shè)定需要更新數(shù)據(jù)的頁(yè)面（如BOTTOM）
function tj(){
top.left.num.innerHTML=<%=application("num")%>;
}
<body onload="tj()">
完畢，這只是一個(gè)例子，具體應(yīng)用可以靈活，另外，為什么當(dāng)離開(kāi)時(shí)要WINDOW。OPEN USERNUM。ASP呢？因?yàn)槿绻瑯臃旁贗FRME中，窗口關(guān)得太快，USERNUM。ASP頁(yè)面來(lái)不及裝載就關(guān)掉了無(wú)法減少人數(shù)

您可能感興趣的文章: