台灣最大程式設計社群網站
線上人數
550
 
會員總數:245785
討論主題:189420
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 線上人數
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
線上人數
價值 : 0 QP  點閱數:987 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
<%

'----application("n)是目前在線人數

'----application(i&"ip")是第i位參觀者的IP

'----application(i&"time")是第i位參觀者上次瀏覽此頁的時間

for i= application("n") to 1 step -1'----此迴圈不可改為由小自大跑

if application(i&"ip")=Request.ServerVariables("Remote_Host") then'----如第i位參觀者的IP和自已相同(就是自已)則更新上次瀏覽時間為目前最新時間

application.lock

application(i&"time")=minute(time())*60+second(time())

t="in"

application.unlock

elseif ((minute(time())*60+second(time())+3600) - application(i&"time")) mod 3600>35 then'----如不是自已則檢查他有沒有諭時,有就把他的資料清除,在線人數減一

application.lock

application(i&"ip")=application(application("n")&"ip")

application(i&"time")=application(application("n")&"time")

application(application("n")&"ip")=empty

application(application("n")&"time")=empty

application("n")=application("n")-1

application.unlock

end if

next

if t><"in" then'----t不等於"in"表示找不到自已的IP,自已是第一次瀏覽本頁面,做登入的動作

application.lock

application("n")=application("n")+1

application(application("n")&"ip")=Request.ServerVariables("Remote_Host")

application(application("n")&"time")=minute(time())*60+second(time())

application.unlock

end if

'----以下印出資料,如目前在線人數…

%>

<head>

<META HTTP-EQUIV="REFRESH" CONTENT=30>

</head>

<body bgcolor="#333399"><font color="#FFFFFF"><%=application("n")%></font></body>


本篇文章發表於2002-06-22 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.