監(jiān)理公司管理系統(tǒng) | 工程企業(yè)管理系統(tǒng) | OA系統(tǒng) | ERP系統(tǒng) | 造價(jià)咨詢管理系統(tǒng) | 工程設(shè)計(jì)管理系統(tǒng) | 甲方項(xiàng)目管理系統(tǒng) | 簽約案例 | 客戶案例 | 在線試用
X 關(guān)閉
景德鎮(zhèn)網(wǎng)站建設(shè)公司

當(dāng)前位置：工程項(xiàng)目OA系統(tǒng) > 泛普各地 > 江西OA系統(tǒng) > 景德鎮(zhèn)OA > 景德鎮(zhèn)網(wǎng)站建設(shè)公司

統(tǒng)計(jì)網(wǎng)頁(yè)在線人數(shù)的asp代碼

申請(qǐng)免費(fèi)試用、咨詢電話：400-8352-114

admin

    很多網(wǎng)站都擁有統(tǒng)計(jì)網(wǎng)頁(yè)在線人數(shù)的功能，尤其是論壇，火爆的在線人數(shù)能夠體現(xiàn)網(wǎng)站的人氣。那么這個(gè)功能是怎么實(shí)現(xiàn)的呢？下面景德鎮(zhèn)網(wǎng)站建設(shè)顧問就來(lái)分享統(tǒng)計(jì)網(wǎng)頁(yè)在線人數(shù)的asp代碼。

<%
Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID
RefreshTime = 10 '設(shè)置網(wǎng)頁(yè)自動(dòng)更新時(shí)間為10秒
IdleTime = RefreshTime * 3 '設(shè)置閑置時(shí)間為自動(dòng)更新時(shí)間的3倍
Application.Lock

'清點(diǎn)所有連線到此網(wǎng)頁(yè)的瀏覽器，然后將目前打開的瀏覽器的SessionID放入數(shù)組的最后面
If Application(Session.SessionID & "LastAccessTime") = Empty Then
If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0
ReDim Tmp(Application("TotalUsers") + 1)
Num = 0
If Application("TotalUsers") > 0 Then
For I = LBOUND(Application("OnlineUser")) To UBOUND(Application("OnlineUser"))
ID = Application("OnlineUser")(I)
If ID <> Session.SessionID Then
Tmp(Num) = ID
Num = Num + 1
End If
Next
End If
Tmp(Num) = Session.SessionID
Application("TotalUsers") = Num + 1
ReDim Preserve Tmp(Application("TotalUsers"))
Application("OnlineUser") = Tmp
End If

'記錄目前打開的瀏覽器的最近存取時(shí)間
Application(Session.SessionID & "LastAccessTime") = Timer

'檢查所有連線到此網(wǎng)頁(yè)的瀏覽器的最近存取時(shí)間，若與目前時(shí)間相差30秒以上，表示離線
ReDim Tmp(Application("TotalUsers"))
Num = 0
For I = 0 To Application("TotalUsers") - 1
ID = Application("OnlineUser")(I)
If (Timer - Application(ID & "LastAccessTime")) < IdleTime Then
Tmp(Num) = ID
Num = Num + 1
Else
Application(ID & "LastAccessTime") = Empty
End If
Next

'Num表示目前在線人數(shù)，若與Application("TotalUsers")不同，表示中間有人離線
If Num <> Application("TotalUsers") Then
ReDim Preserve Tmp(Num)
Application("OnlineUser") = Tmp
Application("TotalUsers") = Num
End If

Application.UnLock
%>

<HTML>
<HEAD>
<META HTTP-EQUIV="Refresh" CONTENT="<%= RefreshTime %>, URL=<%= Request.ServerVariables("PATH_INFO") %>">
</HEAD>
<BODY>
目前在線人數(shù)：<%= Application("TotalUsers") %>
</BODY>
</HTML>

加上上述代碼，就可以實(shí)現(xiàn)網(wǎng)頁(yè)在線人數(shù)的統(tǒng)計(jì)，當(dāng)然對(duì)于新站來(lái)說(shuō)人氣比較低，顯示在線人數(shù)可能會(huì)起到負(fù)面影響，先把網(wǎng)站推廣出去會(huì)比較好。

 

發(fā)布：2007-03-31 15:51    編輯：泛普軟件 · xiaona    [打印此頁(yè)]    [關(guān)閉]
相關(guān)文章：
景德鎮(zhèn)OA
聯(lián)系方式

成都公司：成都市成華區(qū)建設(shè)南路160號(hào)1層9號(hào)

重慶公司：重慶市江北區(qū)紅旗河溝華創(chuàng)商務(wù)大廈18樓

咨詢：400-8352-114

加微信，免費(fèi)獲取試用系統(tǒng)

QQ在線咨詢

泛普景德鎮(zhèn)網(wǎng)站建設(shè)公司其他應(yīng)用

景德鎮(zhèn)軟件開發(fā)公司 景德鎮(zhèn)門禁系統(tǒng) 景德鎮(zhèn)物業(yè)管理軟件 景德鎮(zhèn)倉(cāng)庫(kù)管理軟件 景德鎮(zhèn)餐飲管理軟件 景德鎮(zhèn)網(wǎng)站建設(shè)公司