| |
代碼：
Ng@I5
my $yday = (localtime(time))[7]; ##取得當日為全年第幾天lL%Ch
my $addr = $ENV{'REMOTE_ADDR'} || '0.0.0.1'; ## Command mode 測試w'
my $fp;xw
my $myhits = 0;Z)
open ($fp, '+<', 'limit.dat') || open ($fp, '>', 'limit.dat');LvJP
binmode ($fp);H~
read ($fp, my $limitday, 2);XLw
my $limitday = unpack ('S', $limitday);#)e,X8
if ($limitday ne $yday) {yt!nX
seek ($fp, 0, 0);1
print $fp pack ('S', $yday);fz
truncate ($fp, 2);##重置檔案大小SM[
} else {|q
while (! eof ($fp)) {Mym1h
read ($fp, my $tmp, 5);c"L
my ($classa, $classb, $classc, $classd, $hits) = unpack ('CCCCC', $tmp);&Y2R)?
if (join ('.', $classa, $classb, $classc, $classd) eq $addr) {##找尋是否存在記錄n
seek ($fp, -5, 1);A.6gOb
$myhits = $hits;pu1P2L
$myhits = 254 if ($myhits eq 255);oV
last;:J~aI
}<Rp'`
}fyc.>8
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！ N|G1
print $fp pack ('CCCCC', split (/\./, $addr), ++$myhits);t[]|u
close ($fp);J
$Limit = 5;OEJg
if($myhits > $Limit){Mz
&error("普通錯誤&抱歉！非會員一天內只能瀏覽 $Limit 次文章");#
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！ f
|
|
NS5u
基於 IPV4 與二進的數據庫式編寫方法，可以更減小系統資源與加快運行進度-
概念代碼如上，而瀏覽限制的上值為254&}xa
| | |
版權所有，不得擅自轉載
|
雷傲繁體中文網廣告位置
|
|
頂端 
加到"我的最愛"
主題管理：
總固頂 
取消總固頂 
短訊息
查看
搜尋
通訊錄
引用
回覆
只看我
2007/05/06 00:14pm 
IP: 已設定保密
