廣告招牌設計巧思運用，靈活搭配字型
燈光、安裝位置，幫您高調搶商機		油漆工程居住高品質的隔音門，無聲靜悄悄
引領業界，專營各式門窗，提供免費到府丈量

首頁  •  j2h 論壇 • 程式設計討論     • 

計數器session控制瀏覽user的ip訊息

房東：達人
發表時間：2006-12-27
[檢舉]


計數器session控制瀏覽user的ip訊息等


index.php


[Copy to clipboard]CODE:

session_start();

?>

\";include (\"ip.php\");echo \"\";?>





Untitled Document















網站訪問量統計數據：



（您的IP地址是：，您來自，您的瀏覽器為，操作系統）


























$link=mysql_connect(\"localhost\",\"root\",\"\");

$db=mysql_select_db(\"count\",$link);

$query=mysql_query(\"select * from count order by time desc limit 10\");

while($array=mysql_fetch_array($query))

{

?>
















}

?>

最近的10條訪問信息
IP
操作系統
瀏覽器類型
地址
時間








counter.php


[Copy to clipboard]CODE:
采集信息和紀錄信息


session_start();

function crain_ip()//取得瀏覽客戶的真實IP地址----crain Thursday November 14, 2002 3:43

{

$ip=getenv(\'REMOTE_ADDR\');

$ad=getenv(\'HTTP_X_FORWARDED_FOR\');

if(($ad!= \"\")&&($ad!=\"unknown\"))

{

$ip=$ad;

}

return $ip;

}

function crain_found_add($ip)//探察IP來源----crain Thursday November 14, 2002 4:43

{

if ($ip==\"\")

{

$ip=getenv(\'REMOTE_ADDR\');

}

$ip_client=explode(\".\",$ip);

$ip_client_total=$ip_client$0]*1000000000+$ip_client$1]*1000000+$ip_client$2]*1000+$ip_clien



t$3];

$ip_client$0]=intval($ip_client$0]);

if(file_exists(\"../count/ip_datebase/$ip_client$0].txt\"))

{

$ip_datebase=\"../count/ip_datebase/$ip_client$0].txt\";

}

else {

$ip_datebase=\"../count/ip_datebase/0.txt\";

}

$add_jigou=\"\";

$add_country=\"\";

$add_last=\"\";

$ipdata=file($ip_datebase);

for ($i=0;$i
{

$ip_date_first=explode(\"|\",$ipdata$$i]);

$add_jigou=$ip_date_first$3];

$add_country=$ip_date_first$2];

$ip_date_second=explode(\".\",$ip_date_first$0]);

$ip_date_third=explode(\".\",$ip_date_first$1]);

$ip_start=$ip_date_second$0]*1000000000+$ip_date_second$1]*1000000+$ip_date_second$2]*1000+$



ip_date_second$3];

$ip_end=$ip_date_third$0]*1000000000+$ip_date_third$1]*1000000+$ip_date_third$2]*1000+$ip_da



te_third$3];



if(($ip_client_total<=$ip_end) && ($ip_client_total>=$ip_start))

{

$add_last=$add_country.$add_jigou;

break;

}

}

if ($add_jigou==\"\")

{

$add_last=\"未探知區域\";

}

return $add_last;

}



function crain_browse_info()

{

$browser=\"\";$browserver=\"\";

$Browsers =array(\"Lynx\",\"MOSAIC\",\"AOL\",\"Opera\",\"JAVA\",\"MacWeb\",\"WebExplorer\",\"OmniWeb\");

$Agent = $GLOBALS$\"HTTP_USER_AGENT\"];

for ($i=0; $i<=7; $i++) {

if (strpos($Agent,$Browsers$$i])) {

$browser = $Browsers$$i];

$browserver =\"\";

}

}

if (ereg(\"Mozilla\",$Agent) && !ereg(\"MSIE\",$Agent)) {

$temp =explode(\"(\", $Agent); $Part=$temp$0];

$temp =explode(\"/\", $Part); $browserver=$temp$1];

$temp =explode(\" \",$browserver); $browserver=$temp$0];

$browserver =preg_replace(\"/($d.]+)/\",\"1\",$browserver);

$browserver = \" $browserver\";

$browser = \"Netscape Navigator\";

}

if (ereg(\"Mozilla\",$Agent) && ereg(\"Opera\",$Agent)) {

$temp =explode(\"(\", $Agent); $Part=$temp$1];

$temp =explode(\")\", $Part); $browserver=$temp$1];

$temp =explode(\" \",$browserver);$browserver=$temp$2];

$browserver =preg_replace(\"/($d.]+)/\",\"1\",$browserver);

$browserver = \" $browserver\";

$browser = \"Opera\";

}

if (ereg(\"Mozilla\",$Agent) && ereg(\"MSIE\",$Agent)) {

$temp = explode(\"(\", $Agent); $Part=$temp$1];

$temp = explode(\";\",$Part); $Part=$temp$1];

$temp = explode(\" \",$Part);$browserver=$temp$2];

$browserver =preg_replace(\"/($d.]+)/\",\"1\",$browserver);

$browserver = \" $browserver\";

$browser = \"微軟探索者(IE)\";

}

if ($browser!=\"\") {

$browseinfo = \"$browser$browserver\";

}

else {

$browseinfo = \"未知的瀏覽器\";

}

return $browseinfo;

}



function crain_os_info() //crain修改前人程序于November 14, 2002

{

$os=\"\";

$Agent = $GLOBALS$\"HTTP_USER_AGENT\"];

if (eregi(\'win\',$Agent) && strpos($Agent, \'95\')) {

$os=\"Windows 95\";

}

elseif (eregi(\'win 9x\',$Agent) && strpos($Agent, \'4.90\')) {

$os=\"Windows ME\";

}

elseif (eregi(\'win\',$Agent) && ereg(\'98\',$Agent)) {

$os=\"Windows 98\";

}

elseif (eregi(\'win\',$Agent) && eregi(\'nt 5.0\',$Agent)) {

$os=\"Windows 2000\";

}

elseif (eregi(\'win\',$Agent) && eregi(\'nt 5.1\',$Agent)) {

$os=\"Windows XP\";

}

elseif (eregi(\'win\',$Agent) && eregi(\'nt\',$Agent)) {

$os=\"Windows NT\";

}

elseif (eregi(\'win\',$Agent) && ereg(\'32\',$Agent)) {

$os=\"Windows 32\";

}

elseif (eregi(\'linux\',$Agent)) {

$os=\"Linux\";

}

elseif (eregi(\'unix\',$Agent)) {

$os=\"Unix\";

}

elseif (eregi(\'sun\',$Agent) && eregi(\'os\',$Agent)) {

$os=\"SunOS\";

}

elseif (eregi(\'ibm\',$Agent) && eregi(\'os\',$Agent)) {

$os=\"IBM OS/2\";

}

elseif (eregi(\'Mac\',$Agent) && eregi(\'PC\',$Agent)) {

$os=\"Macintosh\";

}

elseif (eregi(\'PowerPC\',$Agent)) {

$os=\"PowerPC\";

}

elseif (eregi(\'AIX\',$Agent)) {

$os=\"AIX\";

}

elseif (eregi(\'HPUX\',$Agent)) {

$os=\"HPUX\";

}

elseif (eregi(\'NetBSD\',$Agent)) {

$os=\"NetBSD\";

}

elseif (eregi(\'BSD\',$Agent)) {

$os=\"BSD\";

}

elseif (ereg(\'OSF1\',$Agent)) {

$os=\"OSF1\";

}

elseif (ereg(\'IRIX\',$Agent)) {

$os=\"IRIX\";

}

elseif (eregi(\'FreeBSD\',$Agent)) {

$os=\"FreeBSD\";

}

if ($os==\'\') $os = \"Unknown\";

return $os;

}

?>


if(!session_is_registered(counttime))

{

//取得瀏覽者信息

$ip=crain_ip();

$add=crain_found_add($ip);

$browse=crain_browse_info();

$os=crain_os_info();

$time=date(\"Y-m-d H:i\").time();

//以下為數據庫操作部分！

$link=mysql_connect(\"localhost\",\"root\",\"\");

$db=mysql_select_db(\"count\",$link);

$query=\"INSERT INTO `count` (`os`, `add`, `browse`, `time`, `ip`) VALUES (\'$os\', \'$add\',



\'$browse\', \'$time\', \'$ip\')\";

mysql_query($query)or die(\"can\'t insert!\");

$query=mysql_query(\"select * from count\");

$counttime=mysql_num_rows($query);

session_register(counttime);

mysql_close($link);

}

?>

ip_query.php

IP地址查詢部分！


[Copy to clipboard]CODE:

if($Submit)

{

if($ipquery)

{

function found_add($ip)//探察IP來源----crain Thursday November 14, 2002 4:43

{

if ($ip==\"\")

{

$ip=getenv(\'REMOTE_ADDR\');

}

$ip_client=explode(\".\",$ip);

$ip_client_total=$ip_client$0]*1000000000+$ip_client$1]*1000000+$ip_client$2]*1000+$ip_client$3];

$ip_client$0]=intval($ip_client$0]);

if(file_exists(\"../count/ip_datebase/$ip_client$0].txt\"))

{

$ip_datebase=\"../count/ip_datebase/$ip_client$0].txt\";

}

else {

$ip_datebase=\"../count/ip_datebase/0.txt\";

}

$add_jigou=\"\";

$add_country=\"\";

$add_last=\"\";

$ipdata=file($ip_datebase);

for ($i=0;$i
{

$ip_date_first=explode(\"|\",$ipdata$$i]);

$add_jigou=$ip_date_first$3];

$add_country=$ip_date_first$2];

$ip_date_second=explode(\".\",$ip_date_first$0]);

$ip_date_third=explode(\".\",$ip_date_first$1]);

$ip_start=$ip_date_second$0]*1000000000+$ip_date_second$1]*1000000+$ip_date_second$2]*1000+$ip_date_second$3];

$ip_end=$ip_date_third$0]*1000000000+$ip_date_third$1]*1000000+$ip_date_third$2]*1000+$ip_date_third$3];



if(($ip_client_total<=$ip_end) && ($ip_client_total>=$ip_start))

{

$add_last=$add_country.$add_jigou;

break;

}

}

if ($add_jigou==\"\")

{

$add_last=\"未探知區域\";

}

return $add_last;

}

$address=found_add($ipquery);

}

}

?>







Untitled Document











您要查詢的IP地址：


if($ipquery==\"\")

{

$ipquery=getenv(\'REMOTE_ADDR\');

}

echo $ipquery;

?>\">













您查詢的IP地址對應的地理位置為：



//$cmd=\"ipconfig/all\";

//system($cmd, $list);

//for ($i=0;$i < count($list);$i++)

//{

//print $list$$i].\"
\";

//}

?>










  • 贊助網站       

    廣利不動產-新板特區指名度最高、值得您信賴的好房仲
    您的托付,廣利用心為您服務
    廣利不動產-板橋在地生根最實在--新板特區指名度最高、值得您信賴的好房仲
    完整房訊，房屋、店面熱門精選物件，廣利不動產 優質仲介，房屋租賃、買賣資訊透明，交易真安心！


    • 　共 0 人回應

    姓名：
    佈告內容：