首頁 > 其他

一個實用的FSO－即時統計線上人數

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

count.asp:

<%Server.ScriptTimeout=300

id=Trim(Request.QueryString("id"))

fc=Trim(Request.QueryString("fc"))

if fc="" then fc="FFFF00"

bg=Trim(Request.QueryString("bg"))

if bg="" then bg="000000"

bc=Trim(Request.QueryString("bc"))

if bc="" then bc="00FF00"

sername=Request.ServerVariables("SERVER_NAME")

scrname=Request.ServerVariables("SCRIPT_NAME")

linkurl="http://" & sername & scrname

%>

<html>

<head>

<title>即時統計線上人數</title>

<META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> '每隔10秒重新整理

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<style TYPE="text/css">

<!--

P {FONT-SIZE: 9pt; font-color: #eeeeee}

A {TEXT-DECORATION: none}

A:link {COLOR: #0068A3}

A:visited {COLOR: #0068A3}

A:hover {COLOR: #2f00ff; TEXT-DECORATION: underline}

.ourfont {font-size: 9pt }

BODY { FONT-SIZE: 9pt}

TABLE { FONT-SIZE: 9pt}

-->

</style>

</head>

<%

countfile=server.mappath("people.asp")

Set fs=CreateObject("Scripting.FileSystemObject")

n=Year(date())

y=Month(date())

r=Day(date())

s=Hour(time())

f=Minute(time())

m=Second(time())

if len(y)=1 then y="0" & y

if len(r)=1 then r="0" & r

if len(s)=1 then s="0" & s

if len(f)=1 then f="0" & f

if len(m)=1 then m="0" & m

sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m

'格式化日期、時間

dim ly()

Set thisfile=fs.OpenTextFile(countfile,1,False)

countly=0

do while not thisfile.AtEndOfStream

thisline = thisfile.readline

Redim preserve ly(countly)

ly(countly) = thisline

countly = countly + 1

loop '將people.asp中內容讀到數組中

thisfile.close

sameip=0

for i=1 to (countly-1)/2

if DateDiff("s",ly(i*2),sj)>60 then

ly(i*2-1)=""

ly(i*2)=""

countly=countly-2

end if

if Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) then

sameip=1 'IP已經存在

ly(i*2)=sj

end if

next

set outfile=fs.CreateTextFile(countfile)

for i=0 to countly-1

if ly(i)<>"" then

outfile.WriteLine ly(i)

end if

next

if sameip=0 then

outfile.WriteLine Request.ServerVariables("REMOTE_ADDR")

outfile.WriteLine sj　　'添加新記錄

outfile.Close

end if

Set thisfile=fs.OpenTextFile(countfile,1,False)

countly=0

do while not thisfile.AtEndOfStream

thisline = thisfile.readline

Redim preserve ly(countly)

ly(countly) = thisline

countly = countly + 1'總的記錄行數

loop

thisfile.close

total=(countly-1)/2 '統計總人數，每人有兩行記錄：IP、時間

%>

<body>

<p><select name="Online" size="1">

<option selected value="Online"><%=total%>人線上上</option>

<%

for i=1 to total

response.write "<option>"&ly(i*2-1)&"</option>"

next

%>

</select></p>

</body>

</html>

people.asp:

<%Response.end%>

172.16.20.230'使用者IP

2003-06-15 09:53:57'登入時間

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More