計數器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

贊助網站

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

　共 0 人回應

姓名：

佈告內容：

其他選項: