- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
讓網站活起來(4)
在 線 IP 地 址


功能:顯示當前網頁在線人數和IP地址。
方法:把當前的網頁在線IP地址存入People.asp中,每過一分鐘自動刷新一次,用來統計當前網頁的在線人數和IP地址。

1:把當前的在線IP地址和訪問時間存入ly數組中。
Set ThisFile=StreamF.OpenTextFile(CountFile,1,False)
Countly=0
do while not ThisFile.AtEndOfStream
Thisline = ThisFile.readline
'使用了 Preserve 關鍵字,就只能調整數組最後維的大小,並且不能改變數組的維數。
'數組只有一維,該維是最後的也是僅有的一維,就可以修改該數組的大小.
Redim preserve ly(Countly)
ly(Countly) = Thisline
'Countly 記載這ThisFile的行數
Countly = Countly + 1
loop
ThisFile.Close

2:開始刷新訪問當前網頁IP地址
sj中存的當前的系統時間
sameip=0
for i=1 to (Countly-1)/2
'取得 偶數列
'如果在剛才統計的在線IP地址和當前的時間超過了一分鐘,則上出該IP
if DateDiff("s",ly(i*2),sj)>60 then
ly(i*2-1)=""
ly(i*2)=""
Countly=Countly-2
end if

'獲取剛才在線的IP地址,如果現在還在線
'Request.ServerVariables("REMOTE_ADDR") 獲得發出請求機器的IP
if Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) then
sameip=1
ly(i*2)=sj
end if
next

3:將最新的訪問當前網頁的IP地址存入People.asp
'開始向People.asp這個文件寫數據
set OutFile=StreamF.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





頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2019 COOLASP All Rights Reserved