[HACK名稱]：首页显示IP、位置、操作系统、浏览器（完整版)

zjjboy · 发表于 2005-8-27 13:31:11

您的IP：192.168.0.178 来自：荷兰 , 操作系统： , 浏览器：

怎么是显示内网IP

霜雪寒剑 · 发表于 2005-8-27 13:46:26

谢谢楼主，我就需要这个

freeice · 发表于 2005-8-30 03:21:51

不改 php.ini 的 stat.php

<?php
function browseinfo() {
$browser="";$browserver="";
$Browsers =array("Lynx","MOSAIC","AOL","Opera","JAVA","MacWeb","WebExplorer","OmniWeb");
$Agent = $_SERVER["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("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 = "Firefox";
}
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 = "Internet Explorer(IE)";
}
if ($browser!="") {
$browseinfo = "$browser$browserver";
}
else {
$browseinfo = "未知";
}
return $browseinfo;
}
function osinfo() {
$os="";
$Agent = $_SERVER["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.1',$Agent)) {
$os="Windows XP";
}
elseif (eregi('win',$Agent) && eregi('nt 5.2',$Agent)) {
$os="Windows Server 2003";
}
elseif (eregi('win',$Agent) && eregi('nt 5',$Agent)) {
$os="Windows 2000";
}
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 = "未知";
return $os;
}
function ip_check($ip){
$ipdatafolder="ipdata";
if ($ip=="")
$ip=$_SERVER["REMOTE_ADDR"];
$ipa=split("[\.]",$ip);
$ips=$ipa[0]*1000000000+$ipa[1]*1000000+$ipa[2]*1000+$ipa[3];
$ipa[0]=intval($ipa[0]);
if (file_exists("ipdata/$ipa[0].txt")) {
$datafile="ipdata/$ipa[0].txt";
}
else {
$datafile="ipdata/other.txt";
}
$from1="";
$from2="";
$from="";
$ipdata=file($datafile);
for ($i=0;$i<count($ipdata);$i++) {
$ipb=split("[\|]",$ipdata[$i]);
$from1=$ipb[2];
$from2=$ipb[3];
$ipc=split("[\.]",$ipb[0]);
$ipd=split("[\.]",$ipb[1]);
$ipbegin =$ipc[0]*1000000000+$ipc[1]*1000000+$ipc[2]*1000+$ipc[3];
$ipend =$ipd[0]*1000000000+$ipd[1]*1000000+$ipd[2]*1000+$ipd[3];
if (($ips<=$ipend) && ($ips>=$ipbegin)) {
$from=$from1.$from2;
break;
}
}
if ($from1=="") $from="未知區域";
return $from;
}
$ipaddress=$_SERVER["REMOTE_ADDR"];
$address=ip_check($ipaddress);
$browser=browseinfo();
$os=osinfo();
?>

复制代码

wutiexin · 发表于 2005-8-30 15:25:46

用处不大！

lingcj · 发表于 2005-8-30 15:57:52

行哦~~~

爱好者 · 发表于 2005-9-23 03:14:40

原帖由安羅于 2005-2-3 08:25 发表
這個是不錯，但可能會消秏大量資源
所以個人不使用

测试了的确是很耗资源，首页打开速度明显减慢！

yulong8404 · 发表于 2005-9-23 15:08:08

8错

tmjob · 发表于 2005-10-30 05:46:42

一次性搞顶
多谢楼主

		自动登录	找回密码
密码			立即注册